日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

aspemail組件的應用

aspemail組件的應用

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

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 = "jiabaoxu@163.net"
      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&""
.....

%>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 九九在线精品视频xxx | 99精品在线视频观看 | 手机看片国产在线 | 日本www高清免费视频观看 | 深爱综合网 | 男女午夜免费视频 | 国产步兵社区视频在线观看 | 九九久久99综合一区二区 | 日本中文字幕在线观看视频 | 成年人免费在线视频观看 | 国产日韩视频在线 | 视频一区二区三区在线观看 | 国产在线视频国产永久视频 | 国产特级 | 精品中文字幕一区二区三区四区 | www.日本在线视频 | 九一在线完整视频免费观看 | 在线观看日韩欧美 | 久久99影院网久久久久久 | 老司机精品视频一区二区 | 欧美日韩中文国产一区二区三区 | 99久久精品国产免费 | 停停色| 国产视| 黄网站免费在线观看 | 久色99| 日韩欧美一级毛片视频免费 | 免费一级 一片一毛片 | 欧美性生活网址 | 亚洲精品亚洲人成毛片不卡 | 九九视频在线观看视频6偷拍 | 免费番茄社区性色大片 | 日韩在线欧美高清一区 | 国产69精品久久 | 天天干天天干天天操 | 国产精品91在线播放 | 国产日批视频 | 青青青国产精品视频 | 97国产影院 | 激情六月丁香 | 伊人久久综合影院首页 |