📄 onepage.fun
字号:
<%
Sub ShowOnePage( rs, Page )
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF >"
Response.WRITE "<TD><font size='2'>分页</font></TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD><font size='2'>" & rs.Fields(i).Name & "</font></TD>"
Next
Response.Write "</TR>"
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
Response.Write "<TR>"
RecNo = (Page - 1) * rs.PageSize + iPage
Response.Write "<TD><font size='2'>" & RecNo & "</font></TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD><font size='2'>" & rs.Fields(i).Value & "</font></TD>"
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -