<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<TITLE>下单订购 </TITLE>
</HEAD>
<BODY LINK="#0000ff" VLINK="#800080" BACKGROUND="../cys.jpg">
<p align="center">
<a href="../index.asp">返回主页</a>|<a href="tsdg.asp">返回上页</a>
<a href="xsjs.asp">新书介绍</a>|<a href="whjy.asp">文化教育</a>|
<a href="dzjc.asp">大专教材</a>|<a href="kxjs.asp">科学技术</a>|
<a href="sfkx.asp">社会科学</a>|<a href="mailto:fsxss@tom.com">联系我们</a>
</p>
<p align="center">
<a href="yfzc.asp">用户注册</a>|<a href="gszn.asp">购书指南</a>|
<a href="tsdg.asp">图书定购</a>|<a href="ckdd.asp">查看订单</a>|
<a href="wszf.asp">支付方式</a>|<a href="tsps.asp">图书配送</a>|
<a href="shfw.asp">售后服务</a>|<a href="yfly.asp">用户留言</a></p>
<%
'定义日期时间
today=formatdatetime(now(),1)&formatdatetime(now(),3)
'1.创建连接对象 Connection
set cn=Server.CreateObject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&server.MapPath("/fsxss/mdb/wssdk.mdb")
'2.创建记录集对象 Recordset
set rs=Server.CreateObject("ADODB.Recordset")
'3.打开计数表
rs.open"select 计数 from 计数表",cn,3
%>
<p><center><a href="wssd.asp">网络天地书店</a>
日期时间：<%response.write today %> 计数器：<% =rs("计数")%>
</center>
<p>
<%
rs.close
'1.使用表单提交的数据对变量赋值，购书时检查用户是否完整输入用户号和购书密码。
dim yfh,gsmm
yfh=request.form("yfh")
gsmm=request.form("gsmm")
if yfh<>""and gsmm<>"" then
'2.检查用户到正确输入用户号和购书密码后，进行后面的定购图书操作。
rs.open"select 用户号 from 用户资料表 where 用户号='"&yfh&"'and 购书密码='"&gsmm&"'",cn
if not rs.eof then
rs.close
%>
<p align="center"><b><font color="#0000FF">处理订单</font></b>
</p>
<P ALIGN="CENTER">谢谢你的光临，你定购的图书将在货款收到后3天之内处理，</P>
<P ALIGN="CENTER">外地采取邮寄，本市采取送书上门！</P>
<P ALIGN="CENTER">用户号：<%=yfh%> 用户姓名：<%=rs("用户姓名")%></P>
<%
'3.打开用户订单表，用AddNew向数据库请求添加新记录，向部分字段赋值,用Update写入
rs.open "用户订单表",cn,adOpenDynamic,3
rs.AddNew
rs("图书名称0")=session("tsmc")(0)
rs("图书名称1")=session("tsmc")(1)
rs("图书名称2")=session("tsmc")(2)
rs("图书名称3")=session("tsmc")(3)
rs("图书名称4")=session("tsmc")(4)
rs("图书名称5")=session("tsmc")(5)
rs("图书名称6")=session("tsmc")(6)
rs("图书名称7")=session("tsmc")(7)
rs("图书名称8")=session("tsmc")(8)
rs("图书名称9")=session("tsmc")(9)
rs("订购数量0")=session("dgsl")(0)
rs("订购数量1")=session("dgsl")(1)
rs("订购数量2")=session("dgsl")(2)
rs("订购数量3")=session("dgsl")(3)
rs("订购数量4")=session("dgsl")(4)
rs("订购数量5")=session("dgsl")(5)
rs("订购数量6")=session("dgsl")(6)
rs("订购数量7")=session("dgsl")(7)
rs("订购数量8")=session("dgsl")(8)
rs("订购数量9")=session("dgsl")(9)
rs("用户号")=yfh
rs("总计金额")=session("zjje")
rs.Update
rs.close
'4.输出图书定购的相应信息
rs.open "用户订单表",cn,3
%>
<div align="center">
<center>
<table border="1" bordercolor="#0000FF" cellspacing="0" cellpadding="11">
<tr>
<td align="center">图书号</td>
<td align="center">图书名称</td>
<td align="center">定购数量</td>
</tr>
<%
for i=0 to 9
%>
<tr>
<td valign="top" align="center"><% =session("tsbh")(i)%></td>
<td valign="top" align="center"><% =session("tsmc")(i)%></td>
<td valign="top" align="center"><% =session("dgsl")(i)%></td>
</tr>
<tr>
<td align="center" colspan="3">总计金额：<% =zjje%>元</td>
</tr>
</table>
</center>
</div>
<%
'释放 session
session.abandon
else
'5.显示错误提示：未完整正确输入用户号和购书密码。
response.write"<center>错误：你的用户号和购书密码不正确！检查后重新输入。
</center>"
'关闭连接
rs.close
end if
set rs=nothing
cn.close
else
response.write"<center>错误：你必须输入用户号和购书密码！</center>"
end if
%>
<p align="center">
<a href="../index.asp"><img border="0" src="../fhzy.gif" width="92" height="25"></a>
<a href="tsdg.asp"><img border="0" src="../fhsy.gif" width="92" height="25"></a>
</FONT></p>
</BODY>
</HTML>