📄 reg.asp
字号:
%>
<option value="<%=rs_s("ShengNo")%>"><%=trim(rs_s("ShengName"))%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
<select size="1" name="szShi">
<option value="xxx" selected>请选择城市……</option>
</select>
</td>
</tr>
<tr>
<td height=16 style='PADDING-LEFT: 20px'>详细地址：</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=shouhuodizhi type=text id=shouhuodizhi size=40 value="">
<font color=red>*</font></td>
</tr>
<tr>
<td height=16 style='PADDING-LEFT: 20px'>邮编：</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=youbian type=text id=youbian value="" maxlength="6" onKeyPress="event.returnValue=IsDigit();">
<font color=red>*</font></td>
</tr>
<tr>
<td height=17 style='PADDING-LEFT: 20px'>联系电话：</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=usertel type=text id=usertel value="">
</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>身份证号码：</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=MoMNo type=text id=MoMNo size=18 maxlength="18" value="" onKeyPress="event.returnValue=IsDigit();">
<font color=red>*</font> </td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>推荐人：</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=MoMname type=text id=MoMname size=12 value="">
<font color=red>*</font> （如没有推荐人可填写 <font color="#FF0000">无</font> ）</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>推荐日期：</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=yuchan type=text id=yuchan size=12 maxlength="8" value="" onKeyPress="event.returnValue=IsDigit();">
(请按格式输入八位数字，如:19780601)</td>
</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="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%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"--><%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 "<div align=center><font color=red size=60>对不起，您刚注册过用户。<br>请稍后再进行注册！</font></div>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail from [user] where useremail='"&trim(request("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
'算会员号码
dim iiii,tmpHyName,num1,rndnum
iiii=1
do while iiii>0
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
tmpHyName=left(request("youbian"),2)&right(year(now()),1)&rndnum
set rs=server.CreateObject("adodb.recordset")
rs.open "select username from [user] where username='"&tmpHyName&"'",conn,1,1
if rs.recordcount=0 then
rs.close
set rs=nothing
exit do
else
rs.close
set rs=nothing
end if
loop
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=tmpHyName
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")=0
'rs("youbian")=0
rs("zhifufangshi")=0
rs("songhuofangshi")=0
'新增加
rs("babyname")=trim(request("babyname"))
rs("babybirth")=trim(request("babybirth"))
rs("reglx")=1
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.update
rs.close
set rs=nothing
response.Cookies("bookshop")("username")=tmpHyName
response.Cookies("bookshop").expires=date+1
session("regtimes")=1
session.Timeout=1
response.Write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center background=images/bj.gif><tr><td >"
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 "·恭喜您已注册成为["&webname&"]正式用户，请记好您的用户编号：<font color=red>"&request.Cookies("bookshop")("username")&"</font><br>"
response.Write "·<a href=index.asp>返回首页</a></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center background=images/bj.gif><tr>"
response.write "<td ><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>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -