一、 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") '先創建組件