<%if cstr(session("getcode"))<>cstr(trim(request("captcha"))) thenresponse.Write ""response.endend ifset rs=server.CreateObject("adodb.recordset")sql="select * from [order]"rs.open sql,conn,1,3rs.addnewrs("username")=request("username")rs("location_p")=request("location_p")rs("location_c")=request("location_c")rs("location_a")=request("location_a")rs("phone")=request("phone")rs("email")=request("email")rs("qq")=request("qq")rs.updaters.closeset rs=nothingset rss=server.CreateObject("adodb.recordset")sql="select * from [email]"rss.open sql,conn,1,1uemail=rss("email")upass=rss("pass")rss.closeset rss=nothingOn error resume nextDim JMail, contentIdSet JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" JMail.ISOEncodeHeaders = False ' 是否進行ISO編碼,默認為TrueJMail.From =uemail ' 發送者地址JMail.FromName = "鹽城微信公眾平臺" ' 發送者姓名JMail.Subject = "注冊試用" ' 郵件主題JMail.MailServerUserName =uemail ' 身份驗證的用戶名JMail.MailServerPassword =upass ' 身份驗證的密碼' 設置優先級,范圍從1到5,越大的優先級越高,3為普通JMail.Priority = 3JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")' 加入一個收件人【變量email:收件人地址】可以同一語句重復加入多個JMail.AddRecipient("51291154@qq.com")JMail.AddRecipient("63023175@qq.com")' 加入附件【變量filename:附件文件的絕對地址,確保用戶IUSR_機器名有訪問的權限】' 【參數設置是(True)否(False)為Inline方式】'contentId = JMail.AddAttachment (Server.MapPath("jmail.html"), True)' 郵件主體(HTML(注意信件內鏈接附件的方式))JMail.HTMLBody = "     姓 名:"&request("username")&"
    區 域:"&request("location_p")&""&request("location_c")&""&request("location_a")&"
    電 話:"&request("Phone")&"
    email:"&request("email")&"
    qq:"&request("qq")&"
cache
Processed in 0.003444 Second.
新疆时时彩三星走势图 "' 郵件主體(文本部分)JMail.Body = "我們的郵件采用了HTML格式,但是您的郵件查看軟件可能不支持。。。郵件正文,郵件正文,郵件正文"' 發送【調用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】JMail.Send("smtp.163.com")' 關閉并清除對象JMail.Close()Set JMail = Nothingresponse.write ""response.End()%>