regcheck.asp

源码源源码 源码 源码码源 码源 码源 码源 码

<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%dim addmoney,userid
if session("username")<>"" then
set moneyrs=conn.execute("select add_money from myweb_const where id=1")
addmoney=moneyrs("add_money")
moneyrs.close
'截取session的会员编号
set userrs=conn.execute("select userid from myweb_user where username='"&session("username")&"'")
userid=userrs(0)
userrs.close
end if
%>

<%dim username,password,email,province,city,userquestion,userpass,useranswer,userwebname,webtype,money,usermax,table
username=trim(request("username"))
password=trim(request("password"))
email=trim(request("email"))
province=trim(request.form("province"))
city=trim(request.form("city"))
userquestion=trim(request("userquestion"))
useranswer=trim(request("useranswer"))
userwebname=trim(request("userwebname"))
webtype=trim(request("webtype"))
userpass=trim(request("userpass"))
money=trim(request("money"))
usermax=trim(request("usermax"))
table=trim(request("table"))
if instr("|"&Conn.Execute("Select myweb_dns From [myweb_const] where id=1")(0)&"|","|"&username&"|")>0 then
response.write"<script>alert(""系统保留用户名，请换其他用户名！"");location.href=""javascript:history.go(-1)"";</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,userpassword,useremail,province,city,userquestion,useranswer,userpass,userwebname,webtype,money,tdcolor,allsize from [myweb_user] where username='"& username &"'"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("username")=username
rs("userpassword")=md5(password)
rs("useremail")=email
rs("province")=province
rs("city")=city
rs("userquestion")=userquestion
rs("useranswer")=useranswer
rs("userwebname")=userwebname
rs("userpass")=userpass
rs("webtype")=webtype
rs("money")=money
rs("tdcolor")=table
rs("allsize")=usermax
rs.update
conn.execute("Insert into [myweb_money] (userid,content) values ("&rs("userid")&",'session:<font color=red>"&money&"</font>') ")

'session
if session("username")<>"" then
set addrs=server.CreateObject("adodb.recordset")
sql1="select money,username from [myweb_user]  where userid="&userid&""
addrs.open sql1,conn,1,3
addrs.update
addrs(0)=addrs(0)+addmoney
addrs.update
addrs.close
'session
conn.execute("Insert into [myweb_money] (userid,content) values ("&userid&",'session:<font color=red>"&username&"</font>session:<font color=red>"&addmoney&"</font>') ")
end if
response.write"<script>alert(""恭喜您注册成功"");location.href=""default.asp"";</script>"
response.end
rs.close
else
response.write"<script>alert(""该用户名已经存在，请换其他用户名！"");location.href=""javascript:history.go(-1)"";</script>"
response.end
rs.close
end if
%>