%
if Request.QueryString("act")="Save" then
dim mess
message=TRIM(Request.form("message"))
name=TRIM(Request.form("name"))
Company=TRIM(Request.form("Company"))
Dept=TRIM(Request.form("Dept"))
tel=TRIM(Request.form("Tel"))
Fax=TRIM(Request.form("Fax"))
eMail=TRIM(Request.form("eMail"))
Address=TRIM(Request.form("Address"))
Country=TRIM(Request.form("Country"))
City=TRIM(Request.form("City"))
Postal=TRIM(Request.form("Postal"))
mess = mess & "需求信息:" & request.form("message") & "
"
mess = mess & "姓名:" & request.form("name") & "
"
mess = mess & "公司名称:" & request.form("message") & "
"
mess = mess & "联系电话:" & request.form("tel") & "
"
mess = mess & "E-mail:" & request.form("eMail") & "
"
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.AddRecipient "czwzfz@texindex.com" '接受者信箱
JMail.Subject = "客户定单"
Jmail.ContentType = "text/html"
JMail.Body = mess
JMail.From = "caoxiaoyong998@163.com"
JMail.MailServerUserName="caoxiaoyong998"
JMail.MailServerPassword="5531550" '此处为你的信箱密码
JMail.Send "smtp.163.com"
Set JMail=nothing
end if
%>
![]() |
|
|
|
||||||