duserto.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<%
dim d_name,d_ce,d_pass,d_pass2,d_tel,d_tex,d_mail,d_oicq,d_cs,d_ques
d_name=request("d_name")
d_ce=request("d_ce")
d_pass=request("d_pass")
d_pass2=request("d_pass2")
d_tel=request("d_tel")
d_tex=request("d_tex")
d_mail=request("d_mail")
d_oicq=request("d_oicq")
d_cs=request("d_cs")
d_ques=request("d_ques")

Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from duser where d_name='"&d_name&"'",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_name")=d_name
   rs("d_ce")=d_ce
   rs("d_pass")=d_pass
   rs("d_pass2")=d_pass2
   rs("d_tel")=d_tel
   rs("d_tex")=d_tex
   rs("d_mail")=d_mail
   rs("d_oicq")=d_oicq
   rs("d_cs")=d_cs
   rs("d_ques")=d_ques
   rs.update
   rs.Close
   set rs=Nothing
   
   conn.Close
   set conn=Nothing

   Response.Write"注册成功，您已成为“中国络网”的代理"
   %>