-
<%
t=request.QueryString("t")
key=request.QueryString("key")
if t="" then
Response.Write("")
Response.End()
end if
if key="" then
Response.Write("")
Response.End()
end if
set rs=server.createobject("adodb.recordset")
if t=1 then
exec="select * from [news] where title like '%"&key&"%' order by id desc "
elseif t=2 then
exec="select * from [Products] where title like '%"&key&"%' order by id desc "
else
exec="select * from [download] where title like '%"&key&"%' order by id desc "
end if
rs.open exec,conn,1,1
if rs.eof then
response.Write " 没有搜索到相关内容！"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
dim img
if IsNull(rs("img")) or trim(rs("img")&"")="" then
img="/images/pic.GIF"
else
img=""&rs("img")&""
end if
%>
<%if t=1 then%>
-
" />
-1.html" title="<%=rs("title")%>"><%=i5808(rs("title"),50)%>
<%=i5808(rs("body"),150)%>
浏览：<%=rs("hit")%> 发布时间：<%=rs("data")%> <% if rs("zhiding")=1 then response.Write("[置顶]") else end if %>
<%elseif t=2 then%>
-
" width="127" height="105" alt="<%=rs("title")%>" />
-1.html" title="<%=rs("title")%>"><%=i5808(rs("title"),50)%>
<%=i5808(rs("body"),150)%>
浏览：<%=rs("hit")%> 发布时间：<%=rs("data")%>
<%else%>
-
-1.html" title="<%=rs("title")%>"><%=i5808(rs("title"),50)%>
<%=i5808(rs("body"),150)%>
发布时间：<%=rs("data")%>
<%end if%>
<%rs.movenext
next
end if
%>
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","
") rs.close set rs=nothing %>