<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<% response.Expires=-1 %>
<% response.buffer=true %>
<%
dim rs,strconn,sql,page,n,k,mypagesize,t
set rs=server.CreateObject("ADODB.Recordset")
strconn="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("china.mdb")
sql="select names,card,addr,handset,tel,email from man"
rs.open sql,strconn,1,1
rs.movefirst
%>
<%
'page=request("page")
rs.pagesize=10
mypagesize=rs.pagesize
dim p
p=rs.pagecount
%>
<%
if not isnumeric(request("page")) or isempty(request("page")) then
page=1
else
page=int(abs(request("page")))
end if
dim pagedefault
dim pagecount,count
dim pagesize,page
pagesize=10
pagedefault=1
dim zjzlid
zjzlid=request("fileid")
page=request("page")
if not isnumeric(page) then
count=rs.recordcount
if count mod pagesize=0 then pagecount=int(count/pagesize) else pagecount=int(count/pagesize)+1
if page>pagecount then page=pagecount
for i=1 to (page-1)*pagesize
rs.movenext
next
%>