一、 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高手,让你能快速、方便地做出功能强大的主页,不再有“巧妇难为无米之炊”的感叹。我们不妨通过几个例子来找一下这种感觉。
' 用 For Each 循环获取 From表单中每一项的值 For each item In mySmartUpload.Form For each value In mySmartUpload.Form(item) Response.Write(item & " = " & value & "<BR>") Next Next
' 对每一个文件 - 还有更简单的方法, 见wuf33.asp For each file In mySmartUpload.Files If not file.IsMissing Then '以原来的文件名存于 C:/temp 下 file.SaveAs("c:/temp/" & file.FileName) Response.Write(file.FileName & " (" & file.Size & "bytes)<BR>") End If Next Set mySmartUpload = Nothing %> </BODY> </HTML> 关于该组件更多、更详细的用法、功能(如限制上传文件的类型、尺寸,上传至数据库,下载文件或数据库字段等等),你可自己去看样例或研究洋文帮助。如果觉得看E文太累,也可下载一个全国产的File Upload组件,里面有中文的帮助和样例,还是不错的,下载地址:http://www.chinaasp.com/PRogram/fileup.zip。
(二) 图形组件:Dundas Pie Chart(饼状图) 先听听组件提供者是怎么说的:“闪光的性能,足以让人晕厥的高质量的图形,强大、高速、无比的灵活性”,哇塞,吹牛胜过韦小宝,是不是这样,看看结果之一: 有了这样的饼状图,你也可以象新浪网一样搞调查了,吹得这么好的东西却是免费的,你还等什么,快快驾上你的慢猫去拉下来: (1)3DPieCSC.EXE:http://www.dundas.com/downloads/freeproducts/files/3DPieCSC.EXE (2)FPDocInst.exe:http://www.dundas.com/downloads/freeproducts/files/FPDocInst.exe 3DPieCSC.EXE中包括该组件,后者是说明文档,都是安装文件,我将它安装在服务器的“C:/Inetpub/3dPieCSC”目录下,该组件自带两个复杂无比的样例程序以展示它炫丽无比的性能,较难搞明白。这里举一个简单实用的大众化例子: wuf36.htm,通过<IMG>标签调用ASP文件: <HTML><BODY> <IMG src="wuf37.asp"> </BODY></HTML> wuf37.asp,用来生成图形(与上面同理,请勿在代码中使用中文): <%@ Language=VBScript %> <% Option Explicit Dim objPieChart Set objPieChart = Server.CreateObject("Dundas.PieChartServer.1") '先创建组件