邮件组件CDONTS 功能简介 ASP本身没有发送邮件的能力，但如果希望用ASP来发送E-MAIL（例如：你有一个消息，希望在此页被访问后自动将该消息E-MAIL给留言的上网者），那么你需要安装一个ASP组件。并借助这些组件来帮你实现邮件的自动发送、回复等工作，我们可以提供CDONTS组件。 CDONTS.DLL 在注册之后，可以使用ASP发送E-MAIL，来实现动态的EMAIL通信，这经常在定单与电子商务中应用。 在IIS5下，可以使用CDONTS。它容易使用的并且性能良好。 步骤如下： 1、检查你是否安装了SMTP服务。OPTION PACK 缺省安装时是包括SMTP服务的。SMTP服务安装后，在 的system32目下会有一个文件叫CDONTS.DLL。 2、你可以用下面的简单脚本通过ASP发送E-MAIL set newmail=server.CreateObject("cdonts.newmail") newmail.From="webmaster@www.yourdomain.com" newmail.To ="test@test.com" newmail.Subject="主题" newmail.Body = "asp mail" newmail.BodyFormat =0 newmail.MailFormat =0 newmail.Send response.write "send ok!" set newmail=nothing 3、发送附件 CDONTS 的 一 个 常 用 特 性 是 用 来 在 E-MAIL 中 发 送 附 件 。 代 码 也 不 难 写 。 CDONTS发信组件注意事项 由于凯旋网络企业邮局具有反垃圾邮件，包括防伪装邮件功能，因此可能根据发信人来源地址屏蔽了您的网站邮件投递。建议您将发信脚本中发件人地址（From参数）设置为：xxx@www.yourdomain.com，这样可以保证正常投递邮件。文件上传组件Upload功能简介 本Upload组件目前只支持单文件上传，可以为任意扩展名，可以在上传后保存名字。上传文件的最大大小为1M，需要在程序中指定上传目录并由我们工程师添加权限。支持上传文件名修改和使用变量文件名。 1、 上传界面 <!-- saved from url=(0022)http://internet.e-mail --> <!-- saved from url=(0022)http://internet.e-mail --> <form name="frmUpload" Method="Post" Enctype="multipart/form-data" action="testup.asp" > 产品名称： <input type="text" name="fieldname"> <p> 上传产品图片 (只能上传gif,jpg文件) <input type="file" name="FileName"> <p> <table> <td align="right"> <input type="submit" name="B1" value=" 提交 " size="20" </td> <td width="20"> </td> <td align="left"> <input type="reset" name="B2" value=" 重填 " size="20" </td></tr> </table> 2、 上传程序 <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then VirPath="productimg" RealPath=Server.MapPath(VirPath) & "\" Set objupload=Server.CreateObject("35yifso.Upload") objupload.Maxsize=1000000 ''设定最大上传值 objupload.Path=RealPath ''设定上传的目录 objupload.Upload ''调用UPload方法,获取表单中提交的所有数据 ''productimg 是你的站点上的一个存储HTTP上传文件的目录 filevalue=objUpload.Form("FileName") ''get 文件名 filename=objUpload.filename("FileName") fieldvalue=objUpload.Form("fieldname") ''取得fieldname表单项的值 ''response.write filename ''response.end if trim(filename)="" then filename="no_pro_img.gif" ''指向一个“无产品”的图片 else extendname=right(filename,3) if extendname="jpg" or extendname="gif" then abcd=1 else response.write "错误!请输入图片的扩展名gif或jpg" response.end end if varfilename=FileName objUpload.Save "FileName",2,varfilename '' 这里使用单独保存的方法： '' "FileName" 是HTML的表单上传FILE名称，本例就是 '' 2代表覆盖，如果在SAVE之前，先调用文件组件判断此目录下是否有同名文件则不会出现覆盖'' 现象，或者保证新文件名为唯一标识 '' "aaFAN.gif" 是我们上传后修改的文件名。 ''objUpload.SaveAll end if end if response.write "上传文件成功！<p>" & "你上传的产品名称为:<font color=#ff2323>" & fieldvalue & " </font><br>文件名为:<font color=#ff2323>" & filename & "</font>" %>