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

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

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

%>

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 久久国产免费一区 | 夜夜狠| 绝色神偷无删减版完整在线观看 | 国产精品爱久久久久久久电影 | 欧洲欧美人成免费观看 | 久久在线免费 | 8888四色奇米在线观看不卡 | 黄页成人免费网站 | 啪啪午夜免费 | 国产综合另类小说色区色噜噜 | 国产精品极品美女自在线观看 | 天天骑天天干 | 国产nv精品你懂得 | 亚洲国产精久久久久久久 | 国内精品91最新在线观看 | 久久精品国产免费 | 欧美男同gay| 欧美 日韩 视频 | 成人国产在线不卡视频 | 性大交 | 国产麻豆精品在线观看 | 婷婷中文网 | a毛片全部播放免费视频完整18 | 伊人久久影视 | 性视屏 | 亚洲视频在线网 | 国产精品亚洲精品爽爽 | 操操操综合 | 波多野结衣中文一区二区免费 | 久久综合精品国产一区二区三区 | 国产欧美日韩在线一区二区不卡 | 小蝌蚪亚洲精品国产 | 中文字幕日韩精品一区口 | 精品国产免费第一区二区三区日韩 | 欧美一区二区精品 | 五月天激情亚洲婷婷在线 | 午夜国产秒拍福利视频 | 国产精品亚洲综合网站 | 2020亚洲欧美日韩在线观看 | 天天爱天天做天天爽天天躁 | 午夜99|