 |
 |
 |
 |
 |
|
|
 |
| |
<%If Request.ServerVariables("REQUEST_METHOD") = "GET" Then%>
<%End If%>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim strFormString
Dim objMessage
Dim strMailContent
strFormString = "" & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | 名称: | " & vbCrlf
strFormString = strFormString & " [a1]" & vbCrlf
strFormString = strFormString & " | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | 地址: | " & vbCrlf
strFormString = strFormString & " [b1] | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | 电话: | " & vbCrlf
strFormString = strFormString & " [c1] | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | 传真: | " & vbCrlf
strFormString = strFormString & " [d1] | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | E_mail: | " & vbCrlf
strFormString = strFormString & " [e1] | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " | 留言内容: | " & vbCrlf
strFormString = strFormString & " [f1] | " & vbCrlf
strFormString = strFormString & " " & vbCrlf
strFormString = strFormString & " " & vbCrlf
Set objMessage = Server.CreateObject("Jmail.Message")
strMailContent = strFormString
strMailContent = Replace(strMailContent, "[a1]", Request("a1"))
strMailContent = Replace(strMailContent, "[b1]", Request("b1"))
strMailContent = Replace(strMailContent, "[c1]", Request("c1"))
strMailContent = Replace(strMailContent, "[d1]", Request("d1"))
strMailContent = Replace(strMailContent, "[e1]", Request("e1"))
strMailContent = Replace(strMailContent, "[f1]", Request("f1"))
objMessage.Charset = "GB2312"
objMessage.ContentType = "text/html"
objMessage.ReplyTo = Email
objMessage.From = "客户反馈信息"
objMessage.FromName = ""
objMessage.Subject = "客户反馈信息"
objMessage.AddRecipient("gzpyk@yiling.net.cn")
objMessage.AppendHTML(strMailContent)
objMessage.Send("daihaiheng:123456@smtp.21cn.com")
Response.Write("客户反馈信息已经成功发送。")
End If
%>
|
|
|
|
|
 |
| 一领科技
技术支持 |
| 版权所有:广州市黄埔汽车租赁服务有限公司 |
| 地址:广州市黄埔区丰乐中路67号 |
| 业务电话：82385120、82392807 |
| 长租客户专线：82387353、33380448 |
| 保养报修专线:31686330、31686332 |
| 服务投诉专线:33675006、31686332 |
|
| |
|
|