<% Page = Request.QueryString("Page") Keys = Server.UrlEnCode(Request.QueryString("Keys")) Keyscode=TextEnCode(Request.QueryString("Keys")) Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From logRecord Where loginAct like '%"&Keyscode&"%' Order By id Desc",Conn,1,1 %> <% If Not Rs.Bof And Not Rs.Eof Then Rs.PageSize = 20 If Page = "" Then Page = 1 If Page = "end" Then Page = Rs.PageCount If Not IsNumeric(Page) Or Page < 1 Then Page = 1 Page = Cint(Page) If Page > Rs.PageCount Then Page = Rs.PageCount Rs.AbsolutePage = Page TempNum = Rs.PageSize * (Page - 1) Set Rs1=Server.CreateObject("ADODB.RecordSet") For i=1 To Rs.PageSize If Rs.Bof Or Rs.Eof Then Exit For TempNum=TempNum+1:classid=Rs(1) %> <% Rs.MoveNext Next Else %> <% End If %>

序号	时间	日志
<%=TempNum%>	<%=Rs("loginTime")%>	<%=Rs("loginAct")%>
暂无相关记录
<% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&"&Ord="&Ord&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen*2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen*2+1 Else StartPage=Page-Pagelen EndPage=Page+Pagelen End If If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount End If For i = StartPage To EndPage If i = Page Then Response.Write ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If End If %> " onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)+'&Page=<%=Page%>'}" />

<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>