发送邮件乱码

[zhuwei19881102]

亲爱的安联会员：
=C4诒菊镜淖⒉嶙柿先缦拢 br> =D3没篸h3344
=C3苈耄篸h3344

=C7肽】斓锹轿颐堑耐荆逖槲颐俏吹娜鹿δ堋 br> 请点击 http://www.alsp.cn/login.asp 登录

=C8绻⒚挥猩昵朊苈胝一囟盏酱擞始虮硎灸恼屎糯嬖诎踩迹爰笆钡锹酵拘薷哪拿苈耄悦獗坏痢 br> =CE颐堑耐罚 a href='http://www.alsp.cn/' target='_blank'>http://www.alsp.cn/


收到的结果是这样的，除了第一行不乱码，其他的都乱码

if isEmail(s_email) then

MailBody = ""

MailBody = MailBody & "亲爱的安联会员：" & "<br>" & vbcr
MailBody = MailBody & "您在本站的注册资料如下：" & "<br>" & vbcr
MailBody = MailBody & "用户名：" & s_username & "<br>" & vbcr
MailBody = MailBody & "密码：" & s_password & "<br>" & vbcr

MailBody = MailBody & "<br />" & vbcr

MailBody = MailBody & "请您尽快登陆我们的网站，体验我们为您带来的全新功能。" & "<br>" & vbcr

MailBody = MailBody & "<a href='http://www.alsp.cn/login.asp' target='_blank'>请点击 http://www.alsp.cn/login.asp 登录</a>" & "<br>" & vbcr

MailBody = MailBody & "<br />" & vbcr

MailBody = MailBody & "如果您并没有申请密码找回而收到此邮件，则表示您的帐号存在安全隐患，请及时登陆网站修改您的密码，以免被盗。" & "<br>" & vbcr

MailBody = MailBody & "我们的网址：<a href='http://www.alsp.cn/' target='_blank'>http://www.alsp.cn/</a>"



MailtoAddress = s_email

Sendstatus = SendMail(MailtoAddress,MailtoName,Subject,MailBody,MailFrom,FromName,MailServerUser,MailServerPass,MailDomain,MailServer,isimportance)

else

Sendstatus = False

end if

ForgetMail = Sendstatus

end Function

[franzhong]

编码统一