六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

aspemail組件的應用

發表時間：2023-08-05 來源：明輝站整理相關軟件相關文章人氣：

[摘要]sub sendMail(a_intID , a_strEmail) const c_strMailServer = "smtp.163.net" dim o...
sub sendMail(a_intID , a_strEmail)
      const c_strMailServer = "smtp.163.net"
      dim objConn,objRs,strSql
      dim strContent,strBody,strSubject,objEmail
          
      strBody = "<html><head>"
      strBody = strBody + "<meta HTTP-EQUIV=Content-Type content=text/html; charset=gb2312>"      
      strBody = strBody + "</head><body bgColor=#d2b48c>"
      strBody = strBody + "<a href='http://www.china-168.net/center/default.asp>" + "<img src=http://www.china-168.net/center/images/banner.gif border=0>" + "</a>"
      strBody = strBody + "<h3 style='FONT-SIZE: 15px'>" + "請您確認" + "</h>" + vbcrlf
      strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "您好<a href=mailto:"&a_strEmail&">"&a_strEmail&"</a>" + "</td>" + vbcrlf
      strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "歡迎您訂閱萬里信息網郵件列表" +"</td>"
      strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "為了防止出現訂閱錯誤，請您點擊以下鏈接進行確認。謝謝！" + "</td>"
      strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "<a href=""http://www.china-168.net/EmailList/affirm.asp?Mode=MailList&content="&a_strEmail&""">" + "請點擊這里，進行訂閱確認" + "</a>"
      strBody = strBody + "<p style='FONT-SIZE: 13px'><a href=http://www.china-168.net target='_blank'>" + vbcrlf
      strBody = strBody + "<img src=http://www.china-168.net/images/logo.gif"
      strBody = strBody + " alt='更多信息盡在萬里信息網'></a><br>"
      strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "歡迎再次光臨萬里信息網！" + "</td>"
      strBody = strBody + "</body></html>"
      
      '發送email
      on error resume next
      set objEmail = server.CreateObject("Persits.MailSender")       
      objEmail.Host = c_strMailServer
      objEmail.From = "[email protected]"
      objEmail.FromName = "china-168.net"
      objEmail.AddAddress a_strEmail
      objEmail.Subject = "訂閱確認"
      objEmail.IsHTML = true
      objEmail.CharSet = "gb2312"
      objEmail.Body = strBody
      objEmail.Send
      
      '檢察錯誤
      if Err.number = 0 then   '如果成功
         Response.Write ("<p align=center class=cn>為確保用戶不被騷擾，我們將發出確認信,請訪問信中的URL以確認登記</td>")
      else                    '如果失敗則顯示出錯原因
         Response.Write ("<p align=center class=cn>郵件發送出錯，錯誤原因：<br>")
         Response.Write ("<font color=red>"&Err.Description&"</font></td>")
      end if   
      
      '清場
      set objEmail = nothing
  end sub

使用該過程：
<%
.....

RTSEmail GuestMailID,""&email&""
.....

%>




主站蜘蛛池模板： 日本啊v在线观看 | 中文有码中文字幕免费视频 | 日日噜噜噜噜人人爽亚洲精品 | 日本无卡码一区二区三区 | 亚洲网站www | 午夜色视频在线观看 | 午夜大片在线观看 | 欧美一卡二卡3卡4卡无卡免费 | 私色综合网 | 欧美一区不卡二区不卡三区 | 香蕉成人啪国产精品视频综合网 | 日本成人在线免费 | 亚洲五月婷 | 午夜免费啪视频观看网站 | 日本视频在线观看免费 | 中文字幕天堂网 | 日本视频免费观看 | 四虎影院地址 | 亚洲欧美综合在线观看 | 台湾中文娱乐综合久久久 | 日韩视频在线精品视频免费观看 | 天天天天天天天操 | 亚洲天堂高清 | 一二三四社区在线高清3 | 亚洲精品视频在线观看你懂的 | 日日干夜夜操s8 | 色网站免费观看 | 欧美天天性 | 日本一道在线观看 | 日韩在线视频网址 | 色综合网天天综合色中文男男 | 在线调教 | 特级黄一级播放 | 日本欧美黄色 | 亚洲自偷| 亚洲天堂精品在线观看 | 午夜影视污 | 中文字幕日本一区波多野不卡 | 青青青草视频 | 午夜影院免费观看视频 | 亚洲成a人片77777kkkk |