《网络数据库 SQL》实验要求

班级：          学号：         姓名 ：     

SQLs_sy.htm   SQLs_sy1.htm

实验1 申请个人网站空间

实验2 建立站点主页

实验3 创建网上书店数据库

实验4 主页记录站点访问的计数器

实验5 查询网上书店库图书记录表，列出图书清单

实验6 实现用户注册和处理注册

实验7 实现查看用户资料和登录书店

实验8 制作用户留言列表和显示留言内容页面

实验9 实现搜索书名、作者、出版社、分类查书、按出版社查书

实验10 实现登录系统管理

实验11 实现修改图书记录表

实验12 实现购物小车和下单订购

* 个人网站空间使用说明

 1.“中国学生网”个人网站空间

    支持 ASP，但下载 ASP 网页不带 ASP 代码。

   浏览网上书店 浏览管理书店 

 2.“网易”个人网站空间

    不支持 ASP，但可以下载带 ASP 代码的网页。

    下载网上书店 下载管理书店 下载动态网页

实验1 申请个人网站空间

实验名称：申请个人网站空间

所用软件：IE 浏览器、CuteFTP 软件

实验目的：到中国学生网申请  50MB ASP 空间,在国际互联网上建立一个自己的家。

实验过程：

1.登录“中国学生网”购买交费的 网站空间，

 建立一个“互联网上的家园，展现自我的空间，勾画心中的蓝图，描绘美好的人生”。

  发展方向提供网络虚拟空间，如朋友留言、知已聊天、学术论坛、……。

  ASP 空间动态网页服务，支持ASP网页、ASP论坛、ASP留言版、Access数据库。

  50MB ASP 空间5个人共用每人10MB空间，每月交费4元，每人0.8元。

 2.共用的网站空间中每人一个文件夹，文件夹名用姓名的拼音首字母。

  每个人应有自己的主页 index.htm。

3.填写用户名和口令，要求用笔记录，用户名不能忘记。

  用户名：如，wltd828（网络天地828），只能用拼音或英文字母，不能用汉字。

  口令：******

 电子邮件：如，fsxss@tom.com，要求真实邮箱，

 用于接收学生网发送的有关个人网站空间开通的邮件。

4.交费开通个人网站空间后，下载文件上传下载软件 CutFTP32.rar。

 打开 CutFTP32 软件，建立新站点，填写资料。

  主机地址，如 asp2.6to23.com, vip.6to23.com, my.6to23.com

  用户名：如 wltd828

  口令：如，******

5.选择本地磁盘站点上的文件 如，index.htm，点击上传按钮传送到远程个人空间。

6.在 IE 浏览器地址栏输入网址，如 http://asp2.6to23.com/wltd828 ，

 打开个人主页。

心得体会：在实验中学习和掌握到什么技巧？有什么提高？有什么想法和建议？

实验2 建立站点主页

5.实验要求页面：填写班级、学号、姓名。链接实验结果。

6.要求个人主页链接：网络天地|实验要求|上机考试|网上书店

7.网上书店页面应有电子商务网上交易的界面。

  用户操作：

 用户注册|购书指南|图书定购|查看订单|支付方式|图书配送|售后服务|用户留言

   系统管理：数据库后台管理，添加、删除和修改数据，及时更新数据，处理有关业务。

系统管理员可以处理网上书店库的用户资料表、用户订单表、用户留言表。）

实验3 创建网上书店数据库

 网络数据库 wssdk97.rar wssdk2k.rar

  用有数据的数据库文件复盖无数据的数据库框架

 1.通过 SQL Server 企业管理器预选建无数据的数据库框架（P102）

 2.下载有数据的数据库压缩文件 wssdk_Data.rar wssdk_Log.rar，

   解压到 E:\本地站点\mdb1\ 中得 wssdk_data.mdf wssdk_log.ldf。

 3.关闭 SQL 服务管理器，用有数据的数据库文件复盖无数据的数据库框架。

 4.导出 SQL 网上书店数据库（P202）

   服务器：如，网络天地

实验4 主页显示站点访问的计数器

 计数器：每刷新一次页面计数一次，可以控制同一 IP 在1小时内只计数一次。

  数据库 wssdk97.rar wssdk2k.rar

  1.显示当前日期时间和记录站点访问的计数器，主页要存储为 index.asp。

 2.用ASP 组件显示当前日期时间。

 3.用 ASP 和 SQL 语言查询访问数据库 wssdk.mdb。（P56）

   创建数据库连接、记录集对象；打开记录表；

   输出计数表中计数字段的值；关闭数据库连接、关闭记录集对象。

<%

'定义日期时间

today=formatdatetime(now(),1)&formatdatetime(now(),3)

'1.创建连接对象 Connection

set cn=Server.CreateObject("ADODB.Connection")

'虚拟主机OLEDB：注意中国学生网要求的数据库引擎（驱动 OLEDB 连接），

'修改“/会员名/路径/数据库名”，要与实际对应。

cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

DATA SOURCE="&Server.MapPath ("/fsxss/mdb/wssdk.mdb")

'a.自管主机软件要求 Windows Server 2000 服务版，IIS 管理发布 Web 站点，

   支持 ASP 脚本运行。

'b.自管主机OLEDB：提供程序MICROSOFT.JET.OLEDB.4.0，

   数据源路径要对应本机硬盘物理路径。

'cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

DATA SOURCE="&Server.MapPath ("/mdb/wssdk.mdb")

'cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

DATA SOURCE=E:/E 网站编辑/mdb/wssdk.mdb"

'c.自管主机ODBC：无DNS、Access 数据库驱动程序，

   数据库查询 DBQ 路径要对应本机硬盘物理路径。

'cn.open "Driver={Microsoft Access Driver(*.mdb)};

DBQ=E:/网站编辑/mdb/wssdk.mdb"

'd.自管主机ODBC：无DNS、SQL 数据库驱动程序。

'cn.Open"Driver={SQL Server};Database=wssdk;

Server=Local Server;UID=sa;PWD="

'数据库驱动为 SQL Server；数据库名，如 wssdk；

'服务器名，如 Local Server，要与实际对应；

'用户身份可用系统管理员 sa；密码为空。

'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

%>

<p>

日期时间：<%response.write today %>

计数器：<% =rs("计数")%>

   浏览网上书店 下载网上书店

   图书记录表功能实现要点：

 1.用 ASP 和 SQL 语言查询访问数据库 wssdk.mdb。

 2.创建 set--打开 open--输出 write--关闭 close。

   打开“网上书店库”连接--打开“图书记录表”--输出“图书记录表”各字段

 2.1 创建数据库连接 set cn

   set cn=Server.CreateObject("ADODB.Connection")

实验6 实现用户注册和处理注册

   浏览网上书店 下载网上书店

  用户注册功能实现要点：yfzc.asp clzc.asp

1.使用用户注册的表单提交的数据对变量赋值。如，用户姓名、购书密码、确认密码、

联系地址、联系电话、邮政编码、电子邮件。

2.如果用户输入完整的数据、两次输入的密码相同，并使用电子邮件确认用户未注册时，然后使用 SQL语句对新用户注册。

3.用“电子邮件”字段值=dzyj 变量值的条件，检索该用户的“用户号”。

4.用 ASP 和 SQL 语言查询访问数据库 wssdk.mdb。

  创建数据库连接、记录集对象。（P118）

5.打开用户资料表；用AddNew向数据库请求添加新记录，向部分字段赋值,用 Update 更新数据。（P107）

6.检索出新注册用户号，输出用户相应的信息。

7.给用户提示操作错误的原因：用某邮箱的用户已经存在、两次输入的密码不一致、用户输入的信息不完整。

8.关闭数据库连接、关闭记录集对象。

<%

'1.使用客户机表单提交的数据（如，用户姓名 yfxm）对服务器内存变量 yfxm 赋值。

'用户姓名、购书密码、确认密码、联系地址、联系电话、邮政编码、电子邮件

dim yfxm,gsmm,qrmm,lxdz,lxdh,yzbm,dzyj

yfxm=request.form("yfxm")

gsmm=request.form("gsmm")

qrmm=request.form("qrmm")

lxdz=request.form("lxdz")

lxdh=request.form("lxdh")

yzbm=request.form("yzbm")

dzyj=request.form("dzyj")

'2.用户输入完整的数据、两次输入的密码相同后，进行后面的操作

if yfxm<>""and gsmm<>""and lxdz<>""and lxdh<>""and yzbm<>""and dzyj<>"" then

if gsmm=qrmm then

'3.使用电子邮件确认用户未注册时，然后使用 SQL 语句对新用户注册。

'用“电子邮件”字段值=dzyj 变量值的条件，检索该用户的“用户号”。

rs.open"select 用户号 from 用户资料表 where 电子邮件='"&dzyj&"'",cn,3

if rs.eof then

'找不到使用"&dzyj&"注册的用户

rs.close

'4.打开用户资料表，用AddNew向数据库请求添加新记录，向部分字段赋值,用Update写入

rs.open "用户资料表",cn,adOpenDynamic,3

rs.AddNew

rs("用户姓名")=yfxm

rs("购书密码")=gsmm

rs("联系地址")=lxdz

rs("联系电话")=lxdh

rs("邮政编码")=yzbm

rs("电子邮件")=dzyj

rs.Update

rs.close

'检索出新注册用户号

rs.open"select 用户号 from 用户资料表 where 用户姓名='"&yfxm&"'"

'5.输出用户相应的信息

%>

实验7 实现查看用户资料和登录书店

   浏览网上书店 下载网上书店

  查看用户资料功能实现要点：yfzl.asp yfzl.zip

1.创建连接对象 Connection，创建记录集对象 Recordset

2.打开用户资料表，循环输出记录。

  用户号、用户姓名、购书密码、联系地址、联系电话、邮政编码、电子邮件。

3.关闭 Recordset 对象，关闭连接，并释放 Recordset 对象。

  登录书店功能实现要点：yfdl.htm dlsd.rar

  输入用户姓名和购书密码正确后可以登录书店。

<%

'1.使用客户机表单提交的数据（如，用户姓名 yfxm）对服务器内存变量 yfxm 赋值。

'定义服务器内存变量：用户姓名、购书密码

dim yfxm,gsmm

yfxm=request.form("yfxm")

gsmm=request.form("gsmm")

'2.用户输入完整的数据、用户存在、密码正确，则进行后面的操作

if yfxm<>""and gsmm<>"" then

'3.验证登录的用户姓名、购书密码，反馈欢迎词。

'用“字段值=变量值”的条件确认用户，用户姓名='"&yfxm&"' and 购书密码='"&gsmm&"'。

rs.open"select 用户号 from 用户资料表 where 用户姓名='"&yfxm&"' and 购书密码='"&gsmm&"'",cn

if not rs.eof then

'找到使用"&yfxm&"的用户

response.write"<center>欢迎光临网络天地书店！</center>"

%>

实验9 实现搜索书名、作者、出版社、分类查书、按出版社查书

   浏览网上书店 下载网上书店

1. 搜索书名、作者、出版社、分类查书、按出版社查书功能实现要点：

  创建数据库连接、记录集对象；打开图书记录表；循环输出记录中各字段

  （图书号、图书名称、出版社、作者、图书定价、图书类别）的值；

 关闭数据库连接、关闭记录集对象。

2. 搜索图书名称、或作者、或出版社（P62）

 以书名的部分字进行模糊查询，如 “计”、“计算机”、“程序设计”。

 客户机表单提交搜索书名的关键字数据“ssgjz”，激活处理搜索的程序 clss.asp。

 <input type="text" name="ssgjz" size=10>

  使用客户机表单提交的数据（搜索关键字 ssgjz）对服务器内存变量赋值。

 打开图书记录表，从图书名称、或作者、或出版社字段搜索出符合搜索关键字图书记录。

<%

'1.使用客户机表单提交的数据（搜索关键字 ssgjz）对服务器内存变量 ssgjz 赋值。

dim ssgjz

ssgjz=request.querystring("ssgjz")

'2.用户输入的关键字不为空，进行后面的操作

if ssgjz<>"" then

'3.打开图书记录表

rs.open"select * from 图书记录表

 where 图书名称 like '%"&ssgjz&"%'

 or 作者 like '%"&ssgjz&"%'

 or 出版社 like '%"&ssgjz&"%' ",cn,3

3 按图书名称、作者和出版社综合查询图书 zhcx.asp

<%

'1.使用表单提交的数据（查询书名 cxsm、查询作者 cxzj、查出版社 ccbs）对变量赋值

dim cxsm,cxzj,ccbs

cxsm=request.querystring("cxsm")

cxzj=request.querystring("cxzj")

ccbs=request.querystring("ccbs")

'2.用户输入的关键字不为空，进行后面的操作

if cxsm<>"" and cxzj<>"" and ccbs<>"" then

'3.打开图书记录表

rs.open"select * from 图书记录表 where

图书名称 like '%"+cxsm+"%' and

作者 like '%"+cxzj+"%' and

出版社 like '%"+ccbs+"%' ",cn,3

%>

实验10 实现登录系统管理

   浏览网上书店 下载网上书店 登录管理  系统管理

 2.系统管理：数据库后台管理，添加、删除和修改数据，及时更新数据，处理有关业务。

 系统管理员查看、处理网上书店库的用户资料表、用户订单表、用户留言表。

实验11 实现修改图书记录表

   浏览网上书店 下载网上书店 修改图书 wssd1.asp

  图书列表  增加图书  修改图书  用户资料  查看订单  查看留言

   浏览网上书店 下载网上书店

 购物小车 下单订购

用 ASP 和 SQL 语言查询访问网络数据库主要代码

1.用 ASP 访问网络数据库的语句

  创建数据库连接 set cn

   set cn=Server.CreateObject("ADODB.Connection")

    打开“网上书店库”连接 Open.cn--wssdk.mdb

   cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

   DATA SOURCE="&Server.MapPath ("/fsxss/mdb/wssdk.mdb")

 创建记录集对象 rs

   set rs=Server.CreateObject("ADODB.Recordset")

2.显示图书记录的语句

   =rs("图书号")

3.查看代码，分析用户注册时，用户姓名写入网络数据库的语句。

4.查看代码，分析搜索图书名称、作者、出版社、分类查书、按出版社查书的模糊查询和准确查询的语句。

5.查看代码，分析验证登录的用户姓名、购书密码的语句。