<%
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_mobile=Trim(Request.Form("移动电话"))
Ly_Fax=Trim(Request.Form("传真"))
Ly_ComWeb=Trim(Request.Form("网址"))
Ly_tel=Trim(Request.Form("电话"))
Ly_site=Trim(Request.Form("职位"))
Ly_City=Trim(Request.Form("省市"))
Ly_Cshi=Trim(Request.Form("城市"))
Ly_Content=Trim(Request.Form("其它需求"))
Ly_Country=Trim(Request.Form("国家"))
Ly_code=Trim(Request.Form("邮政编码"))
Ly_tel2=Trim(Request.Form("电话2"))
Ly_tel3=Trim(Request.Form("电话3"))
Ly_Mail=Trim(Request.Form("电子邮箱"))
Ly_mobile2=Trim(Request.Form("移动电话2"))
Message="姓名 = " & Ly_Name & "
职业 = " & Ly_Sex & "
公司名称 = " & Ly_Compant & "
公司地址 = " & Ly_ComAdd & "
邮政编码 = " & Ly_code & "
职位 = " & Ly_site
Message=Message & "
移动电话1 = " &Ly_mobile & "
移动电话2 = " & Ly_mobile2 & "
传真 = " & Ly_Fax & "
电子邮件地址 = " & Ly_Mail & "
电话 = " & Ly_tel & "
电话2 = " & Ly_tel2 & "
电话3 = " & Ly_tel3
Message=Message & "
公司网址 = " & Ly_ComWeb & "
地区 = " & Ly_Country & "" & Ly_City & "" & Ly_Cshi& "
需求 = " & 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)
%>
欧芳公司－联系我们
