留言处理程序guest.asp 的代码如下：
〈％ @LANGUAGE＝″VBScript″ ％〉
〈％
Dim name，email，subject，memo
name＝trim（Request .form（″name″））
email＝trim（Request .form（″email″））
subject＝trim（Request .form（″subject″））
memo＝trim（Request .form（″memo″））
If name＝″″or email＝″″or subject＝″″Then
Response .write ″字段不能为空白！″
Response .end
End If
Application.Lock ′为防止数据库操作冲突，在操作数据库之前锁定数据库为当前会话所独享
％〉
〈HTML〉
〈HEAD〉
〈TITLE〉保存留言〈/TITLE〉
〈/HEAD〉
〈BODY 〉(www.xing528.com)
〈％
Dim conn，sql
Set conn＝Server .createobject （″adodb .connection″）
Conn.ConnectionString＝″DRIVER＝｛Microsoft Access Driver （＊.mdb）｝；DBQ＝″&_
Server.MapPath（″aspdb.mdb″）
Conn.open
sql＝″insert intoguestbook（name，email，subject，content）values（′″&name&″′，
′″&email&″′，′″&subject&″′，′″&memo&″′）″
conn.execute sql
Application.Unlock ′完成数据库操作，可以释放锁定的数据库操作权限
response.write ″〈H2align＝center〉留言成功，请〈a href＝″″guest.htm″″〉返回〈/A〉
留言页面〈/H2〉″
％〉
〈/BODY〉
〈/HTML〉
如果经过检验用户输入内容符合要求，本次留言的信息即被插入到数据库aspdb.mdb中，而这次留言的时间由数据库自动生成并插入到该条记录中。并会出现如图8-3所示的页面。
图8-3 留言处理成功页面
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
