onSubmit="return false" >

搜索条件

" 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="keyDownSearch();" />

<% Set Rs1=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * from claimRecord "&filterStr&" order by claimTime 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) 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("claimTime")%>	<%=Rs("newEmp")%> 认领了 <%=Rs("originalEmp")%> 的客户（<%=Rs("oldCode")%>)	<% Rs1.Open "Select cs_code from customer where id="&Rs("cs_id"),conn,1,1 If Not Rs1.bof and Not Rs1.eof Then Response.write Rs1("cs_code") End If Rs1.close %>
当前暂无认领记录
<% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&urlStr&"&searcheType="&searcheType&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen2+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 Rs.close %>

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