<%If 1=1 Then
Dim aJMail Set aJMail=Server.CreateObject("JMail.Message") If aJMail Is Nothing Then response.write "<script LANGUAGE='javascript'>alert('温馨小提示：服务器不支持JMail.Message组件，请立即安装此组件，此组件用于邮件发送!');history.go(-1);</script>" Response.End End If
wzxxfjr="1226902147@qq.com"' 发件人的邮件地址
wzxxzh="1226902147@qq.com"'' 邮箱账号
wzxxmm="ABsC123"' 邮箱密码
wzxxmaildz="smtp.qq.com"'邮箱服务器地址
'sj="940002339@qq.com" '收件人的邮件地址
sj="tanggang4@126.com"
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message") '创建一个JMAIL对象
jmail.logging = true '启用使用日志
JMail.Charset = "gb2312" '邮件字符集，默认为"US-ASCII"
JMail.From =wzxxfjr '发送者地址
JMail.ReplyTo= request("email")
JMail.FromName = wzxxzh '发送者姓名
JMail.Subject = ""&request("name")&"订购产品详细情况" '邮件主题
JMail.MailServerUserName = wzxxzh '身份验证的用户名
JMail.MailServerPassword = wzxxmm '身份验证的密码
JMail.Priority = 5 '设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.AddRecipient(sj) '加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个 'JMail.HTMLBody ="感谢您的注册，您的帐号已成功创建，但在使用之前须先激活您的帐号。<br>要激活帐号请直接点击以下<a href=http://vista123.gotoip2.com/hoomo/log.asp?code="&md5(request("UserName"))&">链接</a>，或把它复制到浏览器中打开：<br>http://vista123.gotoip2.com/hoomo/log.asp?code="&md5(request("UserName"))&"" JMail.HTMLBody =""&request("name")&"成功订购产品的信息如下:<br>QQ号码:"&request("email")&" 联系电话:"&request("shouji")&" 订购数量:"&request("number")&" 送货地址:"&request("address")&" 留言:"&request("content")&" " 'JMail.Body = request("content") '邮件主体（文本部分）
sendok=JMail.Send(wzxxmaildz) '发送【调用格式：
objJMail.Send([username:password@]SMTPServerAddress[:Port])】 JMail.Close() '关闭并清除对象 Set JMail = Nothing
Response.write"<script>alert(""订购成功 "");location.href='http://www.guanwang88.com/sanqingcha/';</script>" response.end
End if%>