<%=webname%>--新用户注册--

<%dim action action=FormatSQL(SafeRequest("action",0)) %>

购物流程
送货方式及费率
付款方式
交易条款
运输说明
保密安全
工作时间
商品销售和售后服务
适用法律和版权声明
关于VIP会员
常见问题

<% if left1<>"" then %> target="_blank"> border="0"> <% end if %>
<% if left2<>"" then %> target="_blank"> border="0"> <% end if %>

020-34506590
<%=webemail%>

| <% = webname %>

<% select case action case ""%>

<%=webname%>注册条约
<%call tiaoyue()%>

<%case "yes"%>

请填写用户信息
用 户 名： | 用户名长度不能小于2。
密　　码： | 长度必须大于6个字符。
确认密码： |
电子信箱： | 请您务必填写正确的E-mail地址，便于我们与您联系；
密码提示： |
密码答案： |
真实姓名： | 收货人姓名。
电话号码： | 请填写正确的号码，以便有急事联系。
腾讯 Q Q： | 网上联系
推 荐 人： |

<%case "save"%> <%call saveuser()%> <% end select%> <%sub tiaoyue() set rs=server.CreateObject("adodb.recordset") rs.Open "select rule from config",conn,1,1 response.Write trim(rs("rule")) rs.Close set rs=nothing end sub sub saveuser() dim rsrec,strgift,stradd,strresult if session("regtimes")=1 then response.Write "
对不起，您刚注册过用户。
请稍后再进行注册！
" response.End end if set rs=server.CreateObject("adodb.recordset") rs.open "select username,useremail from [user] where username='"&trim(request.form("username"))&"' or useremail='"&trim(request.form("useremail"))&"'",conn,1,1 if not rs.eof and not rs.bof then call usererr() rs.close set rs = nothing else rs.close rs.open "select webimg13,webimg7 from [config]",conn,1,1 strgift=Clng(rs("webimg13")) webimg7=Clng(rs("webimg7")) rs.close stradd=trim(request.form("recommender")) rs.open "select score from [user] where username='"&stradd&"' ",conn,1,3 if rs.eof and rs.bof then strresult="你填写的推荐人还没有被注册" stradd="timesshop" else strresult="给你的推荐人 "&stradd&" 加了 "& strgift &" 分" rs("score")=rs("score")+strgift rs.update end if rs.close rs.open "select * from [user]",conn,1,3 rs.addnew rs("username")=trim(request.form("username")) rs("UserPassword")=md5(trim(request.form("UserPassword"))) rs("useremail")=trim(request.form("useremail")) rs("UserQuestion")=trim(request.form("UserQuestion")) rs("UserAnswer")=md5(trim(request.form("UserAnswer"))) rs("recommender")=stradd rs("realname")=trim(request.form("realname")) rs("identify")=trim(request.form("identify")) rs("UserMobile")=trim(request.form("UserMobile")) rs("userqq")=trim(request.form("userqq")) rs("MSN")=trim(request.form("MSN")) rs("adddate")=now() rs("Img") = Request.ServerVariables("REMOTE_ADDR") rs("LastLogin")=now() rs("grpid")=4 rs("score")=webimg7 rs.update rs.close set rs=nothing response.Cookies("timesshop")("username")=trim(request.form("username")) Dim smtpserver,SendFrom,sendusername,sendpassword,subject,message,SendName,SendTO,MailType MailType = webbj4 smtpserver = webbj7 sendusername = webbj8 sendpassword = webbj9 SendName = webbj3 SendTO = trim(request.form("useremail")) SendFrom = webbj8 subject="您在"&webname&"的注册信息！" message="
" message=message & "您的注册信息" message=message & "
" message=message & "

" message=message & "
" message=message & trim(request.form("username"))& " 您好：
" message=message & "您在"&webname&"的注册信息：
" message=message & "用户名："&trim(request.form("username"))&"
" message=message & "密　码："&trim(request.form("UserPassword"))&"
" message=message & "
祝您购物愉快，我们将竭诚为您服务！" message=message & "

" message=message & "
" message=message & "
" Select Case MailType Case "Nothing" Case "CDONTS" call sendemail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,message) Case "Jmail" call SendJmail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,message,SendName) End Select %>

用户注册成功 恭喜 <% = request.form("username") %> ，您已注册成为[ <% = webname %> ]正式用户，请进行下一步操作： · <% = strresult %> ·为了方便您的购物，建议您填写详细的收货人资料 ·返回首页

<% end if end sub sub usererr() %>

>

用户注册失败
·您输入的用户名或Email地址已经被注册，请选用其他的用户名或者E-mail！ ·点击返回上一页

<% end sub %>