利用ASP打造个性化论坛(中)

二、构建
　　1、构建主窗体
　　先要给出一个窗体，能够让网友输入注册讯息，这些是HTML的内容，且放在一边，我们来仔细看看具体实现注册的ASP脚本。
　　(1)将资料中的单引号改成两个单引号，并且在前后加上单引号
　　Function SqlStr( data )
　　SqlStr = "'" & Replace( data,"'", "''" ) & "'"
　　End Function
　　注：这是一个自定义的函数，用来把用户输入中的单引号(')转换成两个单引号('')。在ASP中，用双引号围着的是字符串，因而上面的"'"代表的就是只有一个单引号的字符串。之所以要把一个单引号换成两个单引号，这是因为在SQL语句中，用单引号围起来是用来代表变量的。为了不至于混淆，就要把字符串中的单引号用两个单引号来表示。而所有的用户输入都要作为变量嵌入到SQL语句中的，所以这个函数是必不可少的。
　　(2)存贮准备
　　id=Request("id")
　　password=Request("password")
　　nickname=Request("nickname")
　　email=Request("email")
　　sex=request("sex")
　　注：把来自用户输入窗体中的内容保存在变量中，这不是必须的，但写了更容易读写。
　　if Request("name")=""then name=" " else name=request("name")
　　if Request("phone")=""then phone=" " else phone=request("phone")
　　因为这些内容不是必须填的，为了防止用户没有输入任何内容，而造成数据库操作上的错误，就必须把没有填入字段用空格来代替。
　　(3)建立连接
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
　　注：这一段是建立数据库连接，数据库的名称为bbssystem.mdb，这一段中唯一要注意的是Server.MapPath函数的应用。一般来说，凡是涉及到具体的目录的地方，都不要直接使用目录名，而用Server.MapPath函数来代替。善用好Server.MapPath和Request.ServerVariables()等函数，能够让你的WEB应用具有更好的可移植性。
　　Set cmd = Server.CreateObject("ADODB.Command")
　　(4)查询作者是否已存在
　　Set cmd.ActiveConnection = conn
　　cmd.CommandText = "查询作者"
　　ReDim param(0) ' 声明参数数组
　　param(0) = CStr(id) ' Cint 不可忽略
　　Set rs = cmd.Execute( ,param )