<%@ Language=VBScript %> <% '================================================== ' 参 数 设 置 '================================================== '收信人电子邮件地址 '表单里的内容将发送到这个信箱中 myemail ="zkensen@msn.com" '收信人姓名 myname ="你的名字" '所使用的SMTP服务器 smtpserver ="smtp.vmails.net" '如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码 smtpuser ="zkensen" smtppwd ="你的邮箱密码" '与相应SMTP服务器对应的邮件地址 '注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地 '址，比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail ="zkensen@vmail.net" '================================================== ' 程 序 开 始 '================================================== tname =Request("t1") temail =Request("t2") tother =Request("t3") tsubject =Request("t4") tbody =Request("t5") if tname <> "" and temail <> "" then set jmail=server.CreateObject ("jmail.message") jmail.Silent =true jmail.Charset ="gb2312" if smtpemail <> "" then jmail.From ="zkensen@vmails.net" else jmail.From =temail end if jmail.FromName =tname jmail.ReplyTo =temail jmail.Subject ="网上提交：" & tsubject jmail.AddRecipient myemail,myname jmail.Body =tbody & vbcrlf & vbcrlf & "其他联系方式：" & tother jmail.MailServerUserName =smtpuser jmail.MailServerPassWord =smtppwd isgo=jmail.Send(smtpserver) if isgo then msg="提交成功！谢谢你的支持。" else msg="发送失败！请检查您的邮件地址是否填写正确。" end if jmail.Close set jmail=nothing end if %>
Conference2006
|
home
|
contact
Registration
Registration
■
Conference Registration
■
Pre-conference Workshop Registration
Copyright© 2005 All rights reserved
