shopcreateorder.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 91 行

<!-- #include file="shop$db.asp" -->
<%
Dim dbc
'********************************************************************
action = request.form("action")
if action = "取消定购" Then
        ShopCancelOrder
        Response.Redirect "shoperror.asp?msg=" & Server.URLEncode ("Order Cancelled") 
end if
'如果是第一次进入到该页面，则显示订单信息，并让用户确认
if Action="" then
   ShopPageHeader
   LocateCustomer Session("LastName"), Session("Email")
   Session("Customerid")=strCustomerId
   DisplayForm
   ShopPageTrailer
'如果是本页面提交
else
   CreateOrder
end if
'**********************************************************************************
Sub CreateOrder
Dim dbc
dim limitmsg
oid=session("orderid")
ssl=Session("ssl")
if oid<> "" then
' 查看订单是否已经加入到数据库，因为如果用户单击确定按钮多次会导致多次执行
  ShopOpenDatabase  dbc                ' 打开数据库
  sql = "Select * from orders where Orderid=" & cint(oid)
  Set rsorder = dbc.Execute(SQL)
  if not rsorder.eof then
     set sorder=nothing
     ShopcloseDatabase dbc
     Response.Redirect ssl & "shopcheckout.asp" & "?db=" & Session("db") & "&oid=" & oid & "&cid=" & Session("customerid")     
  else
     rsorder.close 
     set sorder=nothing
  end if
end if
' 从表单中获得所有数据
For Each key in Request.Form
   strname = key
   if strname<>"shipcomment" then
      strvalue = Request.Form(key)
      Session(strname) = strvalue
   end if 
   Next
ShopAddOrder               ' 将订单增加到数据库
oid=Session("orderId")
if oid > 30 then
  ShopCancelOrder  
  GetLimitMsg limitmsg
  Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (limitmsg) 
else
   Response.Redirect ssl & "shopcheckout.asp" & "?db=" & Session("db") & "&oid=" & oid & "&cid=" & Session("customerid")
end if
end Sub

'******************************************************************************
Sub DisplayForm
%><font size="2"
<p align="center"><b>通常此时应该连接信用卡到认证站点<br>
 作为演示程序，这里不进行验证
</b>
<br><b><a href="shopmailform.asp">查看订单内容</a><b><br>
</font>

<center>
</p>
<P>
<FORM action="shopCreateOrder.asp" method=POST>
<P><INPUT name="action" type=submit value="马上定购!"> 
<INPUT name=action type=submit value="取消定购"> <br>

<%
dim remove
remove="NO"
CartFormat remove
%>
</P>
<center>备注或者其他说明<br>
<p><textarea rows="3" name="shipcomment" cols="66"></textarea></p>
<INPUT type="hidden" name="ordertotal" value="<%= Session("ordertotal")%>">
<P><INPUT name="action" type=submit value="马上定购!"> 
<INPUT name=action type=submit value="取消定购"> <br>
</table>
</P></FORM>
<%
End Sub
%>