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

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

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&""
.....

%>




主站蜘蛛池模板： 伊人热人久久中文字幕 | 婷婷天天| 青草视频网 | 日韩在线操 | 欧美天堂在线观看 | 四虎在线精品 | 色噜噜噜噜色 | 伊人久热这里只有精品视频99 | 日韩成人在线影院 | 亚洲免费视频网站 | 亚洲一区二区三区在线免费观看 | 深夜毛片| 日本天堂网在线 | 午夜久久久久久亚洲国产精品 | 人人婷婷色综合五月第四人色阁 | 日韩一级黄色片 | 中文字幕精品一区影音先锋 | 欧洲一区 | 三级黄色免费看 | 日韩另类视频 | 日韩成人黄色 | 亚洲一级毛片 | 天啪天天天天拍天天碰 | 武则天一级淫片免费 | 婷婷六月天在线 | 日本韩国视频在线观看 | 亚洲第一在线播放 | 日日夜夜天天 | 欧洲亚洲综合 | 亚洲精品欧美综合 | 午夜丁香婷婷 | 日本在线观看高清不卡免v 日本在线观看a | 日韩精选在线 | 亚洲波多野结衣日韩在线 | 欧美一级黄色大片 | 天天影视色香欲综合网小说 | 伊伊人成亚洲综合人网香 | 七七七久久久久人综合 | 中文国产成人精品久久96 | 秋霞操 | 中国美女牲交一级毛片 |