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

 本文章是作者的一個(gè)小經(jīng)驗(yàn)分享，教你如何在你的ASP中使用類(class)，正在學(xué)習(xí)ASP的朋友們可以學(xué)習(xí)一下。

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