<% language=Trim(Request("language")) Call GetLanguage(Language) dim startime startime=timer() if strLeach(Trim(Request("Tag")))="" Then response.write"" End if set rs=server.createobject("adodb.recordset") SQL="select * from tblPage where 1=1" if not (Trim(Request("Tag"))="" or isempty(Trim(Request("Tag"))) ) Then SQL=SQL&" and (InStr(1,LCase(Title),LCase('"&strLeach(Trim(Request("Tag")))&"'),0)<>0 or InStr(1,LCase(Content),LCase('"&strLeach(Trim(Request("Tag")))&"'),0)<>0 or InStr(1,LCase(Summary),LCase('"&strLeach(Trim(Request("Tag")))&"'),0)<>0)" End if SQL=SQL&" order by ID desc" rs.open SQL,conn,1,1 '分页开始 dim Page,i Page=1' 设置变量Page=1 Rs.PageSize = 10 '每页显示记录数 if Not IsEmpty(Request("Page")) Then '如果PAGE已经初始化... If len(Request("Page"))>0 Then Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 Else Page=1 End if if Page > Rs.PageCount Then '如果接收的页数大于总页数 Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后页 Elseif Page <= 0 Then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 Else Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 End if End if dim endtime endtime=timer() %> <%=strLeach(Trim(Request("Tag")))%>-<%=LABEL_SEARCH_TITLE%>
" size="40" maxlength="50">
<%=LABEL_SEARCH_TITLE%>
<%=LABEL_SEARCH_TITLE%> <%=Trim(Request("Tag"))%> <%=LABEL_SEARCH_ITEM_01%> <%=formatnumber((rs.RecordCount),2)%> <%=LABEL_SEARCH_ITEM_02%> <%=formatnumber((endtime-startime)*1000,2)%> <%=LABEL_SEARCH_ITEM_03%>
<% if rs.bof or rs.eof Then %> <% else For i = 1 to rs.PageSize If Rs.eof Then Exit For %> <% rs.movenext next End if %>
<%=LABEL_SEARCH_NODATE%>
><%=Trim(rs("Title"))%>
<%=cutHTMLStr(rs("Content"),180)%>
<%=LABEL_SEARCH_TIME%><%=Trim(rs("CreateTime"))%>
 
<%=GetPage(rs.RecordCount,rs.PageSize,rs.PageCount,Page,"?Page={Page}&Tag="&server.urlencode(Trim(Request("tag"))))%>
 
" size="40" maxlength="50">

<%=LABEL_SEARCH_TOTAL_01%> <%=formatnumber((GetTotal("ID","tblPage")),2)%> <%=LABEL_SEARCH_TOTAL_02%>
 
<% rs.close set rs=nohing %>