免费玩具销售系统的设计与实现(八)

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 系统测试与分析

首页 上一页 5 6 7 8 9 下一页 尾页 8/9/9

免费玩具销售系统的设计与实现(八)相关范文