regsave.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<title>注册成功</title>
<%
dim d_webname,d_pass,d_pass2,d_question,d_answer,d_mail,d_name,d_tel,d_tex,d_oicq
d_webname=trim(request("d_webname"))
d_pass=trim(request("d_pass"))
d_pass2=trim(request("d_pass2"))
d_question=request("d_question")
d_answer=request("d_answer")
d_mail=request("d_mail")
d_name=request("d_name")
d_tel=request("d_tel")
d_tex=request("d_tex")
d_oicq=request("d_oicq")

Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from duser where d_webname='"&d_webname&"'",conn
if not rs.EOF then
Response.Write "<font color=red><div align=center><br><br>该用户名已经存在</div></font>"
Response.End   
end if
rs.close
sql="select * from duser"
   rs.open sql,conn,1,3
   rs.addnew
   rs("d_webname")=d_webname
   rs("d_pass")=d_pass
   rs("d_pass2")=d_pass2
   rs("d_question")=d_question
   rs("d_answer")=d_answer
   rs("d_mail")=d_mail
   rs("d_name")=d_name
   rs("d_tel")=d_tel
   rs("d_tex")=d_tex
   rs("d_oicq")=d_oicq
   
   rs.update
   rs.Close
   set rs=Nothing
   
   conn.Close
   set conn=Nothing

   Response.Write"恭喜！您已注册成功"
   response.write"<br>"
response.write"<a href=index.asp>返回"
   %>