<%
if Request.ServerVariables("request_method") = "POST" then
Dim name,msg,SendMail
subject="有一份" & date() & "的网上订单"
name=Request.Form("name")
Set msg = Server.Createobject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "gfj" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "gfj" '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = "web@cityonmap.com.cn" ''发件人Email
if name<>"" then
msg.FromName = name ''发件人姓名
end if
msg.AddRecipient "guofangjun@163.com" ''收件人Email
msg.Subject = subject ''信件主题
'msg.Body = Request.Form("body") ''正文
'msg.HTMLBody = Request.Form("htmlbody") ''HTML正文
msg.HTMLBody = "您好，网站有新订单了，详细内容如下：
产品型号名称：" & request("type") & "
产品数量：" & request("quantify") & "台
以下是客户的详细信息
姓名：" & request("name")&"
地区：" & request("area")&"
地址: "&request("address")&"
电话: "&request("tel")&"
电子邮件: "&request("email")&"
备注: "&request("remark")
msg.ReturnReceipt=true
if not msg.Send ("211.154.170.227") then ''smtp服务器地址（企业邮局地址）
response.write "" & msg.log & ""
else
response.write "感谢你填写订单，我们会在最短的时间内与您联系！"
response.write "
"
response.write "返回
"
end if
set msg = nothing
end if
%>
产品在线定购
|
|
感谢使用在线定购系统。 |
| 现在您只需真实的填写下列表单，我们收到订单后会尽快通知您所在区域代理商与您联系。 |
| 如果您需要的话，我们还可以为您提供相关产品的技术资料、产品报价等。 |
|
产品在线定购 |
填写订单须知： |
| 1、此订单将以电子邮件的方式发送到我公司，请填写真实信息。 |
| 2、带*内容不能为空。 |
|
|
|
版权所有2005
北京城际高科信息技术有限公司 |
|
互联网信息服务备案编号
京ICP证010570号 |
| |
