Write Data
Response.Write "<TD><A HREF='DeleteOrder.asp?No=" & objRS("订单编号") & "'>删除</A></TD></TR>"
Total = Total + objRS("金额") '将金额累计以得出总金额
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<CAPTION ALIGN="Right">总金额：<%= Total %></CAPTION>
<% End If %>
③ 删除购物车中商品
将购物车中商品连同数据库中对应项删去。主要代码如下：
<%
No = Request("No")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objConn.Open
strSQL = "delete from OrderDetail where 订单编号 ='" & No & "' "
objConn.Execute(strSQL)
%>
（2）订单的打印
① 填写订单
填写用户信息，并且显示购买情况和总金额。主要代码如下：
<!-- #include file="ADOFunctions.asp" -->
<%
strSQL = "select 玩具名称, 玩具价格, 数量, 金额 from OrderDetail where 用户帐号='" & Session("member_name") & "'"
Set objRS = GetSQLRecordset(strSQL, "ToyUniverse.mdf", "Orderdetail")
For I = 0 To objRS.Fields.Count - 1
Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
Next
Do While Not objRS.EOF
Data = "<TR HEIGHT='25'>"
For I = 0 To objRS.Fields.Count - 1
Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
Next
Response.Write Data & "</TR>"
Total = Total + objRS("金额")
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
② 提交订单
记录用户购买信息，更新数据库中订单表。主要代码如下：
<%
dim fhfs,fkfs,zsxm,sfzh,dh,mail,dz,yb
fhfs=request("fhfs")
fkfs=request("fkfs")
zsxm=request("zsxm")
sfzh=request("sfzh")
dh=request("dh")
mail=request("mail")
dz=request("dz")
yb=request("yb")
%>
<!--#include file="ADOFunctions.asp" -->
<%
dim objcon1
set objcon1=server.createobject("ADODB.Connection")
objcon1.ConnectionString=_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim objrs,strSQL1
strSQL1 = "select 订单编号 from OrderDetail where 用户帐号='" &_ Session("member_name") & "'"
Set objrs = GetSQLRecordset(strSQL1, "ToyUniverse.mdf", "Orderdetail")
do while not objrs.eof
for i=0 to objrs.fields.count-1
dim strsql
strsql="insert into Orders (订单编号,用户帐号,发货方式,付款方式,真实姓名,身份证号,联系电话,电子邮件,邮寄地址,邮政编码)values('"&objrs.fields(i).value&"','"&session("name")&"','"&fhfs&"','"&fkfs&"','"&zsxm&"','"&sfzh&"','"&dh&"','"&mail&"','"&dz&"','"&yb&"')"
objcon1.execute(strsql)
next
loop
objrs.close
set objrs=nothing
objcon1.close
set objcon1=nothing
%>
6 系统测试与分析
