今天回答一位网友的提问，顺便把代码整理一下，做成一个简单的会员注册代码页面，该页面主要是处理会员注册，把注册信息写入到数据库，写入过程实现较错。
注册页面：index.asp 代码如下
<table width="300" border="1">
<tr>
<td> <div align="center">新用户注册</div></td>
</tr>
<tr>
<td><form name="form1" method="post" action="save.asp">
<label>姓名
：
<input name="username" type="text" id="username" />
<br />
密码：
<input name="password" type="text" id="password" />
</label>
<label> <br />
密码确认：
<input name="password2" type="text" id="password2" />
</label>
<label> <br />
QQ：
<input name="qq" type="text" id="qq" />
</label>
<label> </label>
<label> </label>
<label>
<input type="submit" name="Submit" value="提交" />
<input type="hidden" name="action" value="new" />
</label>
</form></td>
</tr>
</table>
数据库提交 save.asp 代码如下：
<!--#include file="conn.asp" -->
<%
dim username,password,password2,QQ
Username = Trim(Request("Username"))
password = Trim(Request("password"))
password2= trim(request("password2"))
qq=trim(request("qq"))
for i=1 to len(username)
user=mid(username,i,1)
if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" then
response.write "<script language=javascript>" & "alert('您的用户名含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(password)
pass=mid(password,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=javascript>" & "alert('您的密码含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
If Username = "" Or Password = "" Or Password2 = "" Then
response.write "<script language=javascript>" & chr(13) & "alert('请检查您填写的内容是否完整！');" & "history.back()" & "</script>"
Response.End
ElseIf Password <> Password2 Then
response.write "<script language=javascript>" & chr(13) & "alert('两次输入的密码不一到致！');" & "history.back()" & "</script>"
Response.End
End If
if QQ="" then QQ="无"
addsql="insert into 会员 (username,password,qq) values ('"&username&"' , '"&password&"' , '"&qq&"')"
set rs=conn.execute(addsql)
Conn.Close
Set Conn=Nothing
Response.Write "<center><br><br><br><br>注册成功！"
%>
数据库链接conn.asp 代码如下：
<%
dim DB, ConnStr
DB = "./access_db/admin.mdb"
ConnStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DB)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错[代码：01]，请检查数据库链接文件中的连接字串。"
Response.End
End If
%>
其中数据库是放在 access_db/admin.mdb 里面有个表名字叫做 会员 有3个列分别是username password qq