mail.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<% 
on error resume next
dim str  
str=str&"您好!"
str=str&"　　由中国学生网所提供的劣质服务（ASP服务器瘫痪），导致本站连继两天不能访问。" 
str=str&"站长向这段时间不能访问本站的朋友深表歉意！本工作室也正在考虑更换网络提供商！<br>"
str=str&"　　本站永久域名：www.chinabs.net　　主要面向B/S技术爱好者。<br>"
str=str&"　　建站的目的是为B/S爱好者提供一个学习交流的平台，同时也为商家建立企业上网平" 
str=str&"台，企业内部B/S应用提供解决方案。<br>"
str=str&"　　主要内容包括：ASP,ASP.NET,JSP,PHP,C#,Java,JavaScript,XML学习文章，B/S技术" 
str=str&"交流论坛及一些本工作室开发的一些B/S应用。<br>"
str=str&"　　本站的发展离不开大家的支持！<br>"
str=str&"　　谢谢！<br>"
str=str&" 站长：追风<br>"
str=str&" 深圳比艾思工作室<br>"
'filename="test.gif"           "附件文件名
'path=Server.MapPath("\jefenet\images\" & filename)     '附件的路径
Set theMail=Server.CreateObject("CDONTS.NewMail")
mm = "[e-mail]"
theMail.to = mm　　　
theMail.from = mm 　
theMail.Subject ="电子邮件功能测试！" 　　'主题
theMail.BodyFormat=0　　　'定义以Html的格式发送邮件
theMail.MailFormat=0 　　 '定义以Mime的格式发邮件
theMail.Body=Str 　　　　 '邮件正文
On Error Resume Next       '如果找不到附件，则跳过
'theMail.AttachFile path,filename 
theMail.Send
set theMail=nothing 

if err.number<>0 then 
   respnose.write err.description
   err.clear
else
   response.write "pk"
end if
%>