sub saveuser() if session("regtimes")=1 then response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr><td height=300 align=center><font color=red>对不起,您刚注册过用户,请稍后再进行注册!</font></td></tr></table>" response.End end if set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where email='"&trim(request("useremail"))&"' or UserName='"&trim(request("username"))&"'",conn,1,1 if rs.recordcount>0 then call usererr() rs.close else rs.close set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user]",conn,1,3 rs.addnew rs("username")=trim(request("usern")) rs("password")=md5(trim(request("cupassword"))) rs("email")=trim(request("useremail")) rs("question")=trim(request("quesion")) if request("answer") <> "" then rs("answer")=md5(trim(request("answer"))) end if rs("rename")=trim(request("rename"))379 rs("personal") = trim(request("personal")) rs("address")=trim(request("address")) rs("city")=trim(request("city")) rs("sheng")=trim(request("sheng")) rs("post")=trim(request("post")) rs("QQ")=trim(request("QQ")) rs("phone")=trim(request("phone")) 'rs("songhuofangshi")=trim(request("songhuofangshi")) 'rs("zhifufangshi")=trim(request("zhifufangshi")) rs("InDate")=now() rs("lastlogin")=now() 'rs("logins")=1 rs("vip")=1 rs("zhifen")=0 rs("zhifen") = "2000-1-1" 'rs("jiaoyijine")=0 rs("sex")=request.Form("sex") 'rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")