高考问答野田洋次郎 结婚了吗:求ASP分页代码
来源：百度文库 编辑：高考问答 时间：2024/04/29 23:35:51
最好告诉我哪一部分放在哪里?等等
嘻嘻!
说明：：从“*******”处开始“+++++++”结束
<%Option Explicit%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>成员列表</title>
</head>
<body>
<h2 align="center">成员列表</h2>
<!--'先输出表格标题-->
<table border="0" width="90%">
<tr bgcolor="#D6FAED" align="center">
<td width="10%">姓名</td>
<td width="20%">电话</td>
<td width="30%">email</td>
<td width="20%">住址</td>
<td width="20%">简介</td>
</tr>
<%
Dim db,rs,strSql,mdbfile
mdbfile=server.mappath("address.mdb")
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq="&mdbfile
'如果用Connegtion对象先建立Connegtion对象源的话(
'建立Connegtion对象
'set db=server.createobject("ADODB.Connection")
'db.Open "Dsn=newaddr" '这里利用新的数据源)
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="Select * From users Order By name" '以姓名为序排列
rs.Open strSql,db,1 '因为要分页显示,所以用键盘指针
'下面查询记录 如果非空就显示记录 如果空 给就提示信息
If rs.Bof Or rs.Eof Then
Response.Write("现在还没数据")
Else
********************
'以下是分页显示
Dim page_size '定义每页多少条记录变量
Dim page_no '定义当前是第几页变量
Dim page_total '定义总的页数变量
page_size=5
'如果第一次打开则page_no为1,否则由传回参数决定
If Request.QueryString("page_no")=""Then
page_no=1
Else
page_no=Cint(Request.QueryString("page_no"))
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
++++++++++++++++
'下面一段利用表格显示当前页的所有记录
response.Write(page_no)
dim I
I=page_size
Do while Not rs.Eof And I>0
I=I-1
'下面将利用表格输出名单
Response.Write("<tr bgcolor='#00CCFF' align='center'>")
Response.Write"<td>"&rs("name")&"</td>"
Response.Write"<td>"&rs("tel")&"</td>"
Response.Write"<td><a href='mailto:"&rs("email")&"'>"&rs("email")&"</td>"
Response.Write"<td>"&rs("home")&"</td>"
Response.Write"<td>"&rs("intro")&"</td>"
Response.Write"</tr>"
rs.MoveNext
Loop
Response.Write"</table>"
Response.Write"<p>请选择数据页:"
'输出有关页数信息,从1到总页数循环,如不是当前页就加上超链接
For I=1 To page_total
If I=page_no Then
Response.Write(I)&" "
Else
Response.Write("<a href='list.asp?page_no="&I&"'>"&I&"</a> ")
end If
Next
end if
'关闭对象
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</center>
</body>
</html>