如何建立自已的数据库版本的留言簿,我们还是通过分步骤的方法来说明吧。要编写一个数据库版本的留言簿,我们大致可以从以下三个步骤来完成。
步骤三:又到编写处理留言的ASP程序了。(我们可以将下述代码COPY下来,然后另存为manage0a.asp文件。)
$#@60; !--#include file="adovbs.inc" --$#@62;
调用adovbs.inc文件,所谓inc 文件顾名思义是include file的意思,adovbs.inc是IIS/PWS所提供的文件,存放着ADO相关常数的定义,使用inc文件可以使我们的程序,增加可读性,更易于开发和维护。
$#@60; % Function SqlStr( data ) SqlStr = "" & Replace( data ", "" ) & "" End Function
这里用了SqlStr函数,其作用是将数据中的一个单引号改成两个单引号,并且在前后加上单引号。之所以要用该函数是由于上网者输入的数据
必须以用单引号括起来的形式输入的数据与Insert
Into命令组合在一起,但是如果用户输入的数据含有单引号,则输入的数据将会产生错误,因此输入的数据必须经过SqlStr的切换(将单引号切换成两个
单引号)才是正确的。
Name = Request("Name") Tel=Request("Tel") Email = Request("Email") Subject = Request("Subject") Memo = Request("Memo")
If Name = "" Or Tel="" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write "输入框不能为空白!" Response.End End If
检查表单的各输入框是否有信息输入,若留有空输入框没填则显示说明信息:"输入框不能为空白!" 并停止执行下面的程序。
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book0.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Name = Left( Name, 40 ) Tel = Left(Tel,10) Email = Left( Email, 80 ) Subject = Left( Subject, 127 )
sql = "Insert Into GuestBook (姓名, 电话, Email, 主题, 留言) Values( " sql = sql & SqlStr(Name) & ", " sql = sql & SqlStr(Tel) & ", " sql = sql & SqlStr(Email) & ", " sql = sql & SqlStr(Subject) & ", " sql = sql & SqlStr(Memo) & ")"
conn.Execute sql
执行sql指令。
%$#@62; |
|