📄 show.asp
字号:
<%
'此程序完成显示功能，显示各页的查询数据记录。
'得到指定的页数
Session("Rs").AbsolutePage=Request("Page")
%>
<Html>
<Body>
<%
'利用循环，一条一条记录地显示，知道最后一条记录 %>
<Table border=1 bordercolor="#000000" cellspacing="1" cellpadding="0" align="center" >
<Tr align=center valign=middle>
<Td><B>代码</B></Td>
<Td><B>图 书 名 称</B></Td>
<Td><B>出 版 社</B></Td>
<Td><B>种 类</B></Td>
<Td><B>作 者</B></Td>
<Td><B>描 述</B></Td>
<Td><B>单 价</B></Td>
<Td><B>库存</B></Td>
</Tr>
<%
For j=1 to Session("Rs").PageSize
Response.Write "<Tr valign=middle>"
'显示当前数据记录
For i=0 to Session("Rs").Fields.Count-1
Response.Write "<Td>"&Session("Rs")(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=Connect.asp -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -