📄 catalog.asp.txt
字号:
<%
Sub ShowPage(objRS, PageNo) ' 这是分页子过程
' 设置目前页次，然后利用For...Next 循环显示出该页的记录
objRS.AbsolutePage=PageNo
For I=1 To objRS.PageSize
Data="<TR HEIGHT='30' BGCOLOR='#EDEAB1'>"
For J=0 To objRS.Fields.Count-1
Data=Data & "<TD>" & objRS.Fields(j).Value & "</TD>"
Next
Response.write Data
f1="<FORM METHOD=POST TARGET=Bottom ACTION='AddToCar.asp?Book="
f2=objRS("书名") & "&ISBN=" & objRS("出版社") & "&Price=" & objRS("定价") & "'>"
f3="<INPUT TYPE='text' NAME='Quantity' SIZE='5'></TD>"
f4="<INPUT TYPE=SUBMIT VALUE=放入购书篮></TD></FORM>"
Response.Write "<TD ALIGN=Center>" & f1 & f2 & f3 & "<TD ALIGN=Center>" & f4
objRS.MoveNext
If objRS.EOF Then Exit For
Next
End Sub
' 使用Connection对象打开数据库文件
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("store.mdb")
Conn.Open
' 从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM 网上书店"
RS.Open strSQL, Conn, 1,1
%>
<HTML>
<BODY BGCOLOR="LightYellow">
<%
' 设置分页大小
RS.PageSize=8
' 显示页次超级链接
For I=1 To RS.PageCount
Response.write "<A HREF='Catalog.asp?Page="& I & "'>" &_
"第" & I & "页" & "</A>" & " "
Next
%>
<TABLE BORDER=0 ALIGN=Center WIDTH=100%>
<TR BGCOLOR="#BABA76" HEIGHT="30" ALIGN="Center">
<%
' 读取表的字段名称以作为表格的标题
Data=""
For i= 0 To RS.fields.Count-1
Data=Data & "<Td>" & RS.Fields(i).Name & "</td>"
Next
data=data & "<Td>数量</Td>" & "<TH>订购</Td></tr>"
Response.Write Data
' 调用记录显示模块
If Session("Page") & Request("Page") = "" Then
ShowPage RS, 1
else
if Request("Page") <> "" Then Session("Page")=Request("Page")
ShowPage RS, Session("Page")
End If
' 关闭数据库连接并释放对象
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -