ose
Set mConn=Nothing
/关闭创建的链接对象
至此，我们已给出了用ASP访问数据库的全过程，包括创建数据源－创建链接－创建数据对象－操作数据对象－关闭并释放。这其间由于应用面向对象思想，应该说所有操作都比较简单，用户需要注意的仅是对数据结构的了解，亦要清楚当前所操作的对象是什么，有什么属性，等等。只要对这些有了清醒的认识，再加上ASP的强大功能，在网络上应用你自己的数据库，就再也不是什么难事了！
本文最后给出一个例子，这是基于数据库的ASP留言簿程序，数据库结构如下：
guestbook.mdb
表lyb:
xm char(100), ly char(255) , sj datetime
文件guestbook.asp:
<html>
<head>
<title>lyb</title>
</head>
<body bgcolor=“＃ccccf0”>
<p>留言簿</p>
<form METHOD=“POST” action=“guestbook.asp”>
<input type=“hidden” name=“task” value=“insert”>
<p>姓名:<input TYPE=“text” SIZE=“20” NAME=“xm”></p>
<p>留言:</p>
<p><textarea ROWS=“5” COLS=“80” NAME=“ly”></textarea></p>
<p><input TYPE=“submit” VALUE=“记入留言簿” NAME=“B1”><input TYPE=“reset”
VALUE=“复原” NAME=“B2”></p>
</form>
<％
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.Open “lybdsn”,“”,“”
If Request(“task”)=“insert” then
xm=Request(“xm”)
sj = Date()
sj = sj ＆ “ ” ＆ Hour(Time()) ＆ “:” ＆ Minute(Time())
If Request(“ly”)=“” then
Response.write(“留言不能不输吧”)
Response.end
else
ly=Request(“ly”)
end if
sql=“INSERT INTO lyb (xm,sj,ly) VALUES ('” ＆ xm ＆ “','” ＆ sj ＆ “','” ＆ ly ＆ “') ”
conn.execute sql
End If
sql = “SELECT ＊ FROM lyb ORDER BY sj DESC”
Set rs = conn.Execute(sql) ％>
<％ On Error Resume Next
rs.MoveFirst
do while Not rs.eof ％>
<hr>
姓名:<％=Server.HTMLEncode(rs.Fields(“xm”).Value)％><br>
留于:<％=Server.HTMLEncode(rs.Fields(“sj”).Value)％><br>
留言:<％=Server.HTMLEncode(rs.Fields(“ly”).Value)％>
<％ rs.MoveNext
loop ％>
</body>
</html>
