天津市环境监测局|天津市环境监测中心|天津市天石伟业检测中心

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Ty=Trim(Request.QueryString("Type"))%> <% ServerName = "61.181.255.115" //邮件服务器地址 FromMail = "system@worthsoft.com.cn" //发信油箱\密码 FromPwd = "themaster" FUNCTION Send_Mail(ServerName,Sender,From,Pwd,MailTo,Subject,Message,sendermail) retval="bad" on error resume next Dim JMail, contentId,Domain,UserName,TextContent Set JMail = Server.CreateObject("JMail.Message") jmail.logging = true jmail.silent = true Domain=ServerName '有效的邮件服务器地址如果要求发信认证在前边加用户名：密码 UserName=Replace(Sender,"(","（") '发件人的名称 UserName=Replace(UserName,")","）") UserName=Replace(UserName,";","") '邮件头中不可以使用括号，否则发件人和发件地址都会变成乱码 TextContent="请按HTML格式查看" '文本内容 JMail.Charset = "gb2312" '邮件字符集，默认为"US-ASCII" jmail.ContentTransferEncoding = "base64" jmail.Encoding = "base64" jmail.ISOEncodeHeaders = false ' 登录邮件服务器所需的用户名\密码 jmail.MailServerUserName = From jmail.MailServerPassword = Pwd ' 发件人的E-MAIL地址 JMail.From = from JMail.FromName = UserName JMail.Replyto=sendermail JMail.Subject = Subject ' 设置优先级，范围从1到5，越大的优先级越高，3为普通 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个 JMail.AddRecipient(MailTo) ' 邮件主体（HTML(注意信件内链接附件的方式)） JMail.HTMLBody = Message ' 邮件主体（文本部分） JMail.Body = TextContent ' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】 if not jmail.Send(Domain) then Response.write "

LOG:" & jmail.log & "

" retval="bad" else Response.write "Message sent succesfully!" retval="good" end if JMail.Close() Set JMail = Nothing Send_Mail=retval END FUNCTION %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then if Session("CheckCode") <> cint(Trim(Request.Form("Check"))) then Response.Write "" Response.End() end if Subject=Request.Form("subject") To_Email_User=Request.Form("to_email_user") To_Email_Site=Request.Form("to_email_site") Ly_Name=Trim(Request.Form("姓名")) Ly_Sex=Trim(Request.Form("性别")) Ly_Compant=Trim(Request.Form("公司名称")) Ly_ComAdd=Trim(Request.Form("公司地址")) Ly_Tel=Trim(Request.Form("联系电话")) Ly_Fax=Trim(Request.Form("传真")) Ly_Mail=Trim(Request.Form("E-mail")) Ly_ComWeb=Trim(Request.Form("网址")) Ly_Subject=Trim(Request.Form("主题")) Ly_Content=Trim(Request.Form("留言内容")) Message="姓名 = " & Ly_Name & "
性别 = " & Ly_Sex & "
公司名称 = " & Ly_Compant & "
公司地址 = " & Ly_ComAdd Message=Message & "
联系电话 = " & Ly_Tel & "
传真 = " & Ly_Fax & "
电子邮件地址 = " & Ly_Mail Message=Message & "
公司网址 = " & Ly_ComWeb & "
主题 = " & Ly_Subject & "
内容 = " & Ly_Content Message=Message & "

" Message=Message & "
----------------系统信息----------------------- " Message=Message & "
提交时间：" & Now() Message=Message & "
协议版本：" & Request.ServerVariables("Server_Protocol") Message=Message & "
提交者IP地址：" & Request.ServerVariables("REMOTE_ADDR") Message=Message & "
浏览器版本：" & Request.ServerVariables("HTTP_USER_AGENT") Message=Message & "
留言板版本：4.9.27 " Message=Message & "
-------电子商务三大件网站、邮件、电子名片------- " Server.ScriptTimeOut = 300 '发送留言 Tmp = To_Email_User & "@" & To_Email_Site Tmp1 = Send_Mail (ServerName,"留言板",FromMail,FromPwd,Tmp,"留言",Message,Ly_Mail) '留言反馈 ReMessage=Message & "

此邮件为系统自动发送，不必回复！" Tmp2 = Send_Mail (ServerName,Subject,FromMail,FromPwd,Ly_Mail,"收到您的留言",ReMessage,Tmp) ReMessage="留言已经成功发送到 " & Ly_Mail & "。如果你提供的邮件地址是有效的，该邮箱也会收到一封确认邮件。" 'Response.Write "
Tmp1="&Tmp1&"
Tmp2="&Tmp2 if Tmp1="good" and Tmp2="good" then Response.Write "" else Response.Write "" end if Response.End() end if Randomize timer Session("CheckCode") = cint(8999*Rnd+1000) %> 天津市环境监测局|天津市环境监测中心|天津市天石伟业检测中心

设为首页　加入收藏　站点地图

	首页 \| 公司简介 \| 家庭室内环境检测 \| 工程室内环境检测 \| 桩基工程检测 \| 结构检测
	节能检测 \| 检测咨询 \| 仪器设备 \| 检测资质 \| 业内资讯 \| 客户实例 \| 联系我们