<% const MaxPerPage=10 dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs dim rstype dim typesql dim typeid,typename1 if not isEmpty(request("typeid")) then typeid=request("typeid") else typeid=1 end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if sqlconfig="select * from config" set rsconfig=server.createobject("adodb.recordset") rsconfig.open sqlconfig,conn,1,1 sousuo="" sousuo=sousuo&"
" sousuo=sousuo&"
中国汽车绞盘网资源搜索：" sousuo=sousuo&" 
" bottomnavi="" footer="" footer=footer&"" footer=footer&"" footer=footer&"" footer=footer&"
Copyright © "&rsconfig("copyrights")&" All Rights Reserved
"&rsconfig("saddress")&"："&rsconfig("address")&"     邮政编码："&rsconfig("postcode")&"　
E-mail："&rsconfig("webemail")&"   QQ在线支持
"&rsconfig("copyright")&" "&rsconfig("superstat")&"
" %> 搜索"<%=request("keywords")%>"的搜索结果_<%=rsconfig("webname")%> ,站内搜索,<%=rsconfig("webname")%>" /> ,<%=rsconfig("webname")%>" />
<%=sousuo%>
" end function %> <% rs.close set rs=nothing %> <% set conn=server.CreateObject("ADODB.CONNECTION") ds="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/inc/mynews1.mdb") conn.Open ds %> <% search = "" if request("newsid")<>"" then if search="" then search = search & " WHERE " else search = search & " AND " end if search = search & " newsid = '" & request("newsid") & "' " end if if ssort="1" then if search="" then search = search & " WHERE " else search = search & " AND " end if search = search & " title like '%" & keywords & "%' " end if if ssort="2" then if search="" then search = search & " WHERE " else search = search & " AND " end if search = search & " content like '%" & keywords & "%' " end if if request("dateandtime")<>"" then if search="" then search = search & " WHERE " else search = search & " AND " end if search = search & " dateandtime = '" & request("dateandtime") & "' " end if table="article" sql="select * from " & table & search '请参考下面代码排序 'sql="select * from " & table & search & " order by dtime DESC" 'response.write sql set rs=Server.CreateObject("ADODB.recordset") rs.CursorType = 3 rs.Open sql,conn rs.PageSize =10 '每页记录条数 result_num=rs.RecordCount '记录总数 if result_num<=0 then if search="" then word="目前还没有记录!" else word="历史数据中没有查到符合条件的记录!" end if else 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 end if %> <% if result_num<=0 then %>


<% =word %>
<% else %>

在历史数据中搜索到<% =result_num %>条符合条件的信息

<% for i=1 to rs.PageSize %>
 ·" target="_blank"><% =HtmlOut(rs("title")) %>
<% rs.movenext:if rs.EOF then Exit For next %> <% call LastNextPage(maxpage,page,"width=100% ","

") %> <% end if %>

主题推荐

搜索结果 —— <% page=request("page") if page="" then page=0 ssort=request("ssort") keywords=request("keywords") keywords=LTRIM(RTRIM(keywords)) if ssort="1" then set rs=server.createobject("adodb.recordset") sql ="select * from article inner join type on article.typeid=type.typeid where (title like '%"&checkStr(keywords)&"%') order by date Desc" rs.open sql,conn,1,1%> 按 " 新闻标题 " 搜索 关键词为 : <%=keywords%> <% end if if ssort="2" then set rs=server.createobject("adodb.recordset") sql ="select * from article inner join type on article.typeid=type.typeid where (content like '%"&checkStr(keywords)&"%') order by date Desc" rs.open sql,conn,1,1%> 按 " 新闻内容 " 搜索 关键词为 :  <%=keywords%> <% end if %> <% if rs.eof and rs.bof then response.write "

最新数据中没有查到符合条件的记录!

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"Search.html" else if (currentPage-1)*MaxPerPage") do while not rs.eof %>  ·/<%=rs("typedir")%>/<%=rs("N_Fname")%>" target="=_blank"><%=rs("title")%>[ <%=Year(rs("date"))%>-<%=Month(rs("date"))%>-<%=Day(rs("date"))%> ]
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <%end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if ' response.write "
" response.write "

在最新数据中搜索到"&totalnumber&"条符合条件的信息

" response.write "

页次："&CurrentPage&"/"&n&"页 每页20条" if CurrentPage<2 then response.write "【首页】【上一页】" else response.write "【首页】" response.write "【上一页】" end if if n-currentpage<1 then response.write "【下一页】【尾页】" else response.write "" response.write "【下一页】【尾页】

" end if ' response.write "
动力户外产品推荐
<%=footer%> 中国汽车绞盘网——中国首创、迄今唯一专业绞盘资讯与产品网站
全国咨询订购热线：028-88835485\87712435 传真：028-87712435
更多绞盘周边产品：地锚、千斤顶、快装支架、双电瓶隔离器