www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > fs.asp

    <%
TakeFlag = request("TakeFlag")
dim gs,address,lxr,tel,fax,email,bz,content,Mail_Body
gs=replace(trim(request.Form("gs")),"'","")
address=replace(trim(request.Form("address")),"'","")
lxr=replace(trim(request.Form("lxr")),"'","")
tel=replace(trim(request.Form("tel")),"'","")
fax=replace(trim(request.Form("fax")),"'","")
email=replace(trim(request.Form("email")),"'","")
address=replace(trim(request.Form("address")),"'","")
content=replace(trim(request.Form("bz")),"'","")
content=replace(content,Chr(13),"<br>")

EmailText=""
EmailText=EmailText&"公司名称："&gs&"<BR>"
EmailText=EmailText&"联系地址："&address&"<BR>"
EmailText=EmailText&"联系人："&lxr&"<BR>"
EmailText=EmailText&"电话："&tel&"<BR>"
EmailText=EmailText&"传真："&fax&"<BR>"
EmailText=EmailText&"邮箱地址："&email&"<BR>"
EmailText=EmailText&"反馈信息："&content&"<BR>"

set jmail=server.CreateObject("jmail.message")
jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.logging = true   '启用邮件日志
jmail.charset="gb2312"
jmail.ContentType = "text/html" '邮件的格式为HTML格式 
jmail.AddRecipient "love6tt@qq.com"   '邮件收件人的地址
jmail.FromName = lxr'发件人姓名
jmail.subject = gs '邮件主题
jmail.Body = EmailText   '邮件的内容
jmail.from ="jmail@intime.cn" '发件人地址
jmail.MailServerUserName ="jmail@intime.cn" '登录帐户
jmail.MailServerPassWord ="12345678" '登录密码
err=jmail.send("mail.intime.cn") '邮件发送服务器
jmail.close
set jmail=nothing


if err then
Response.Write ("<script>alert('邮件发送成功！');javascript:history.back(1)</script>")
else
response.write ("<script>alert('邮件发送不成功');javascript:history.back(1)</script>")	
end if

%>