返回主页|返回上页|新书介绍|大专教材|科学技术|社会科学|文化教育|联系我们
用户注册|购书指南|图书定购|查看订单|支付方式|图书配送|售后服务|用户留言
<%
'定义日期时间
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.打开计数表，向计数字段赋值,用Update写入
rs.open"select 计数 from 计数表",cn,adOpenDynamic,3
rs("计数")=rs("计数")+1
rs.Update
rs.close
rs.open"select 计数 from 计数表",cn,3
%>
网络天地书店
日期时间：<%response.write today %> 计数器：<% =rs("计数")%>
<%
rs.close
'4.打开图书记录表
rs.open"select * from 图书记录表",cn,3
%>
图书记录表数据访问页
系统管理
| 图书号 |
图书名称 |
作者 |
出版社 |
图书定价 |
图书类别 |
选购图书
|
<%
'5.循环输出记录
do while not rs.eof
%>
| <% =rs("图书号")%> |
<% =rs("图书名称")%> |
<% =rs("作者")%> |
<% =rs("出版社")%> |
<% =rs("图书定价")%> |
<% =rs("图书类别")%> |
">购买
|
<%
'6.移到下一记录
if not rs.eof then rs.movenext
loop
%>
<%
'7.关闭 Recordset 对象
rs.close
%>
<%
'关闭连接，并释放 Recordset 对象
cn.close
set rs=nothing
%>
