</div></td></tr> <tr>

<td height="22"><div align=center>电话</div></td>

<td><div align=left>

<input name=phone type=text class=wenbenkuang id=phone size=35 value="<%=jinrs("电话

")%>">

</div></td></tr><tr>

<td height="26"><div align=center>Email:</div></td>

<td><div align=left>

<input name=email type=text class=wenbenkuang id=email size=35

value="<%=jinrs("email")%>">

</div></td></tr><tr>

<td height="26"><div align=center>备注：</div></td>

<td><div align=left>

<input name=memo type=text class=wenbenkuang id=memo value=无 size=35></div></td></tr>

<tr><td height="20"><div align=center>订单号：</div></td><td><strong><font

 color="#FF0000">

<!-- #include file="js/dingdan.asp" -->

<input type="text" name="number" disabled class=wenbenkuang>

<input type=hidden name=hidennumber>

</font></strong></td></tr><tr><td height="29" colspan=2><div align=center><img

src="image/confirm.gif" width="59" height="18" onClick="javascript:form2.submit()">

</div></td></tr></table></form>

<% end if %>

详细代码见光盘money . asp。

3.6.2处理订单信息

当用户填写订单信息并确认订单信息无误之后，点击【确定】按钮，将进入处理订单信息页面。该页面主要实现以下功能：

1)        保存结账信息。

2)        清空购物车。

3)        信息处理完毕后，返回首页方便用户继续购物。

处理订单页面是ASP页，没有浏览器运行效果。

当用户填写了订单住处并点击【确定】按钮之后，将进入订单信息处理页面。该页面首先将Session对象中存放的购物信息转化为字符串，为将其存入数据库提供方便。关键代码如下：

    <%

   arys_1=session("array")

   ary2=session("array2")

   ary=session("array3")

   if isarray(arys_1) then

   for i=0 to ubound(arys_1)-1

      str=str+arys_1(i)+","

         str2=str2+cstr(ary(i))+","

         str3=str3+cstr(ary2(i))+","

    next 

End if %>

获取订单填写页面的表单信息的关键代码如下：

yonghu=session("name")

    jine=request.form("jine")

    names=request.form("name")

    addre=request.Form("address")

    email=request.Form("email")

    phone=request.Form("phone")

    meg=request.Form("memo")

    dingdan=request.Form("hidennumber")

    fangshi=request.Form("select")

    yunshu=request.Form("typ")

将购物信息及表单中的信息存入数据库，因为这用户刚刚填写的表单，所以表单类型字段的值为“新订单”。关键代码如下：

dim dingconn,dingrs

   set dingconn=server.CreateObject("ADODB.Connection")

   dingconn.ConnectionString="PROVIDER=SQLOLEDB;

DATA SOURCE=(local);UID=sa;DATABASE=mrshop"

   dingconn.open 

   set dingrs=server.CreateObject("ADODB.RecordSet")

   sql="insert into 订单

values('"&str2&"','"&str&"','"&str3&"','"&session("dazhe")&"','"&jine&"','"&names&"','"&adder

&"','"&phone&"','"&email&"','"&dingdan&"','"&fangshi&"','"&meg&"','新订单','无

','"&yunshu&"')"

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>