📄 pagev1.asp
字号:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM grade"
rs.Open sql, conn, 3
rs.PageSize = 4
rs.AbsolutePage = 2
%>
<TABLE border="1"><TR>
<TD>学号</TD><TD>性别</TD><TD>姓名</TD><TD>数学</TD><TD>语文</TD><TD>英语</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
If rs.EOF OR rs.BOF Then Exit For
Response.Write("<TR>")
Response.Write("<TD>" & rs("学号") & "</TD>")
Response.Write("<TD>" & rs("性别") & "</TD>")
Response.Write("<TD>" & rs("姓名") & "</TD>")
Response.Write("<TD>" & rs("数学") & "</TD>")
Response.Write("<TD>" & rs("语文") & "</TD>")
Response.Write("<TD>" & rs("英语") & "</TD>")
Response.Write("</TR>")
rs.movenext()
Next
conn.close()
%>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -