ASP组件（二）
日期：2010-12-05 浏览次数：21390 次
一、 Email组件：NTS Collaboration Data Objects
我们在网上经常看到，许多站点均提供在线发信功能（即用表单实现Question提交，Support或信息反馈等等）或者给访问者发送确认信息。这一功能对个人主页来说是很难达到的，因为需要主页提供商额外的支持（我个人主页上的在线写信是用CGI写的，与ASP无关），这里就其原理举一简单的例子：
特别说明：本讲座所举的所有例子均在Windows NT4.0 Server+IIS（Internet Information Server）4.0上调试，但其中大部分也适用于Windows9.x+PWS。不过要好好学用ASP，最好再装一个Windows NT与Windows95/98并存（没装过不要怕，很容易的，只要机器稍微好一点就行了，NT安装后能自动做成Win NT/Win9.x双启动）。
<% ‘wuf30.asp
Dim Mail
'建立一个Email组件
Set Mail = Server.CreateObject("CDONTS.NewMail")
'发送Email
Mail.Send "From@intldept.com","To@intldept.com","Subject","Body"
Set Mail = Nothing
%>
这是一个最简单的例子，事实上，使用该组件，你可以发送纯文本格式邮件或者HTML超文本格式邮件，该组件也支持抄送（CC）和密件抄送（BCC），并且可以包含图片和附件，甚至还以可接收邮件，应该说功能还是比较强大的。但我个人并不是很欣赏，因为要使用该组件，必须安装Windows NT Server和IIS4.0的SMTP服务（微软风格），并且该组件不支持POP3协议。因此如果使用该组件不能正常发送邮件，你可以打开Internet Server Manager看看Default SMTP Site是否已启动（Start）以及一些相关的设置。不过，如果你是一个微软迷，可去我的主页(http://wuf.bentium.net/)下载该组件的例程wuf31.asp和sendmail.asp自己研究。
二、 使用第三方组件
到现在为止，我们所介绍的组件均包含在IIS4.0中，你可以直接使用这些组件。除此之外，你还可从Microsoft IIS Resource Kit光盘中获取以下两个组件（或者去http://www.microsoft.com/iis碰碰运气看是否有下载）：
l Page Counter组件：网页计数器
l Permission Checker组件：网页存取权限确认组件
IIS4.0内置组件的介绍到这里就告一段落了，但ASP组件的学习还要继续，一方面是因为IIS4.0内置的组件很少，另一方面已提供的这些组件或许功能并不很强大，适合你的需要。因此更大量的资源是网上现存的成百上千的第三方组件，它们有些是免费的，有些提供功能限制版或评估版，当然更多的要银子的（一个组件要三位数的$，有没有搞错！简直是拐弯抹角的“敲诈”），使用这些组件，足可以使你成为一个伪ASP高手，让你能快速、方便地做出功能强大的主页，不再有“巧妇难为无米之炊”的感叹。我们不妨通过几个例子来找一下这种感觉。
（一） 文件上传组件AspSmartUpload（免费）
先下载该组件：http://www.aspsmart.com/liblocal/download/EN/aspSmartUpload.zip，文件大小约100K（也可去我的站点下载）。下载解包后，共有三十多个文件，分别位于不同目录下，你可以参照其中的说明文件自己研究，这里仅举一个完整的例子说明如何使用第三方组件。
找到AspSmartUpload.dll和AspSmartUploadUtil.dll这两个文件，在Web服务器的命令提示符下分别用”regsvr32.exe aspsmartupload.dll”和”regsvr32.exe aspsmartuploadutil.dll”命令行来注册该组件（如果你是第一次使用Regsvr32.exe，可先将这两个DLL文件拷到Web服务器的“Winnt/System32”或“Windows/System”目录下），若注册成功，弹出的窗口中会有”succeeded”字样（注意：使用第三方组件前必须先注册，有的第三方组件采用安装方式，能自动注册，而更多的象这样，需要自己手工注册）。注册成功后，接下来就是写代码使用组件，该例由两个文件组成（注意测试时请勿使用中文文件名）：
wuf32.htm – 上传文件的前端Web页面（表单）
<HTML>
<style type="text/css">
<!--
input { font-family: "宋体", "Times New Roman"; font-size: 9pt; line-height: 16pt}
-->
</style>
<BODY BGCOLOR="white">
上传文件的Web页面（可上传文件的个数自己定义，但文件名中不能含中文）
<HR>
<FORM METHOD="POST" ACTION="wuf34.asp" ENCTYPE="multipart/form-data">
<!-- TEXT -->
用户名：<input TYPE="TEXT" name="myText" value=""><br>
<!-- PASSWORD -->
口 令：<input TYPE="PASSWORD" name="myPASSWORD" value=""><br>
<!-- HIDDEN -->
<input TYPE="hidden" name="myHidden" value="hidden"><br>
<!-- 文件 -->
文件1：<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
文件2：<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
文件3：<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
文件4：<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
</BODY></HTML>
按“Upload”按钮，后台由文件wuf34.asp来处理（你也可下载更简单的wuf33.asp）：
<HTML><BODY BGCOLOR="white">
文件上传结果 :
<HR>
<%
Dim mySmartUpload, item, value, file
' 先如下创建组件
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
' 用 For Each 循环获取 From表单中每一项的值
For each item In mySmartUpload.Form
For each value In mySmartUpload.Form(item)
Response.Write(item & " = " & value & "<BR>")
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
