regsave.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<!--#include file="conn.asp"-->
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")             
if request.form("netuserid")="" then errmsg=errmsg & "登陆代号不能为空 \n"              
if request.form("password")="" then errmsg=errmsg & "登陆密码不能为空! \n"
if request.form("repassword")="" then errmsg=errmsg & "确认密码不能为空! \n"
if request.form("password")<>request.form("repassword") then errmsg=errmsg & "两次输入密码不正确! \n"
if request.form("realname")="" then errmsg=errmsg & "真是姓名不能为空! \n"
if request.form("phone")="" then errmsg=errmsg & "联系电话不能为空 \n"
if request.form("bankname")="" then errmsg=errmsg & "开户银行不能为空 \n"
if request.form("cardname")="" then errmsg=errmsg & "银行卡号不能为空 \n"
if request.form("email")="" then errmsg=errmsg & "邮件地址不能为空 \n"
if request.form("qq")="" then errmsg=errmsg & "联系QQ不能为空 \n"
if request.form("weburl")="" then errmsg=errmsg & "网站地址不能为空 \n"
if request.form("tiaokuan")="" then errmsg=errmsg & "您没有同意本联盟注册条款 \n"
netuserid=request("netuserid")
if netuserid<>"" then
sql="select top 1 * from union_user where [unionid] = '"+netuserid+"'"
rs.open sql,Conn, 1, 3
if not rs.eof then errmsg=errmsg & "已经存在相同的登陆代号,请换一个登陆代号!! \n"
rs.close
end if
tuijian=request("tuijian")
if tuijian<>"" then
sql="select top 1 * from union_user where [unionid] = '"+tuijian+"'"
rs.open sql,Conn, 1, 3
if rs.eof then errmsg=errmsg & "联盟不存在您输入的推荐人帐号,如果没有推荐人请留空!! \n"
rs.close
end if
if errmsg<>"" then
   response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") 
else
		sql="select * from union_user where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("unionid")=request("netuserid")
		rs("password")=request("password")
		rs("name")=request("realname")
		rs("date")=savetime
		rs("phone")=request("phone")
		rs("bank")=request("bankname")
		rs("bnumber")=request("cardname")
		rs("email")=request("email")
		rs("qq")=request("qq")
		rs("url")=request("weburl")
		rs("tjid")=request("tuijian")
		rs.update
		rs.close		
set rs=nothing
conn.close
set conn=nothing
response.write("<script>alert('注册成功,请返回联盟首页进行登陆!');location.href='index.asp'</script>") 
response.end
end if
%>