📄 7-1.asp
字号:
<html>
<!--#include file = adovbs.inc -->
<%
'设置每一页所要显示的记录条数，这里为10条。
Session("flag")=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方法参数意义分别是：表名，数据库连接信息，启动keyset类型的
'游标，采取的Lock类型为只读，指示ADO生成SQL查询以便从在Source中命名的表中
'返回所有行。
Session("rs").open "article",Constr,adopenkeyset,adlockreadonly,adcmdtable
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>"
'记录开始时，当前数据指针在Recordset对象的位置
Session("start")=Session("rs").AbsolutePosition
for j=0 to Session("flag")-1
Response.write "<tr>"
Response.write "<td>"&Session("rs").Absoluteposition&"</td>"
'记录结束时，当前数据指针在Recordset对象的位置
Session("end")=session("rs").Absoluteposition
'其中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
session("rs").MovePrevious
exit FOR
end if
next
response.write "</table>"
%>
<%'引入另一个文件，完成翻页功能%>
<!--#include file=link.asp-->
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -