教你在你的ASP中使用類(class)

 本文章是作者的一個小經驗分享，教你如何在你的ASP中使用類(class)，正在學習ASP的朋友們可以學習一下。

在不入前的一天，當我為了解決一個語法問題來翻閱VBscript文檔時，偶然間發現在了下面的一句話：
  Class Statement
  
  Declares the name of a class, as well as a definition of the variables, properties, and methods that comprise the class.
  翻譯過來就是......
  
  Class 聲明
  
  聲明一個類的名字，就是定義一些變量，屬性，方法來組成一個類
  
  這是真的！！！？VBScript中能用類！？！？不知道能不能用于ASP!?這樣的話，我就不是能寫出像object一樣的ASP程序？！說干就干！實踐是檢驗真理的唯一標準，自個動手吧！
  
  我們常常看到別的程序語言中中都有類的說明，PHP，VB，C++，這個在VBScript中的類的說明，我是第一次聽到，我們的日常工作就是網站開發，在這個里面多多少少搞出點經驗，像模像樣也能自詡為"內行"，所以我就來分享一下我所知道的這個新的東東。我們來看看下面的這個代碼吧！(window2000+IIS5.0通過測試)
  
  <%
  ''聲明一個名為aspcn的類
  Class aspcn
  Private aspcn
  ''初始化類
  Private Sub Class_Initialize
  aspcn="Aspcn Is Good!<br>"
  End Sub
  ''定義一個函數
  Public Function DoIt()
  DoIt=aspcn
  End Function
  ''定義一個方法
  Public Sub QueryStr(stat)
  Response.write stat
  End Sub
  
  End Class
  
  Set Hi_aspcn=New aspcn ''定義一個名為Hi_aspcn的aspcn對象實例
  response.write Hi_aspcn.DoIt
  varstr="Aspcn Is Cool!<br><font color=red>http://www.aspcn.com</font><br>WelCome!!!"
  Hi_aspcn.QueryStr varstr
  
  %>
  
  
  這是很簡單的一個程序，我們在其中聲明了一個名為aspcn的類,建立了一個DoIt函數，一個QueryStr方法，這個程序很簡單相信大家能看懂，它的顯示如下：
  
  Aspcn Is Good!
  Aspcn Is Cool!
  http://www.aspcn.com
  WelCome!!!
  
  以后，咱們就可以把我們常用到的程序寫成一個類，到時候就用<！--#include file="xxx.asp"-->來包含進來就行了，這給我們開發程序又提供了新的空間，真是爽啊！和C++一樣了，有點回歸自然的感覺.