浮想世界之留言本

<%@ Language=VBScript %> <% '================================================== ' 参数设置 '================================================== '收信人电子邮件地址 '表单里的内容将发送到这个信箱中 myemail ="zhong_zi@sina.com" '收信人姓名 myname ="你的名字" '所使用的SMTP服务器 smtpserver ="smtp.sina.com.cn" '如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码 smtpuser ="zhong_zi" smtppwd ="你的邮箱密码" '与相应SMTP服务器对应的邮件地址 '注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地 '址，比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail ="zhong_zi@sina.com" '================================================== ' 程序开始 '================================================== 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 ="zhong_zi@sina.com" 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 %> 浮想世界之留言本

首页 |　浮想观　|　记录坊　|　创意门　|　视觉谱　|　文学眼　|　藏书楼　|　作品集　|　留言本

E-mail:soulzhong@yahoo.com.cn

总体策划：钟子　美术设计：钟子　制作时间：2003年7月