第一個ASP組件:設定伺服器日期時間組件

網路之門
　　　　　
　　在進入我們需習的第一個組件之前，小虎首先得說明一下，由於小虎的水平有限，可能在下面的這些說明過程中存在
不少錯誤，希望大家提出指證，在這裡我希望能與大家分享一下ASP的學習經驗，小虎的這個網站推聳的是原創精神，很多
東西都是DIY，因此程式編寫過程中也會染上小虎本身不良的編程習慣。而且整個教學網站也只有小虎一個維護，因此技術
上肯定存在不少問題，望大家諒解。
　　ASP組件為我們的ASP編程提供了強大的擴充功能，比如我們需要在伺服器中啟動一個應用程式，設定伺服器的時間，
訪問作業系統內部資訊等等，光靠ASP是幹不了的。很大部分都需要藉助自己開發的ASP組件才能實現，ASP本身為我們提供
了幾個非常有用的組件，ADO資料庫訪問組件，檔案輸入輸出組件，廣告輪換組件等等。但有很多時侯我們需要的一些特殊
的功能。
　　首先，小虎用自己最熟悉的VB來做這個組件，大夥先在自己的計算雞上裝上個D版的VB吧，版本沒要求，但小虎是用
VB6的。開始第一步怎麼樣呢？
（一）運行VB6，系統彈出了一個“建立工程”的對話方塊。選擇ActiveX Dll
　　　接著可以在工程管理器上看見“工程一”和所屬的一個類“ Class1”，讓我們想先幫他們改上一個好聽的名字吧，
要不你在ASP中使用這個自製組件時，難道用
　　　set obj=server.createobject("工程一.class1")
　　　這麼難聽的名字嗎？快去把它改改吧。我們把工程一改名為：systimeset，而class1改為：timeset。這樣好多了
吧？好了，開始為類timeset添加代碼了，先想一想，vb6本身好象沒有能設定系統時間和日期的函數吧（小虎不記得有沒
有了）那麼怎麼辦呢？別著急，大家聽過WIN32API函數嗎？這是微軟的windows系統級函數。提供有豐富的作業系統功能，
別說改日期，改時間，就是讓你的window重起動也可以。小虎開啟了厚厚的WIN32API函數大全，終於找到了SetSystemTime
這個函數，win32API原本是設計為C++程式員使用的，在VB裡調用它得先聲名，好在微軟還想得挺周到，VB40以上的版本，
都帶有API文本瀏覽器，我們運行它，它就在開始菜單的VB程式組裡，運行後彈出了個框框，從檔案菜單中選擇載入文本文
件。選擇WIN32API.TXT，API類型中選擇聲明，然後在那個可用項中找到SetSystemTime這個東西，雙擊它，一段代碼就出
現在選定項裡，接著還要選東西，在API類型中選擇類型，找到SystemTime這個類型，同樣把它雙擊，好了按一下複製，把