⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 send.asp

📁 线上售货网管理模组
💻 ASP
字号:
🔍 
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If request("Request_Method")="POST" Then
  email=request("email")
  sex=request("sex")
  cname=Left(request("cname"), 20)
  address1=request("address1")
  address2=request("address2")
  tel1=request("tel1")
  tel2=request("tel2")
  country=request("country")
  city=request("city")

  Domain = Request.ServerVariables("SERVER_NAME")
  Response.Cookies("email") = email
  Response.Cookies("email").Domain = Domain
  Response.Cookies("email").Expires = date()+30

  Set conn=Server.CreateObject("ADODB.Connection")
  param = "driver={Microsoft Access Driver (*.mdb)}"
  conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from members where email='" & email & "'"
  rs.open sqlstr,conn,3,2

  if rs.Recordcount <> 0 then
    rs.close
    conn.close
    Set rs=Nothing
    Set conn=Nothing
    response.write "<center><font size=6 color=ff0000>依媚儿与他人重覆</font><br><br>"
    response.write "<a href=index.asp><font size=6 color=ff0000>请按这里重新填写</font></a></center>"
    response.end
  end if
  rs.AddNew
  rs("cname")=cname
  pwd=GeneratePassword
  rs("pwd")=pwd
  rs("email")=email
  rs("address1")=address1
  rs("sex")=sex
  rs("guestip")=Request.ServerVariables("REMOTE_ADDR")
  rs.Update
  rs.close
  conn.close
  Set rs=Nothing
  Set conn=Nothing
  email_c="<font color=000088>" & cname & "</font> " & sex & " 您好：<br><br>" & vbCrlf
  email_c=email_c & "感谢您以 <font color=000088>" & email
  email_c=email_c & "</font> 登录Chome售物网会员，您的密码是" & Pwd
  email_c=email_c & "您也可以随时透过线上注销会员！<br><br>" & vbCrlf
  email_c=email_c & "欢迎您随时光临Chome售物网，谢谢！<br>如有任何的建议，<a href=mailto:" & email &">请来信</a>指正。" & vbCrlf
  Body="<html><head><meta http-equiv=Content-Type content=text/html; charset=big5><title>Chome售物网会员注册完成</title>" & vbCrlf
  Body= Body & "<style type=text/css>" & vbCrlf
  Body= Body & "<!--body { font-size: 9pt}" & vbCrlf
  Body= Body & "table { font-size: 9pt; background-color: CCCCCC; border-style: solid; border-width: 1 }" & vbCrlf
  Body= Body & "input { font-size: 9pt}" & vbCrlf
  Body= Body & "textarea { font-size: 9pt}" & vbCrlf
  Body= Body & "A:link { color: blue; text-decoration: none }" & vbCrlf
  Body= Body & "A:visited { color: purple; text-decoration: none }" & vbCrlf
  Body= Body & "A:active { text-decoration: none }" & vbCrlf
  Body= Body & "A:hover { color: red; text-decoration: underline}" & vbCrlf
  Body= Body & "--></style></head><body>" & vbCrlf
  Body= Body & "<center><a href=http://chome.rich2000.com.tw/><img src=http://chome.rich2000.com.tw/img/mail_check.gif width=500 height=39 border=0></a><br><br><br>" & vbCrlf
  Body=Body & "<table border=1 bordercolor=FFA000 cellspacing=3 cellpadding=3 width=600><tr><td width=100% bgcolor=FFF000 style=font-size: 10pt>"
  Body=Body & email_c & "</td></tr></table><br>" & vbCrlf
  Body= Body & "<a href=http://chome.rich2000.com.tw/><img src=http://chome.rich2000.com.tw/img/chome.gif border=0></a><br><br></center></body></html>" & vbCrlf

  'Call Send_Mail_check
  'Call Send_Jmail_check
  Call Send_ASPEMail_check
%>
<center><a href=http://chome.rich2000.com.tw/><img src=img/email_check.gif width=500 height=39 border=0></a><br><br><br>
<table border=1 bordercolor=FFA000 cellspacing=3 cellpadding=3 width=600><tr><td width=100% bgcolor=FFF000 style=font-size: 9pt><%=email_c%></td></tr></table></center>

<%
Function GeneratePassword()
  For i = 0 To 1
    Randomize
    tempPassword = tempPassword & right(CStr((9 - 0 + 1) * Rnd + 0),3)
  Next
  GeneratePassword = tempPassword
End Function

Sub Send_Mail_check()
  Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.BodyFormat = 0
  Mail.MailFormat = 0
  Mail.Bcc = "chinimin@ms6.hinet.net"  'ok副本送一份给站长
  Mail.To = email
  mail.From = "chinimin@ms6.hinet.net"
  Mail.Subject = "您的密码"
  Mail.Body = Body
  Mail.Send
  Set Mail = Nothing
End Sub

Sub Send_JMail_check()
  Dim Mail
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  'JMail.ServerAddress = "ms.chts.com.tw"
  JMail.ServerAddress = "ms6.hinet.net; tpts1.seed.net.tw"
  JMail.ContentType = "text/html"
  JMail.Charset = "Big5"
  JMail.SenderName = "Chome售物网"
  JMail.Sender = "chinimin@ms6.hinet.net"
  JMail.Subject = "您的密码"
  JMail.AddRecipientBcc "chinimin@ms6.hinet.net"
  JMail.AddRecipient email
  JMail.Body = Body
  JMail.Execute 
  Set JMail = Nothing
End Sub

Sub Send_ASPEMail_check()
  Dim objMail
  Set objMail = Server.CreateObject("Persits.MailSender")
  ObjMail.isHTML = True
  ObjMail.Host = "ms6.hinet.net"
  ObjMail.From = "chinimin@ms6.hinet.net"
  ObjMail.FromName = "Chome售物网"
  ObjMail.AddAddress "chinimin@ms6.hinet.net"
  ObjMail.AddBCC email
  ObjMail.Subject = "请回函确认您的会员注册"
  ObjMail.Body = Body
  ObjMail.Send
  Set ObjMail=Nothing
End Sub
%>
<% End If %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -