|
<%select case action
case ""%>
<%case "yes"%>
|
请您务必详细填写您的信息，并核对无误，用户请留下您的真实姓名。
未经您的允许，您的个人信息对外保密。(带 ** 号为必填项)
|
|
<%case "save"%>
<%call saveuser()%>
<%
end select%>
<%sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue from shop_config",conn,1,1
response.Write trim(rs("regtiaoyue"))
rs.Close
set rs=nothing
end sub
sub saveuser()
if session("regtimes")=1 then
response.Write ""
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where useremail='"&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("username"))
rs("userpassword")=md5(trim(request("userpassword")))
rs("useremail")=trim(request("useremail"))
'rs("quesion")=trim(request("quesion"))
'rs("answer")=md5(trim(request("answer")))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=1
rs("reglx")=1
rs("jifen")=0
rs("jiaoyijine")=0
rs("sex")=1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
'rs("dadyname")=trim(request("dadyname"))
'rs("szShi")=trim(request("szShi"))
'rs("MoMname")=trim(request("MoMname"))
'rs("MoMNo")=trim(request("MoMNo"))
'rs("yuchan")=trim(request("yuchan"))
'rs("babysex")=trim(request("babysex"))
'论坛的
rs("face")="userface/image1.gif"
Rs("width")=request("width")
Rs("height")=request("height")
rs("bbstype")=request("bbstype")
rs("userclass")="新手上路"
rs("userWealth")=100
rs("userEP")=50
rs("usercP")=50
rs("lockuser")=0
Rs("showRe")=1
rs("userinfo")="||||||||||||||||||||||||||||||||||||||||||"
rs("usersetting")="1|||0"
rs("titlepic")="level0.gif"
rs("usergroupid")=4
rs.update
conn.execute("update config set usernum=usernum+1,lastuser='"&username&"'")
rs.close
set rs=nothing
set rs=conn.execute("select top 1 userid,face from [user] order by userid desc")
userid=rs(0)
response.Cookies("godbook")("username")=trim(request("username"))
response.Cookies("godbook")("jiaoyijine")=0
response.Cookies("godbook")("jifen")=0
response.Cookies("godbook")("reglx")=1
response.Cookies("shangcheng").expires=date+1
Response.Cookies("aspsky")("username") = trim(request("username"))
Response.Cookies("aspsky")("password") = trim(request("userpassword"))
Response.Cookies("aspsky")("userclass") = "新手上路"
Response.Cookies("aspsky")("userid") = userid
Response.Cookies("aspsky")("userhidden") = 2
Response.Cookies("aspsky").path="/shop/bbs/"
Response.Cookies("aspsky")("usercookies") = 1
Response.Cookies("aspsky").Expires=Date+1
session("regtimes")=1
session.Timeout=1
set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing
'发送邮件
'if Forum_Setting(47)=1 then
on error resume next
'发送注册邮件
topic="您在" & webname & "的注册资料"
getpass=trim(request("userpassword"))
mailbody=""
mailbody=mailbody & "注册信息"
mailbody=mailbody & ""
mailbody=mailbody & ""
mailbody=mailbody & ""
mailbody=mailbody & trim(request("username"))&"，您好：
"
mailbody=mailbody & "欢迎您注册" & webname & "网上商城，我们将提供给您最好的服务！
"
mailbody=mailbody & "下面是您在" & webname & "网上商城的注册信息：
"
mailbody=mailbody & "注册名："&trim(request("username"))&"
"
mailbody=mailbody & "密 码："&getpass&"
"
mailbody=mailbody & "
"
mailbody=mailbody & "再次感谢您注册" & webname & "网上商城！"
mailbody=mailbody & " |
"
mailbody=mailbody & ""
mailbody=mailbody & ""
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient trim(request("useremail"))
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
if SendMail="OK" then
sendmsg="· 您的注册信息已经发往您的邮箱，请注意查收! "
else
sendmsg="· 系统出错，注册信息资料未能发送到您的邮箱! "
end if
'response.write mailbody
'end if
response.Write " "
response.Write "| "
response.Write " · 用户注册成功! · 恭喜您注册成为 ["&webname&"] 的正式用户，请记好您的用户名及密码! "
response.Write "· 返回首页 |
|
"
end if
end sub
sub usererr()
response.write ""
response.write "| "
response.write " · 用户注册失败! · 您输入的用户名或e-mail地址已存在，请返回重新输入! · 返回上一页 |
|
"
end sub
%> |
|
|