這是一段簡單的asp分頁顯示代碼並以asp 分頁顯示原始碼的形式提供給大家，
| 代碼如下 |
複製代碼 |
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
</head>
<body>
<%
dim Conn,rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Dbq="&Server.MapPath("liouyan.mdb")&"; Driver={Microsoft Access Driver (*.mdb)}"
Conn.Open
set rs=Server.createObject("ADODB.RecordSet")
SQL="select * from userinfo"
rs.open SQL,Conn,1,1
if Not rs.Bof and Not rs. Eof then
dim page_no
if request.QueryString("page_no")="" then
page_no=1
else
page_no=Cint(Request.QueryString("page_no"))
end if
rs.pageSize=5
rs.AbsolutePage=page_no
dim I
I=rs.pageSize
do while Not rs.Eof and I>0
I=I-1
response.write rs("username") &"對你說:"&rs("word")& "<br>"
rs.MoveNext
loop
response.write"請選擇資料頁:"
for I=1 to rs.pageCount
if I=page_no then
response.write I &" "
else
response.write"<a href='xianshi.asp?page_no="&I&"'>" &I &"</a > "
end if
next
else
response.write"該記錄集為空白"
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
</body>
</html> |
