原码如下


<%
if trim(request("password"))<>trim(request("password1")) then
response.write "两次输入的密码不一致!!"
response.write("请返回重新注册")
response.end
end if
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
conn.open database,id,sql_pwd
sql= "Select * From userinfo where username='"+request("username")+"'"
rs.open sql,conn,adOpenStatic,adLockOptimistic
if rs.eof then
rs.addnew
rs("username")=trim(request("username"))
rs("password")=trim(request("password"))
rs("email")=trim(request("email"))
rs("name")=trim(request("name"))
rs("sex")=trim(request("sex"))
rs("address")=trim(request("address"))
rs("zipcode")=trim(request("zipcode"))
rs("phone")=trim(request("phone"))
rs("logip")=request.ServerVariables("REMOTE_ADDR")
rs("logtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

response.write("用户名"&request("username")&"注册成功,请返回")
else
response.write("用户名"&request("username")&"已有人使用,请返回换名输入")
end if

%>