<%
  Dim receiver
  receiver = Request.Querystring("receiver")
strBody=Request.Querystring("content")


 Set msg = Server.CreateObject("jmail.Message") '建立发送邮件的对象 
 msg.logging = true '启用邮件日志 
 msg.Charset = "GB2312" '邮件的文字编码为国标 
 msg.ContentType = "text/html" '邮件的格式为HTML格式 
 msg.AddRecipient receiver '单个邮件收件人的地址 
' sRecMail="international@hanslaser.com,b2b@hanslaser.com" '多个邮件收件人的地址 
 if instr(sRecMail,",")>0 then 
 sRecMailArr=split(sRecMail,",") 
 for RecMail_i=0 to UBound(sRecMailArr) 
 msg.AddRecipient sRecMailArr(RecMail_i) 
 next 
 else 
 msg.AddRecipient sRecMail 
 end if 
  

   
 msg.From = "service@etwinternational.com" '发件人的E-MAIL地址 
 msg.MailServerUserName = "service@etwinternational.com" '登录邮件服务器所需的用户名 
 msg.MailServerPassword = "hahaetw2010etw" '登录邮件服务器所需的密码
 msg.Subject = "ETW国际询盘提醒" '邮件的标题  
 msg.Body = strBody '邮件的内容 
 msg.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 
 msg.Send "smtpcom.263xmail.com" '执行邮件发送（通过邮件服务器地址） 
 msg.Close() '关闭对象 
 'response.write "<script>alert('You have successfully subscribed to our e-Newsletters.');<\/script>" 

%>