<% if Request("action")="regUserInfo" Then if Request.Form("number")<>Session("GetCode") Then Call AlertUrl("没有填写验证码","Reg.asp") Response.End End if set rst=conn.execute("Select * from User_Info Where User_Account='"&trim(Request.Form("User_Account"))&"'") if Not rst.eof then Call AlertBack("该用户已经注册！") Response.End End if set rst=conn.execute("Select * from User_Info Where User_Email='"&trim(Request.Form("User_Email"))&"'") if Not rst.eof then Call AlertBack("该邮箱已经注册！") Response.End End if set rs=Server.CreateObject("ADODB.recordset") sql="select * from User_Info" rs.open sql,conn,1,3 rs.addnew rs("User_Account")=Request.Form("User_Account") rs("User_Password")=Md5(Request.Form("User_Password")) rs("User_Sex")=Request.Form("User_Sex") rs("User_Shen")=Request.Form("User_Shen") rs("User_Email")=Request.Form("User_Email") rs("User_Star")=now() rs.update rs.close set rs=Server.CreateObject("ADODB.recordset") sql="select * from Group_Info" rs.open sql,conn,1,3 rs.addnew rs("Group_Title")="工作" rs("Session_Id")=Request.Form("User_Account") rs.update rs.addnew rs("Group_Title")="生活" rs("Session_Id")=Request.Form("User_Account") rs.update rs.addnew rs("Group_Title")="娱乐" rs("Session_Id")=Request.Form("User_Account") rs.update rs.close set rs=Server.CreateObject("ADODB.recordset") sql="select * from Addr_Group" rs.open sql,conn,1,3 rs.addnew rs("Group_Title")="朋友" rs("Session_Id")=Request.Form("User_Account") rs.update rs.addnew rs("Group_Title")="同事" rs("Session_Id")=Request.Form("User_Account") rs.update rs.addnew rs("Group_Title")="同学" rs("Session_Id")=Request.Form("User_Account") rs.update rs.addnew rs("Group_Title")="家庭" rs("Session_Id")=Request.Form("User_Account") rs.update rs.close set rs=nothing conn.close set conn=nothing Session("User_Account")=Request.Form("User_Account") Session("User_Password")=Request.Form("User_Password") Call AlertUrl("注册成功！","FavNavigation.asp") End if %>