📄 7-2.asp
字号:
<html>
<!--#include file = adovbs.inc -->
<%
'设置每一页所要显示的记录条数，这里为10条。
PageSize=10
'以Recordset对象的Open方法参数设置的方法连接数据库
Set session("rs")=Server.CreateObject("Adodb.recordset")
Constr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("test.mdb")
Session("rs").cursorlocation=aduseclient
'用Recordset对象的Open方法连接数据库。
Session("rs").open "article",Constr,adopenkeyset,adlockreadonly,adcmdtable
'设置Recordset对象的每一页数据记录条数大小。
Session("rs").PageSize=PageSize
Response.write "<center><table border=3 bgcolor=00ffee cellspacing=0>"
Response.write "<tr>"
Response.write "<td>顺序</td>"
'显示表的各个数据字段的名称
for i=0 to session("rs").fields.count-1
Response.write "<td>"&Ucase(Session("rs")(i).name)&"</td>"
next
Response.write "</tr>"
for j=0 to Session("rs").PageSize-1
Response.write "<tr>"
'显示顺序值。
Response.write "<td>"&Session("rs").Absoluteposition&"</td>"
'其中session("rs").fields.count表示表的字段数
for i=0 to session("rs").fields.count-1
'把当前的数据记录显示出来
Response.write "<td>"&session("rs").fields(i).value&"</td>"
next
Response.write "</tr>"
'移到下一条数据记录，然后判断是否到表尾。
session("rs").movenext
if session("rs").Eof then
Exit FOR
End if
next
response.write "</table><br>"
%>
<%'引入另一个文件，完成翻页功能%>
<!--#include file=link2.asp-->
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -