<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="wssd.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
'4.打开用户订单表
rs.open"select * from 用户订单表",cn,3
'5.循环输出记录
do while not rs.eof
%>
<p align="center"><b><font color="#0000FF">查看订单</font></b>
</p>
<p align="center"><font color="#0000FF">订单号：<% =rs("订单号")%>
用户号：<% =rs("用户号")%> 订购日期：<% =rs("订购日期")%>
总计金额：<% =rs("总计金额")%></font></p>
<div align="center">
<center>
<table border="1" bordercolor="#0000FF" cellspacing="0" cellpadding="8">
<tr>
<td>序号</td><td>图书名称</td><td>定购数量</td>
</tr>
<tr>
<td>0</td><td><% =rs("图书名称0")%></td><td><% =rs("定购数量0")%></td>
</tr>
<tr>
<td>1</td><td><% =rs("图书名称1")%></td><td><% =rs("定购数量1")%></td>
</tr>
<tr>
<td>2</td><td><% =rs("图书名称2")%></td><td><% =rs("定购数量2")%></td>
</tr>
<tr>
<td>3</td><td><% =rs("图书名称3")%></td><td><% =rs("定购数量3")%></td>
</tr>
<tr>
<td>4</td><td><% =rs("图书名称4")%></td><td><% =rs("定购数量4")%></td>
</tr>
<tr>
<td>5</td><td><% =rs("图书名称5")%></td><td><% =rs("定购数量5")%></td>
</tr>
<tr>
<td>6</td><td><% =rs("图书名称6")%></td><td><% =rs("定购数量6")%></td>
</tr>
<tr>
<td>7</td><td><% =rs("图书名称7")%></td><td><% =rs("定购数量7")%></td>
</tr>
<tr>
<td>8</td><td><% =rs("图书名称8")%></td><td><% =rs("定购数量8")%></td>
</tr>
<tr>
<td>9</td><td><% =rs("图书名称9")%></td><td><% =rs("定购数量9")%></td>
</tr>
<%
'6.移到下一记录
if not rs.eof then rs.movenext
loop
%>
</table>
</center>
</div>
<%
'7.关闭 Recordset 对象
rs.close
'关闭连接，并释放 Recordset 对象
cn.close
set rs=nothing
%>
<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>
</p>
</BODY>
</HTML>