<%
if request.querystring("action")="add" then
dim proname,fax,procompany,company,email,youzheng,tel,address,content,motel,name
name=replace(trim(request.Form("name")),"'","'")
email=replace(trim(request.Form("email")),"'","'")
tel=replace(trim(request.Form("tel")),"'","'")
motel=replace(trim(request.Form("motel")),"'","'")
fax=replace(trim(request.Form("fax")),"'","'")
company=replace(trim(request.Form("company")),"'","'")
address=replace(trim(request.Form("address")),"'","'")
content=replace(trim(request.Form("content")),"'","'")
content=HTMLEncode2(content)
if name="" or email="" or content="" then
response.Write("")
response.End()
end if
dim mailserver,mailserverloginname,mailserverloginpass,mailuserdomain,frommail
'+++++++++++++++++++++++++++++
' 参 数 设 置
'+++++++++++++++++++++++++++++
'用来发送邮件的SMTP服务器 xiaofeng3015@163.com
mailserver="smtp.163.com"
'发信人信箱
frommail="cdmsjw@163.com"
'如果服务器需要SMTP身份验证则：
'登录用户名
mailserverloginname="cdmsjw@163.com"
'登录密码
mailserverloginpass="111111"
'域名（如果你用“name@domain.com”这样的用户名登录时，请指明domain.com
mailuserdomain= "填在这里"
'收信人信箱 nhswh
tomail="patrick@up-plate.com"
'邮件主题
mailtitle="网站客户"&name&"的留言"
'邮件内容
mailfoot=""
mailbody="请勿直接回复此邮件，回复的邮箱地址应该是下面E - mail的地址
"&vbcrlf & _
""&vbcrlf & _
"姓 名：
"&vbcrlf & _
" | "&vbcrlf & _
""&NAME&vbcrlf & _
" | "&vbcrlf & _
"
"&vbcrlf & _
" "&vbcrlf & _
"公 司： | "&vbcrlf & _
""&company&" | "&vbcrlf & _
"
"&vbcrlf & _
""&vbcrlf & _
"地 址： | "&vbcrlf & _
""&address&vbcrlf & _
" | "&vbcrlf & _
"
"&vbcrlf & _
""&vbcrlf & _
"电 话： | "&vbcrlf & _
""&TEL&vbcrlf & _
" | "&vbcrlf & _
"
"&vbcrlf & _
""&vbcrlf & _
"手 机： | "&vbcrlf & _
" "&motel&" | "&vbcrlf & _
"
"&vbcrlf & _
""&vbcrlf & _
"传 真： | "&vbcrlf & _
""&FAX&" | "&vbcrlf & _
"
"&vbcrlf & _
" "&vbcrlf & _
"E - mail： | "&vbcrlf & _
""&EMAIL&vbcrlf & _
" | "&vbcrlf & _
"
"&vbcrlf & _
" "&vbcrlf & _
" 留言内容： | "&vbcrlf & _
""&content&vbcrlf & _
" | "&vbcrlf & _
"
"&vbcrlf & _
"
"
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = false '屏蔽例外错误，返回FALSE跟TRUE两值j
'jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient tomail '收件人信箱
jmail.AddRecipient "zjx1231@126.com" '收件人信箱
jmail.From = frommail '发件人的E-MAIL地址
jmail.MailServerUserName = mailserverloginname '登录邮件服务器所需的用户名
jmail.MailServerPassword =mailserverloginpass '登录邮件服务器所需的密码
jmail.Subject = mailtitle '邮件的标题
jmail.Body = mailbody & vbcrlf & vbcrlf & mailfoot '邮件的内容
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
'JMail.MailDomain = mailuserdomain '域名（如果你用“name@domain.com”这样的用户名登录时，请指明
jmail.Send(mailserver) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
response.Write("")
'response.Write("000000000000000000000000000")
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
end if
%>
苏州优霹耐磨复合材料有限公司
|
|
 |
留言板 |
 |
| 欢迎各位将您的意见填入下列表单里，我们将以最短的时间内，给您最详细、最周到的服务，并在此祝您顺心如意，您的支持与建议将是我们不断改进的原动力。 |
|
 |
