📄 bookorder.asp
字号:
<%@ LANGUAGE="VBScript" %>
<html>
<head><title>我的网络书店</title></head>
<body bgcolor="#FFFF99">
<center>
<font size="5" face="楷体_GB2312"><b>当前购书订单的详细内容</b></font><hr>
<%
' 如果结算清单上没有购物信息，则显示订单信息为空.........................
If Request("listid") = "" Then
Response.Write("<p><b>没有订单信息！不能浏览相关信息...</b>")
Else
' 注释：生成图书信息查询语句（注意该语句是关于三个数据表的联接查询）
mysql = "SELECT a.ISBN, a.price, a.number, " & _
"b.title AS btitle, b.author, " & _
"c.title AS ptitle " & _
"FROM bookorder AS a " & _
"JOIN book AS b ON b.ISBN = a.ISBN " & _
"JOIN Publisher AS c " & _
"ON PATINDEX('%-' + c.id + '-%',a.ISBN) > 0 " & _
"WHERE a.listid ='" & Request("listid") & "'"
Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open
' 注释：显示相关结果
If objRS.RecordCount > 0 Then
outstr = "<font color=red>【单击[书名]可查看图书的详细信息】</font>" & _
"<table border=1><tr>" & _
"<th>书名</th><th>书号</th><th>作者</th>" &_
"<th>出版社</th><th>订购单价</th><th>数量</th></tr>"
Response.Write(outstr)
End If
' 注释：使用循环语句生成信息串并输出
Do While Not objRS.EOF
outstr = "<tr>" & _
"<td><a href=detail.asp?ISBN=" & objRS("ISBN") & _
" target=_blank>" & objRS("btitle") & "</a></td>" & _
"<td>" & objRS("ISBN") & "</td>" & _
"<td>" & objRS("author") & "</td>" & _
"<td>" & objRS("ptitle") & "</td>" & _
"<td>" & objRS("price") & "元</td>" & _
"<td>" & objRS("number") & "</td>" & _
"</tr>"
Response.Write(outstr)
objRS.MoveNext
Loop
If objRS.RecordCount > 0 Then Response.Write("</table><hr>")
' 注释：关闭数据记录集
objRS.Close
Set objRS = Nothing
End If
%>
<a href="#" onClick="vbscript:window.close">关闭窗口</a>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -