<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>asp分页程序</title>
<styletype="text/css">
<>
</style></head>
<body>
<p>
<tablewidth="186"height="39"border="1"cellpadding="0"cellspacing="0">
<tr>
<td>姓名</td>
<td>密码</td>
</tr>
<%
setrs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("zheng.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
sql="select*fromuser"
rs.opensql,conn,1,2
rs.pagesize=6'设置页面显示得页数
ifrequest("page")<>""then
epage=cint(request("page"))
ifepage<1thenepage=1
ifepage>rs.pagecountthenepage=rs.pagecount
else
epage=1
endif
rs.absolutepage=epage
fori=0tors.pagesize-1
ifrs.boforrs.eofthenexitfor
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("pass")%></td>
</tr>
<%
rs.movenext
next
%>
</table>
<divalign="left"><spanclass="STYLE1">
<formmethod="get"onsubmit=""document.location="c.asp?Page='+this.page.value;returnfalse;'">
<%ifepage=1thenresponse.Write("首页")elseresponse.Write("<ahref='c.asp?page=1'>"&"首页"&"</a>")%>
<%ifepage=1thenresponse.write("上一页")elseresponse.write"<ahref=c.asp?page="&epage-1&">上一页</a>"%>
<%ifepage=rs.pagecountthenresponse.write("下一页")elseresponse.write"<ahref=c.asp?page="&epage+1&">下一页</a>"%>
<%ifepage=rs.pagecountthenresponse.write("末页")elseresponse.write"<ahref=c.asp?page="&rs.pagecount&">末页</a>"%>
现在是第<fontcolor="red"><%=epage%></font>页一共有<fontcolor="red"><%=rs.pagecount%></font>页
<inputname="page"value="<%=epage%>"maxlength=5tyep=text/>
页
<inputtype=submitvalue=GO/></form>
</div>
<p></p>
<p>
<%
name=request("name")
pass=request("pass")
ifname<>""andpass<>""then
rs.Addnew
rs("name")=name
rs("pass")=pass
rs.update
rs.close
endif
%>
</p>
</p>
<formid="form1"name="form1"method="post"action="">
<p>
<inputname="name"type="text"id="name"/>
</p>
<p>
<inputname="pass"type="text"id="pass"/>
<inputtype="submit"name="Submit"value="提交"/>
</p>
</form>
<p>
<tablewidth="63%"border="0"cellpadding="0"cellspacing="1"bgcolor="#0000FF">
<%
setmrs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("zheng.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
sql="select*fromuser"
mrs.opensql,conn,1,1
IfmRs.bofandmRs.eofthen
Response.Write"<span>没有任何记录</span>"
Response.End
Else
mRs.PageSize=6'每页记录条数
iCount=mRs.RecordCount'记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
IfNotIsNumeric(page)orpage=""then
page=1
Else
page=cint(page)
EndIf
Ifpage<1then
page=1
ElseIfpage>maxpagethen
page=maxpage
EndIf
mRs.AbsolutePage=Page
Ifpage=maxpagethen
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
EndIf
EndIf
fori=1tomRs.pagesize
%>
<tr>
<tdwidth="64%"bgcolor="#FFFFFF"class="STYLE1"><%=mrs("name")%></td>
<tdwidth="36%"bgcolor="#FFFFFF"class="STYLE1"><%=mrs("pass")%></td>
</tr><%
mRs.movenext
IfmRs.eofthenexitfor
next
mRs.close
SetmRs=nothing
%>
<tr>
<tdcolspan="2"bgcolor="#CCCCCC">
<spanclass="STYLE1">
<%
callPageControl(iCount,maxpage,page)
SubPageControl(iCount,pagecount,page)
'生成上一页下一页链接
Dimquery,a,x,temp
action="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")
query=Split(Request.ServerVariables("QUERY_STRING"),"&")
ForEachxInquery
a=Split(x,"=")
IfStrComp(a(0),"page",vbTextCompare)<>0Then
temp=temp&a(0)&"="&a(1)&"&"
EndIf
Next
Response.Write("<tableborder='0'cellpadding='3'width='100%'align='center'>")
Response.Write("<formmethod=getonsubmit=""document.location='"&action&"?"&temp&"Page='+this.page.value;returnfalse;""><tr>")
Response.Write("<tdalign='center'bgcolor='#FFFFFF'>")
Ifpage<=1then
Response.Write("首页")
Response.Write("上一页")
Else
Response.Write("<ahref="&action&"?"&temp&"Page=1>首页</a>")
Response.Write("<ahref="&action&"?"&temp&"Page="&(Page-1)&">上一页</a>")
EndIf
Ifpage>=pagecountthen
Response.Write("下一页")
Response.Write("尾页")
Else
Response.Write("<ahref="&action&"?"&temp&"Page="&(Page+1)&">下一页</a>")
Response.Write("<ahref="&action&"?"&temp&"Page="&pagecount&">尾页</a>")
EndIf
Response.Write("页次："&page&"/"&pageCount&"页")
Response.Write("共有"&iCount&"条留言")
Response.Write("转到"&"<inputtyep=textname=pagemaxlength=5value="&page&">"&"页<inputtype=submitfont-size:9pt""value=GO>")
Response.Write("</td></tr></form>")
Response.Write("</table>")
EndSub
%>
</span></td>
</tr>
</table>
<spanclass="STYLE1">
</p>
</form>
</body>
</html>