第酒团

<% if request("action")="add" then username1=trim(request("username1")) password=trim(request("password3")) email2=trim(request("email2")) questin=trim(request("questin")) anwser=trim(request("anwser")) yourfriend=trim(request("yourfriend")) pic=trim(request("pic")) pic2=trim(request("pic2")) if pic<>pic2 then response.Write("") else set rshadreg=conn.execute("select * from [member] where username1='"&username1&"'") if rshadreg.bof and rshadreg.eof then set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user]",conn,1,3 rs.addnew rs("UserName")=UserName1 rs("Password")=Password rs("email")=email2 rs("Question")=questin rs("Answer")=anwser rs.update rs.close set rs=nothing Email="divjiu@gmail.com" Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = "smtp.gmail.com" '发送邮件的服务器 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = username1 '邮件发送者的姓名 jmail.Sender = email2 '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = "注册会员 "&username1&" 的资料" '邮件的标题 jmail.Body = "用户名："&username1&"
密码："&password&"
Email："&email2&"
问题："&questin&"
答案："&anwser&"
哪个会员是你的朋友？"&yourfriend&"" '邮件的内容 'jmail.AddRecipientBCC Email '密件收件人的地址 'jmail.AddRecipientCC Email '邮件抄送者的地址 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 'smtpserver ="smtp.gmail.com" '修改SMTP服务器的用户名和密码 'smtpuser ="divjiu@gmail.com" 'smtppwd ="divjiuforever" response.Write("") response.Cookies("username")=username1 response.Cookies("username").Expires=Date+1 response.Redirect("index.asp") else response.Write("") end if end if end if %>

会员注册

请用英文填写登录第酒团使用的名字

登录名：登录名是否被占用

登录密码

(6-16个字符，区分英文大小写)

输入登录密码：

再次输入密码：

密码查询答案

“6个”字母、数字、空格或3个汉字以上（空格不能在首尾）

密码查询问题：

密码查询答案：

哪个团员是你的朋友？

安全邮箱

输入图片中的字符

<% randomize n=cint(rnd()*10000) n=right("00000"&n,5) session("mychar")=n %> <%=session("mychar")%> " />

我已经看过并同意《第酒团网络服务使用协议》。