如何使用ASP和JMAIL在代理上网的环境中实现邮件发送功能。分不多。还是希望高手能指点
index.htm
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>例子</title></head><body> <form id="form1" name="form1" method="post" action="ListFriend.asp"> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="71" height="30" align="right"> 邮箱： </td> <td width="429" height="30"> <select size="1" name="domains"> <option value="163" selected="selected">@163.com 网易</option> <option value="sina">@sina.com 新浪</option> </select> * </td> </tr> <tr> <td height="30" align="right"> 用户名： </td> <td height="30"> <input size="23" name="uName" /> *(例:myemail) </td> </tr> <tr> <td height="30" align="right"> 密码： </td> <td height="30"> <input type="password" size="19" name="uPw" /> * </td> </tr> <tr> <td height="30" align="right"> 收件人： </td> <td height="30"> <input name="sendTo" type="text" id="sendTo" size="35" /> *(例:XX@126.com) </td> </tr> <tr> <td height="30" align="right"> 标题： </td> <td height="30"> <input name="Title" type="text" id="Title" value="AAAAAA" size="50" /> * </td> </tr> <tr> <td height="30" align="right"> 内容： </td> <td height="30"> <textarea name="Content" cols="50" rows="6" id="Content"><%=Content%></textarea> * </td> </tr> <tr> <td height="30" align="right"> <input name="doWhat" type="hidden" id="doWhat" value="sendEmail" /> </td> <td height="30"> <input tabindex="4" type="submit" value=" 发 送 " name="sub" style="height: 1.67em; width: 5.0em; font-size: 13px" /> (点击发送后请稍等提示...) </td> </tr> </table> </form></body></html>
<%'括号:：发送邮件服务器，邮件接收人，发送人，登录邮箱的用户名，登录邮箱的密码，邮件主题，邮件内容function sendmail(smtp,sendto,from,user,pwd,subject,body)Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j jmail.logging = true '启用邮件日志 '加上如下语句，否则还有可能出现乱码的可能性： jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentTransferEncoding = "base64" jmail.Encoding = "base64" jmail.ISOEncodeHeaders = false'jmail.ContentType = "text/html" '邮件的格式为HTML格式 -- 有此句则发送附件时为乱码jmail.AddRecipient sendto '邮件收件人的地址 jmail.From = from '发件人的E-MAIL地址 jmail.MailServerUserName = user '登录邮件服务器所需的用户名 jmail.MailServerPassword = pwd '登录邮件服务器所需的密码 jmail.Subject = subject '邮件的标题 jmail.Body = body '邮件的内容 'jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/html"'Jmail.AddAttachment Server.MapPath("b.rar") '否则附件会变成乱码jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 if jmail.send(smtp)=false then'执行邮件发送（通过邮件服务器地址） sendmail=0else sendmail=1end ifjmail.Closeend functiondoWhat=request("doWhat")Content=request("Content")if doWhat="sendEmail" thendomains=request("domains")uName=request("uName")uPw=request("uPw")sendTo=request("sendTo")Title=request("Title")'邮件服务器select case domainscase "163" domains="mail.163.com" uName=uName&"@163.com"case "sina" domains="smtp.sina.com" uName=uName&"@sina.com"end selectif domains="" or uName="" or uPw="" or sendTo="" or Title="" or Content="" then response.write"<script>alert('Null!');history.back(-1);</script>" response.End()end if'调用发邮件函数isOK=sendmail(domains,sendTo,uName,uName,uPw,Title,Content)if isOK=1 then response.write"<script>alert('OK!');history.back(-1);</script>" response.End()else response.write"<script>alert('ON!');history.back(-1);</script>" response.End()end ifend if%>