<%select case action
case ""%>
| 请用户仔细阅读<%=webname%>注册条约捞固瘤 |
|
|
|
|
<%case "yes"%>
请您务必详细填写您的信息，并核对无误，国内用户请留下您的真实中文姓名。
未经您的允许，您的个人信息对外保密。(带 * 号为必填项)
|
|
<%case "save"%>
<%if request("Qy")="yes" then
if request("Qy_Name")="" then
response.Write ""
end if
if request("Qy_Tel")="" then
response.Write ""
end if
if request("Qy_Email")="" then
response.Write ""
end if
call saveuser()
Else
call saveuser()
End if
end select
sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue from config",conn,1,1
response.Write trim(rs("regtiaoyue"))
rs.Close
set rs=nothing
end sub
sub saveuser()
set rse=server.CreateObject("adodb.recordset")
rse.open "select * from [userb] where email='"&trim(request("useremail"))&"' or username='"&trim(request("username"))&"'",conn,1,1
if not(rse.bof or rse.eof) then
call usererr()
rse.close
Else
'Star_____________________________________
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [userb]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword")))
rs("email")=trim(request("useremail"))
rs("name")=trim(request("userzhenshiname"))
rs("sex")=trim(request("sex"))
rs("telphone")=trim(request("usertel"))
rs("zip")=trim(request("youbian"))
rs("address")=trim(request("address"))
rs("idcard")=trim(request("idcard"))
rs("work")=trim(request("work"))
rs("jifen")=0
rs("lastlogin")=now()
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs("logins")=1
rs("regdate")=now()
Qy=request("Qy")
if Qy="yes" then
rs("reglx")=3
else
rs("reglx")=1
end if
rs("Qy_Name")=trim(request("Qy_Name"))
rs("Qy_Tel")=trim(request("Qy_Tel"))
rs("Qy_Email")=trim(request("Qy_Email"))
rs.update
rs.close
set rs=nothing
response.Cookies("Gemisum")("username")=trim(request("username"))
Qy=request("Qy")
if Qy="yes" then
response.Cookies("Gemisum")("reglx")=3
else
response.Cookies("Gemisum")("reglx")=1
end if
response.Cookies("Gemisum")("yucun")=0
response.Cookies("Gemisum")("jifen")=0
session("regtimes")=1
session.Timeout=1
'发送邮件
'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
'End--------------------------------------
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
%>
|
|
