本文最后给出一个例子，这是基于数据库的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>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
