<%dim keyword,sear keyword=request("keyword") if keyword="" then Call Error("关键字不能为空！") end if sear=request("sear") if sear="" or IsNumeric(sear)=False then Call Error("搜索类型无效！") end if if sear=1 then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from wjfile where typeID=1 and name like '%" & keyword & "%' order by [ID] desc",conn,1,1 else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from wjfile where typeID=1 and title like '%" & keyword & "%' order by [ID] desc",conn,1,1 end if If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="soft_search.asp?keyword="&keyword&"&sear="&sear&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) response.write ("共:"&count&"条相关图片
") For i=1 To PageSize If rs.eof Then Exit For Response.write ""&i+(page-1)*PageSize&"."&ubb(rs("name"))&"
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else response.write"没有符合条件的图片
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"----------
" response.write"返回上级" response.write"
返回首页" response.write"