www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > cn/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 %>