register_save.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="config.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="Md5.asp" -->
<%
user_email= Replace(Trim(Request("email")),"'","")
user_password= Replace(Trim(Request("loginpass")),"'","")
user_password2= Replace(Trim(Request("verifypass")),"'","")
user_url= Replace(Trim(Request("user_url")),"'","")
user_note= Replace(Trim(Request("user_note")),"'","")
user_face= Replace(Trim(Request("user_face")),"'","")
pay_code= Replace(Trim(Request("pay_code")),"'","")
VerifyCode = Replace(Trim(Request("VerifyCode")),"'","")

if user_email = ""  then
	Response.Write("<script>alert(""错误：\n请填写完整电子邮箱"");history.go(-1);</script>")
	Response.End
end if
'if  user_password <> user_password2  then 
'	Response.Write("<script>alert(""错误：\n两次输入密码不相同"");history.go(-1);</script>")
'	Response.End
'end if

'if  VerifyCode <> CStr(Session("GetCode"))  then 
'	Response.Write("<script>alert(""错误：\n验证码错误"");history.go(-1);</script>")
'	Response.End
'end if

str="select * from kheu_nUser where user_email='"&user_email&"'"
set rs=server.createobject("adodb.recordset")
rs.open str,conn,3,1
if not rs.eof then
   response.write "<script language='javascript'>"
   response.write "alert('该用户已经有人使用，请重新注册！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if 
Session("GetCode")=""

UserPass = Left(md5(replace(trim(Request("loginpass")),"'","")),16)
set rs=server.createobject("adodb.recordset")
sql="select * from kheu_nUser"
rs.open sql,conn,3,3
rs.addnew
rs("user_email")=user_email
rs("user_password")=UserPass
rs("user_face")=user_face
rs("pay_code")=pay_code
rs("user_reg_date")=now()
rs("user_power")=100
rs("user_money")=0
rs("user_note")=user_note
rs("user_url")=user_url

rs.update
rs.close
conn.close
set conn=nothing
Response.Write("<script>alert(""注册成功:\n请用您的用户名和密码登陆"");location.href=""Login.asp"";</script>")
Response.End
call connclose()
%>