<%@ Language=VBScript %> <% '阿江表单邮件 V1.0 'http://www.ajiang.net '+++++++++++++++++++++++++++++ ' 参 数 设 置 '+++++++++++++++++++++++++++++ '用来发送邮件的SMTP服务器 mailserver= "mail.igvision.com" '如果服务器需要SMTP身份验证则: '登录用户名 mailserverloginname= "martinl@igvision.com" '登录密码 mailserverloginpass= "456789" '域名(如果你用“name@domain.com”这样的用户名登录时,请指明domain.com mailuserdomain= "martinl@igvision.com" '+++++++++++++++++++++++++++++ %> 3rd Annual China Gold & Precious Metals Summit 2008 - WHAT DOES THE FUTURE HOLD FOR GOLD AND PRECIOUS METALS? │IGVision
 
Email a friend or colleague
 

3rd Annual China Gold & Precious Metals Summit 2008
Shanghai,China
4th-5th, December

<% '获取表单数据 fromname= Request.Form("fromname") frommail= Request.Form("frommail") toname= Request.Form("toname") tomail= Request.Form("tomail") mailtitle= Request.Form("mailtitle") mailbody= Request.Form("mailbody") '检查是否填写了表单 if tomail="" then %> " method=post> <% else if frommail="" then msg="You must fill the email address。" else '=============== 发 信 ================ dim JMail set JMail=server.CreateObject("Jmail.message") JMail.Silent=true JMail.Charset = "gb2312" JMail.FromName = fromname JMail.from = frommail JMail.AddRecipient tomail,toname JMail.Subject = mailtitle jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot JMail.MailServerUserName = mailserverloginname JMail.MailServerPassWord = mailserverloginpass JMail.MailDomain = mailuserdomain sendok=JMail.send(mailserver) if sendok then msg="Email has been submited" else msg="Email failed, you may sended a wrong email address
" & _ "If you are sure the email is correct, there may be something worng of email system
" & _ "Error,please contact the administrator" end if end if %> <% end if %>


From:


Your name:

Your email address:


To:


Recipient's name:

Recipient's email address:


Email title:



Your content:


                       

<%=msg%>

[Back]