aspemail组件的应用
2018-09-06 12:50
阅读：651
sub sendMail(a_intID , a_strEmail)
dim objConn,objRs,strSql
dim strContent,strBody,strSubject,objEmail
strBody = strBody + <a href=
+ vbcrlf
+ vbcrlf
<a href=
strBody = strBody + <img src=/edu/UploadPic/2007-12/200712913310812.gif
发送email
on error resume next
set objEmail = server.CreateObject(Persits.MailSender)
objEmail.Host = c_strMailServer
objEmail.FromName = china-168.net
objEmail.AddAddress a_strEmail
objEmail.Subject = 订阅确认
objEmail.IsHTML = true
objEmail.CharSet = gb2312
评论
亲，登录后才可以留言！