代码如下：
其实不需要测试，要是偏要的话，那也差不多吧！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>








<%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from user where user='" & Trim(request.form("user")) & "'",conn,1,3

if not(rs.bof and rs.eof) then
%>

提示 — 此用户名称已经存在，请返回后重新填写！

<%
else
''新用户资料记录写入数据库
rs.addnew
rs("user")=request.form("user")
rs("pass")=request.form("pass")
rs("email")=request.form("email")
rs("url")=request.form("url")
rs("qq")=request.form("qq")
rs("date")=date
rs.updatebatch ''UPDATE函数
%>

恭喜您，您的资料已经成功提交！ 请返回首页重新登陆！便可进行投票！

<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

Copy By www.icyn.net All Right Reserved