📄 pay2.asp
字号:
<%@ LANGUAGE="VBScript" %>
<script language="vbscript" src="details.vbs"></script>
<html>
<head><title>我的网络书店</title>
</head>
<body bgcolor="#99ffff">
<center>
<form name="fpay" action="dopay.asp" method="post">
<font size="5" face="楷体_GB2312"><b>生成订单</b></font><hr>
<%
If Request("ISBNs") = "" Or Request("nums") = "" Then ' 避免非法调用
msg = "您还没有订购任何图书！请订购后重试..."
Else
Set objConn = Session("objConn")
Set objRS = Session("objRS")
' 注释：获得新的订单编号
objRS.Source = "SELECT COUNT(*) AS rds FROM orderlist"
objRS.Open
newlistid = objRS("rds") + 1
objRS.Close
' 注释：生成插入语句并执行
mysql = "INSERT INTO orderlist(id, customerid, paytype," & _
"name, address, zipcode, tel, email, money) " & _
"VALUES (" & _
"'" & newlistid & "'," & _
"'" & Request("userid") & "'," & _
"'" & Request("paytype") & "'," & _
"'" & Request("name") & "'," & _
"'" & Request("address") & "'," & _
"'" & Request("zip") & "'," & _
"'" & Request("tel") & "'," & _
"'" & Request("email") & "'," & _
Request("sum") & ")"
objConn.Execute mysql
' 注释：获得新的购书清单编号
objRS.Source = "SELECT COUNT(*) AS rds FROM bookorder"
objRS.Open
neworderid = objRS("rds") + 1
objRS.Close
' 注释：生成插入语句并执行
aISBN = Split(Request("ISBNs"), ";")
anum = Split(Request("nums"), ";")
aprice = Split(Request("prices"), ";")
For i = 0 To UBound(aISBN)
mysql = "INSERT INTO bookorder " & _
"VALUES (" & _
"'" & neworderid + i & "'," & _
"'" & newlistid & "'," & _
"'" & aISBN(i) & "'," & _
"'" & anum(i) & "'," & _
aprice(i) & ")"
objConn.Execute mysql
Next
' 注释：给出提示信息
msg = "您的购书订单已经生成！我们将以最快速度来处理配送事宜..."
Set objRS = Nothing
End If
Response.Write("<p><b>" & msg & "</b>")
%>
<a href="#" onclick="vbscript:window.close">关闭窗口</a>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -