<% 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")%>"><%=InterceptString(rs("title"),50)%>

浏览：<%=rs("hit")%> 发布时间：<%=rs("data")%>

<%=i5808(rs("body"),150)%>

<%elseif t=2 then%>

-1.html" title="<%=rs("title")%>">" alt="<%=rs("title")%>" height="112" width="151" />

• 名称: <%=i5808(rs("title"),10)%>
• <%=i5808(rs("body"),90)%>

<%else%>

-1.html" title="<%=rs("title")%>"><%=InterceptString(rs("title"),50)%>

发布时间：<%=rs("data")%>

<%=i5808(rs("body"),150)%>

<%end if%> <%rs.movenext next end if %>

<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>

推荐产品

<%=OneF_Product_tuijian(1,4,151,112)%>