398824579 398824579
关注数: 0 粉丝数: 6 发帖数: 107 关注贴吧数: 11
jmail不好使啊!谁会进来帮帮我? <%@ Language=VBScript %><%'阿江表单邮件 V1.0mailfoot="本邮件使用阿江 FormMail 发送" & vbcrlf & "下载 http://www.ajiang.net"'用来发送邮件的SMTP服务器mailserver="smtp.mail.yahoo.com.cn"'如果服务器需要SMTP身份验证则:'登录用户名mailserverloginname="[email protected]"'登录密码mailserverloginpass="398824579"'域名(如果你用“[email protected]”这样的用户名登录时,请指明domain.commailuserdomain="yahoo.com.cn"response.Write(mailserverloginname&" ")%> <%'获取表单数据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> <%elseif frommail="" thenmsg="您必须填写您的邮件地址,才可以发信给别人。"else'=============== 发 信 ================dim JMailset JMail=server.CreateObject("Jmail.message") JMail.Silent=trueJMail.Charset = "gb2312" JMail.FromName = fromname JMail.from = frommail JMail.AddRecipient tomail,tonameJMail.Subject = mailtitle jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot JMail.MailServerUserName = mailserverloginname JMail.MailServerPassWord = mailserverloginpass JMail.MailDomain = mailuserdomain sendok=JMail.send(mailserver)if sendok thenmsg="已经成功发送了邮件!"elsemsg="发送邮件失败,可能是您填写了错误的邮件地址。 " & _"如果您确信没有写错邮件地址,则可能是发信程序出了 " & _"故障,请与管理员联系"end ifend if%> <%end if%> 发信人姓名: 发信人信箱: 收信人姓名: 收信人信箱: 信件主题:  信件内容:        <%=msg%> http://tieba.baidu.com/mo/q/checkurl?url=javascript%3Ahistory.back%28%29&urlrefer=4b9b246e6efcba33baf2e79d5d6579f9
1 下一页