数 据 库 系 统 实 验 指 导 书
实验指导书
班级：0604202
姓名：060420201
实验报告的内容
1． 题目
描述每个实验的内容是什么。
1
数 据 库 系 统 实 验 指 导 书
2． 需求分析、程序数据流与功能图
用 E-R 图描述数据库的模式设计及每个关系模
式的建立；描述数据字典及程序数据流与功能图；
每个事件、函数或过程的头和规格说明；列出每个
过程或函数所调用和被调用的过程或函数，也可以
通过调用关系图表示。主要算法的框架。
3． 调试报告
调试过程中遇到的主要问题是如何解决的；对
设计和编码的回顾讨论和分析；改进设想；经验和
体会等。
4． 源程序清单和结果
源程序要加注释，要有测试数据及结果。
实验 1： 学习 Vbscript 语言 和 ASP 的 ADO
接 口 访 问 SQL SERVER2000 的 数 据 库
（4 学时）
本次实验的主要目的和内容：
2
数 据 库 系 统 实 验 指 导 书
1．熟悉 VBScript 在 HTML 中的应用
2．掌握 ASP 的 ADO 接口访问 SQL SERVER2000 数据
库
3．应用 ASP 开发基于 SQL SERVER 数据库的留言本
实 验 报 告 1
日期：2009 年 6 月
一．实验题目：应用 ASP 开发基于 SQL SERVER 数据库的留言
本
二．实验目的：
1. 熟悉 VBScript 在 HTML 中的应用
2. 掌握 ASP 的 ADO 接口访问 SQL SERVER2000 数据库
三．实验内容：
1.首先要在数据库系统中建立一个用于保存留言信息的表，
表中包括两个字段： NickName(留言者)，content（留言内
容）,dtime（留言时间），对应的类型分别是字符和日期/时间
（默认为 NOW），由于长度不定，可以设置的值大点。
2.然后是设计留言的表单，我设计的留言本比较简单，只用
到了一个文本框。
3.程序清单如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
strConnect="driver=SQL
Server;UID=Administrator;PWD=;Trusted_Connection=Y
es;DATABASE=lwb;APP= Microsoft Data Access
Components; Server=(local)"
set conn=Server.createobject("adodb.connection")//
数据库的连接
conn.open strConnect//连接字符串
if Request.form("liuyan")<>"" then
set cmd=Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection=conn
cmd.CommandText="INSERT INTO
one(content,dtime)
3
数 据 库 系 统 实 验 指 导 书
values('"&Request.form("liuyan")&"','"&date&"
"&time&"')"//向数据库中插入留言信息
cmd.Execute
end if
Response.Write date&" "&time
strSQL="select content,dtime from one order by
dtime desc"
'查询的 sql 语句
set rs=conn.execute(strSQL) //在数据库中的运行
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01
Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb2312">
<title>留言</title>
</head>
<body bgcolor="#6699FF" text="#FFFF00>//留言表
单设计
<form action="liuyan.asp" method="post">
输入留言
<textarea name="liuyan" cols=""
rows=""></textarea>
<input name="" type="submit">
</form>
<table>
<% do while not(rs.eof) %>
<tr>
4
数 据 库 系 统 实 验 指 导 书
<td>
<%=rs("content")%>
</td>
<td>
<%=rs("dtime")%>
</td>
</tr>
<%
rs.movenext()
loop
%>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
%>
5． 运行结果：如下图
图 1 留言本运行结果
四.实验心得
5
