潜江市公安局

<%set conn=server.createobject("adodb.connection") conn.open "dsn=ws110;uid=ljh19770518;pwd=19770518;database=qjga" set rs=server.createobject("adodb.recordset") rs.open "select id,name,tel,thetime,thetype,isnoqs from qjga110 order by id desc",conn,3,3 rs.pagesize=10 therdcount=rs.recordcount thepages=rs.pagecount nowpage=request.querystring("nowpage") if nowpage="" then nowpage=1 nowpage=cint(nowpage) else nowpage=cint(nowpage) end if rs.absolutepage=nowpage n=0 i=0 %>

信息查询

按姓名：
按时间：	年月日--年月日

<% while not rs.eof and n <% n=n+1 rs.movenext wend %>

编号	姓名	联系电话	时间	类型	是否签收
<%=i%>	)><%=rs("name")%>	)><%=rs("tel")%>	)><%=strtodate(rs("thetime"))%>	)><%=strtotype(rs("thetype"))%>	)><%=strtoisnoqs(rs("isnoqs"))%>
共：<%=therdcount%>条记录共：<%=thepages%>页当前为：<%=nowpage%>页 <% if nowpage<>1 then response.write "首页 " end if if nowpage>1 and nowpage上一页下一页 " elseif nowpage=1 then theppage=nowpage+1 response.write "下一页 " elseif nowpage=thepages then thefpage=nowpage-1 response.write "上一页 " end if if nowpage<>thepages then response.write "末页 " end if %>

<% rs.close set conn=nothing set rs=nothing %>