~~如何利用ASP程序来使用JMail发邮件的例子

<>~~如何利用ASP程序来使用JMail发邮件的例子
     
    &lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt;
    &lt;%
    if Request("MailtoAddress") &lt;&gt; "" then
    　　　　msg = SendMail
    (Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
    Request("MailDomain"),Request("MailtoAddress"),Request("MailtoName"),Request("Subject"),
    Request("MailBody"),Request("FromName"),Request("MailFrom"),Request("riority"))
    　　　　if msg then Response.Write("发送成功") else Response.Write("发送不成功")
    　　　　Response.End()
    end if
    function
    SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,
    Subject,MailBody,FromName,MailFrom,Priority)
    　　　　dim JMail, msg
    　　　　set JMail=Server.CreateObject("JMail.Message")
    　　　　JMail.Charset="gb2312" '编码
    　　　　JMail.silent=true '设置为true,JMail不会抛出例外错误.
    　　　　JMail.ContentType = "text/plain" '邮件正文格式
    　　　　'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)
    　　　　'指定邮件服务器的地址。可以指定多个服务器，用分号点开。可以指定端口号。
    　　　　'如果serverAddress保持空白，JMail会尝试解决远程邮件服务器，然后直接发送到服务器上去。???
    　　　　'如：JMail.ServerAddress = &amp;tquo;mail.mydom.net; mail2.mydom.net:2500"
    　　　　JMail.MailServerUserName = SMTPServerUserName '登录用户名
    　　　　JMail.MailServerPassWord = SMTPServerPassword '登录密码
    　　　　JMail.MailDomain = MailDomain '域名（如果用“ name@domain.com ”这样的用户名登录时，请指明domain.com
    　　　　JMail.AddRecipient MailtoAddress,MailtoName '收信人
    　　　　JMail.Subject = Subject '主题
    　　　　JMail.Body = MailBody '邮件正文（纯文本格式）
    　　　　JMail.FromName = FromName '发信人姓名
    　　　　JMail.From = MailFrom '发信人Email
    　　　　JMail.Priority = Priority '邮件等级12345
    　　　　msg = JMail.Send(SMTPServer)
    　　　　JMail.Close
    　　　　set JMail = nothing
    　　　　SendMail = msg
    end function
    %&gt;
    &lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd"&gt;
    &lt;html&gt;
    &lt;head&gt;
    &lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"&gt;
    &lt;title&gt;JMail test&lt;/title&gt;
    &lt;/head&gt;
    &lt;body&gt;
    &lt;form name="form1" method="post" action=""&gt;
    　&lt;table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333"&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    &lt;!--
    　　　　&lt;td width="14%"&gt; SMTP服务器地址： &lt;/td&gt;
    　　　　&lt;td width="86%"&gt;&lt;input name="SMTPServer" type="text" id="SMTPServer" 　　　　　value="smtp.126.com"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td height="14" colspan="2"&gt;如果该SMTP需要身份验证,还需要填以下信息:&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt; SMTP登录用户名： &lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="SMTPServerUserName" type="text" id="SMTPServerUserName" 　　　　　　value=""&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt; SMTP登录密码： &lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="SMTPServerPassword" type="password" id="SMTPServerPassword" 　　　　　　value=""&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt; SMTP域名 ： &lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="MailDomain" type="text" id="MailDomain" value=""&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;&amp;nbsp;&lt;/td&gt;
    　　　　&lt;td&gt;&amp;nbsp;&lt;/td&gt;
    　　&lt;/tr&gt;
    --&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;收件人邮箱:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="MailtoAddress" type="text" id="MailtoAddress"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;收件人:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="MailtoName" type="text" id="MailtoName"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;主题:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="Subject" type="text" id="Subject"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;内容:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;textarea name="MailBody" id="MailBody"&gt;&lt;/textarea&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;发件人邮箱:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="MailFrom" type="text" id="MailFrom"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;发件人:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;input name="FromName" type="text" id="FromName"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;&amp;nbsp;&lt;/td&gt;
    　　　　&lt;td&gt;&amp;nbsp;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td&gt;等级:&lt;/td&gt;
    　　　　&lt;td&gt;&lt;select name="riority" id="Priority"&gt;
    　　　　　&lt;option value="5"&gt;5&lt;/option&gt;
    　　　　　&lt;option value="4"&gt;4&lt;/option&gt;
    　　　　　&lt;option value="3" selected&gt;3&lt;/option&gt;
    　　　　　&lt;option value="2"&gt;2&lt;/option&gt;
    　　　　　&lt;option value="1"&gt;1&lt;/option&gt;
    　　　　&lt;/select&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　　&lt;tr bgcolor="#FFFFFF"&gt;
    　　　　&lt;td colspan="2"&gt;&lt;input type="submit" name="Submit" value="提交"&gt;&lt;/td&gt;
    　　&lt;/tr&gt;
    　&lt;/table&gt;
    &lt;/form&gt;
    &lt;/body&gt;
    &lt;/html&gt;
    --------------------------------------------------------------------------------------
     
     
    提供以下代码给大家参考 ，如想得到更多实例或想了解更多，请参考这里 ： http://www.now.net.cn/support/host/aspnet_jmail.net
     
     
    以上的实例，可以在我们asp+asp.net 的空间上面正常运行，如果朋友们，你需要虚拟主机，我们的空间是最好的选择　！
     
    电信超级数据港，１０Ｇ光纤直连骨干网，而且还免费配有　ＣＤＮ网络加速器，包括有香港机房的加速，全球访问一样快速　！！
    还赠送了　企业邮箱　流量访问系统　留言本　计数器等　！ </P>
<P></P>
<P>■■另外，（管理员推荐)同时支持ASP/ASP.NET/Perl的高速稳定空间。</P>
<P>    商务C型主机+.CN 1600 元/年 ，免费加送CDN网站加速器   送繁简通网络简装版 </P>
<P>     500独立空间，支持ASP/ASP.NET免费送800Mb邮箱Win2003，IIS 6.0，支持50M SQLSERVER 2000ACCESS 数据库
     提供计数器，留言板脚本列表 ASP ASP.NET ActivePerl CGIASP.NET 1.1 Microsoft Front Page 2000 扩 展
   
     试用点击：http://now.net.cn/special/</P>
<P>   **域名的中文化是趋势，你注册中文域名了吗 ？
    中文域名申请，请到:http://www.now.net.cn/chinesedomain

    网上即时交谈　： http://www.now.net.cn/customer/moreline.net
     
    ＱＱ　方式：188092185  
</P>