📄 reg.asp
字号:
</tr>-->
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>性别：</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<select name=babysex id=Select1>
<option value=3 selected>请选择</option>
<option value=0>男</option>
<option value=1>女</option>
</select>
</td>
</tr>
<%'////////////送货方式
response.Write "<tr><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>送货方式：</td><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=songhuofangshi size=3 id=songhuofangshi>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
response.Write "</select><font color=red>*</font></td></tr>"
response.Write "<tr><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>支付方式：</td><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=zhifufangshi size=3 id=zhifufangshi>"
'////////////支付方式
rs2.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
set rs2=nothing
response.Write "</select><font color=red>*</font></td></tr>"
%>
<tr>
<td height=48 colspan=2 >
<div align=center>
<input onClick='return checkshouhuoxx();' type="image" border="0" name="submit32" src="images/xx.gif" width="54" height="18" >
<input type="hidden" name="useremail" value="<%=request("useremail")%>">
<!--<input type="hidden" name="userzhenshiname" value="<%=request("userzhenshiname")%>">-->
<input type="hidden" name="username" value="<%=request("username")%>">
<input type="hidden" name="userpassword" value="<%=request("userpassword")%>">
<input type="hidden" name="quesion" value="<%=request("quesion")%>">
<input type="hidden" name="answer" value="<%=request("answer")%>">
<input type="hidden" name="babyname" value="<%=request("babyname")%>">
<input type="hidden" name="babybirth" value="<%=request("babybirth")%>">
</div>
</td>
</tr>
</form>
</table>
<%case "save"%>
<!--#include file="md5.asp"-->
<%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 "<table width=760 border=1 cellspacing=0 cellpadding=0 align=center bordercolor=#EDECEC><tr> <td bordercolor=#FFFFFF bgcolor=#FFFFFF> <font color=red>对不起，您刚注册过用户。</font></td></tr><tr><td height=30 align=center><font color=red >请稍后再进行注册！</font></td></tr></table>"
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("adddate")=now()
rs("lastlogin")=now()
rs("logins")=1
'rs("youbian")=0
rs("zhifufangshi")=0
rs("songhuofangshi")=0
'新增加
'rs("babyname")=trim(request("babyname"))
'rs("babybirth")=trim(request("babybirth"))
rs("reglx")=1
rs("jifen")=0
rs("jiaoyijine")=0
Rs("sex")=1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
'rs("dadyname")=trim(request("dadyname"))
'rs("szSheng")=trim(request("szSheng"))
'rs("szShi")=trim(request("szShi"))
'rs("shouhuodizhi")=trim(request("shouhuodizhi"))
'rs("youbian")=trim(request("youbian"))
'rs("usertel")=trim(request("usertel"))
'rs("MoMname")=trim(request("MoMname"))
'rs("MoMNo")=trim(request("MoMNo"))
'rs("yuchan")=trim(request("yuchan"))
'rs("babysex")=trim(request("babysex"))
'rs("songhuofangshi")=trim(request("songhuofangshi"))
'rs("zhifufangshi")=trim(request("zhifufangshi"))
'论坛的
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("songxf")("username")=trim(request("username"))
response.Cookies("songxf")("jiaoyijine")=0
response.Cookies("songxf")("jifen")=0
response.Cookies("songxf")("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="<html>"
mailbody=mailbody & "<title>注册信息</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & trim(request("username"))&"，您好：<br><br>"
mailbody=mailbody & "欢迎您注册" & webname & "网上商城，我们将提供给您最好的服务！<br>"
mailbody=mailbody & "下面是您在" & webname & "网上商城的注册信息：<br><br>"
mailbody=mailbody & "注册名："&trim(request("username"))&"<br>"
mailbody=mailbody & "密 码："&getpass&"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "<center><font color=red>再次感谢您注册" & webname & "网上商城！</font>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
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="<li>您的注册信息已经发往您的邮箱，请注意查收。</li>"
else
sendmsg="<li>由于系统错误，给您发送的注册资料未成功。</li>"
end if
'response.write mailbody
'end if
response.Write "<table width=760 border=1 cellspacing=0 cellpadding=0 align=center bordercolor=#EDECEC><tr> <td bordercolor=#FFFFFF bgcolor=#FFFFFF> "
response.Write "<table width=80% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80 class=pad><font color=#cb6f00>用户注册成功</font><br>"
response.Write "<li>恭喜您已注册成为["&webname&"]正式用户，请记好您的用户名及密码</li><br>"
response.Write sendmsg&"<br>"
response.Write "<li><a href=index.asp>返回首页</a></li></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.write "<table width=760 border=1 cellspacing=0 cellpadding=0 align=center bordercolor=#EDECEC><tr> "
response.write "<td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center><table width=80% border=0 align=center cellpadding=2 cellspacing=0><tr><td class=pad><font color=#cb6f00>用户注册失败</font></td></tr><tr>"
response.write "<td class=pad ><font color=#FF0000>·您输入的用户名或Email地址已存在，请返回重新输入！<br>·<a href=javascript:history.go(-1)><font color=red>点击返回上一页</font></a> </font></td></tr></table></td></tr></table>"
end sub
%>
</td>
</tr>
</table>
<!--#include file="service1.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -