godaddy空間使用CDO發(fā)送中文郵件例子
我先啰嗦幾句...國內(nèi)備案實(shí)在太麻煩,不得以,翻墻出去!而godaddy支持支付寶交易,對我們來說購買超級方便!而口碑也不錯(cuò)!所以選擇了godaddy!真正購買之后,的確不錯(cuò),空間速度跟國內(nèi)無異,只是
我先啰嗦幾句...
國內(nèi)備案實(shí)在太麻煩,不得以,翻墻出去!
而godaddy支持支付寶交易,對我們來說購買超級方便!
而口碑也不錯(cuò)!所以選擇了godaddy!
真正購買之后,的確不錯(cuò),空間速度跟國內(nèi)無異,只是ftp慢點(diǎn)!
買域名也送空間送郵箱,買空間則送大郵箱!實(shí)在太爽了!
不過gd的空間不支持我們常用的email組件,如Jmail或者ASPmail,只支持CDO以及CDONTS
dear,從來沒搞過,擺渡之后,得到CDO發(fā)信代碼!
能發(fā)信了,但是悲劇的事情是,中文竟然無法識(shí)別!
信不過擺渡,于是股溝。股溝終于有答案,并且成功發(fā)送中文郵件
稍加修改,代碼如下.....
emailbady="資料:
"
emailbady=emailbady "姓名 - "&Request.Form("name")&"
"
emailbady=emailbady "住址 - "&Request.Form("Address")&"
"
emailbady=emailbady "出生年月 - "&Request.Form("Birth")&"
"
emailbady=emailbady "電話 - "&Request.Form("phone")&"
"
emailbady=emailbady "電子郵件 - "&replace(Request.Form("email"),"@","#")&"
"
'emailbady=emailbady "電子郵件 - "&Request.Form("email")&"
"這里要注意,如果郵件主題帶有@將發(fā)不出去!要替換掉
emailbady=emailbady "其他問題或意見 - "&Request.Form("question")&"
"
emailbady=emailbady "提交時(shí)間 - "&Request.Form("Time")&"
"
on Error Resume Next
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804"
objConfig.Fields.Update()
Set objMail.Configuration = objConfig
objMail.Subject = "資料"
objMail.From = "account@youdomin.com" '這個(gè)發(fā)件人好重要,用126或163等的都不可以,你可以隨便用xxx@godaddy.com或在godaddy處注冊的域名都可以。
objMail.To = "account@youdomin.com"
objMail.BodyPart.ContentTransferEncoding = "7bit"
'如果使用多國語言時(shí),才要設(shè)定 Charset,這里超級重要,一定要聲明編碼類型,否則就是亂碼,這里就是亂碼的原因!
objMail.BodyPart.Charset = "utf-8"
objMail.HTMLBody = emailbady
'objMail.AddAttachment(http://xxxxxx/xxxx.xxx) '或者其他任何正確的url,包括http,ftp,file等等。這個(gè)是成功后跳轉(zhuǎn)網(wǎng)址
objMail.Send
Response.Write "郵件發(fā)送成功!
"&emailbady
if Err <> 0 then
response.write ""&Err.Description&""
response.end
end if
有網(wǎng)站用到在線發(fā)郵件,由于狗爹的空間不允許用第