转自太平洋网http://www.pconline.com.cn/pcjob/process/other/others/0503/572179.html
如果你搞过ASP的开发，你就会为ASP中没有好的完整的调试环境而头疼不己。我收集了网上相关所有信息提示，想给它做成单机的ASP开发错误提示软件中的数据库，但是我发现应该还有些是我所不清楚或说是了解的。所以放在这里，请知道的朋友再次提出你的观点或说更详细的信息，我将非常感激！如果有好的建议，如果软件出来后，我将首先免费送给您尝试使用！
再次希望看到这个文章的朋友们，能够支持和鼓励我做这个东西！（反正我觉得做这样东西的好像就没有啊），请大家指出问题并且补充！！！呵！！！！！-----------------//*
（1）Body（信件正文） : 字符串
如：JMail.Body = "这里可以是用户填写的表单内容，可以取自From。"
（2）Charset（字符集，缺省为"US-ASCII"） : 字符串
如：JMail.Charset = "US-ASCII"
（3）ContentTransferEncoding : 字符串
指定内容传送时的编码方式，缺省是"Quoted-Printable"
如：JMail.ContentTransferEncoding = "base64"
（4）ContentType（信件的contentype. 缺省是"text/plain"） : 字符串
如果你以HTML格式发送邮件, 改为"text/html"即可。
如：JMail.ContentType = "text/html"
（5）Encoding : 字符串
设置附件编码方式（缺省是"base64）。 可以选择使用的是"base64", "uuencode" or "quoted-printable"
如：JMail.Encoding = "base64"
（6）Log（Jmail创建的日志，前提loging属性设置为true，见下面） : 字符串
如：使用Response.Write( JMail.Log )语句列出日志信息。
（7）Logging（是否使用日志） : 布尔型
如：JMail.Logging = true
（8）Recipients : 字符串
只读属性，返回所有收件人
如：Response.Write( "" + JMail.Recipients + "" );
（9）ReplyTo（指定别的回信地址） : 字符串
如：JMail.ReplyTo = "anyother@mailhost.com"
（10）Sender（ 发件人的邮件地址） : 字符串
如：JMail.Sender = "sender@mailhost.com"
（11）SenderName（发件人的姓名） : 字符串
如：JMail.SenderName = "一克"
（12）ServerAddress（邮件服务器的地址） : 字符串
你可以指定多个服务器，用分号点开。可以指定端口号。
如果serverAddress保持空白，JMail会尝试远程邮件服务器，然后直接发送到服务器上去。
如：JMail.ServerAddress = "mail.263.net.cn"
（13）Subject（设定邮件的标题，可以取自From。）：字符串
如：JMail.Subject = "客户反馈表单"
（14）添加文件附件到邮件
如：JMail.AddAttachment( "c:anyfile.zip" )
（15）AddCustomAttachment( FileName, Data )
添加自定义附件.
如：JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );
（16）AddHeader( Header, Value )
添加用户定义的信件标头。
如：JMail.AddHeader( "Originating-IP","192.168.10.10" );
（17）AddRecipient（收件人）：字符串
如：JMail.AddRecipient( "info@dimac.net" );
（18）AddRecipientBCC( Email )，密件收件人：
如：JMail.AddRecipientBCC( "anyone@mailhost.com" );
（19）AddRecipientCC( Email ) ，抄送收件人：
如：JMail.AddRecipientCC( "anyone@mailhost.com" )
（20）AddURLAttachment( URL, 文档名)
下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。
如：JMail.AddURLAttachment( "http://java2001.wol.com.cn/perl/files/jmail.zip", "jmail" )
（21）AppendBodyFromFile( 文件名) ，将文件作为信件正文：
如：JMail.AppendBodyFromFile( "c:anyfile.txt" )
(22)AppendText( Text )
追加信件的正文内容，比如增加问候语或者其它信息。
如：JMail.AppendText( "欢迎访问本站！" )
（23）Close() ，强制JMail关闭缓冲的与邮件服务器的连接：
如：JMail.Close()
（24）Execute() ，执行邮件的发送
如：JMail.Execute()
JMail.AddRecipient mailto'加入一个收件者
JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体
JMail.Priority = 1'邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息
'remote_addr发出请求的机器的IP地址
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
</script>
<%
'调用说明：
strHTML = "<table width=""80%"" border=""1"">" &chr(13) &chr(10) '这里需要加上两个"
strHTML = strHTML & " <tr>" &chr(13) &chr(10) 'chr(13)硬回车chr(10)软回车
strHTML = strHTML & "<td align=""center"" valign=""middle"">HELLO~!</td>" &chr(13) &chr(10)
strHTML = strHTML & "</tr>" &chr(13) &chr(10)
strHTML = strHTML & "</table>"
smtpserver="mail.sh163.net:25"
sender="juliet@sh163.net"
subject="HEY!"
msg="<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
mailto=email'收信人email
call SendMail(SMTPServer,sender,mailto,subject,msg)'调用函数
%>
<%
“Last Updated By Recon On 05/14/2001
“On Error Resume Next
“利用CDONTS组件在Win2k上发送邮件
“发送普通邮件
SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!",
"Please check the attatchment!", 2, 0, "C:Love.txt"
“发送HTML邮件
Dim m_fso, m_tf
Dim m_strHTML
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set m_tf = m_fso.OpenTextFile("C:Mail.htm", 1)
m_strHTML = m_tf.ReadAll
“Write m_strHTML
Set m_tf = Nothing
Set m_fso = Nothing
SendMail "admin@ny.com", "iamchn@263.net", "HTML Mail!",
m_strHTML, 2, 1, Null
“参数说明
“strFrom : 发件人Email
“strTo : 收件人Email
“strSubject : 信件主题
“strBody : 信件正文
“lngImportance : 信件重要性
“ : 0 - 低重要性
“ : 0 - 中等重要性（默认）
“ : 0 - 高重要性
“lngAType : 信件格式
“ : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
“strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody,
lngImportance, lngAType, strAttach)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail
.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance
If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If
If IsEmpty(strAttach) = False And IsNull(strAttach) = False
Then
.AttachFile strAttach
End If
.Send
End With
Set objMail = Nothing
End Sub
%>
