国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

關于ASP的(VBScript)類,只希望給初學者看一看,希望對你們有幫助

2024-05-04 11:06:15
字體:
來源:轉載
供稿:網友
首先asp的(vbscript)類是由事件和方法(它們就是構成類的成員了)構成的,如果大家還沒有接觸過,可以先看看下面的說明(哈哈,我是現學現賣,說得不好請見諒)


在 class 塊中,成員通過相應的聲明語句被聲明為 private(私有成員,只能在類內部調用) 或 public(公有成員,可以在類內外部調用) 。被聲明為 private 的將只在 class 塊內是可見的。被聲明為 public 不僅在 class 塊的內部是可見的,對 class 塊之外的代碼也是可見的。沒有使用 private 或 public 明確聲明的被默認為 public。在類的塊內部被聲明為 public 的過程(sub 或 function)將成為類的方法。public 變量將成為類的屬性,同使用 property get、property let 和 property set 顯式聲明的屬性一樣。類的缺省屬性和方法是在它們的聲明部分用 default 關鍵字指定的。


請大家內心看完藍色的部分,下面我們來看一個例子

<script language=vbscript runat=server>

class myclass
'//----聲明(聲明就是定義)myclass類的類內部(私有的[private])變量
private strauthor
private strversion
private strexample

'//---------------------------定義類的事件-------------------------------//
'//----class_initialize()是類的初始化事件,只要一開始使用該類,首先會觸發該部分的執行,下面我們會在該成員中初始化該類的作者和版本以及在屏幕上顯示一下該類已經開始了

private sub class_initialize()
strauthor = "思源"
strversion = "1.0"
response.write "<br>myclass開始了<br>"
end sub
'//----class_terminate()是類的結束事件,只要一退出該類,就會觸發該事件,下面我們會該事件中設定退出該類時會在屏幕上顯示該類已結束了。

private sub class_terminate()
response.write "<br>myclass結束了<br>"
end sub

'//---------------------------用戶自己定義的方法-------------------------------//

'//----該方法返回一個版本信息

public sub information()
response.write "<br>coding by <a href='mailto:[email protected]'>maxid_zen</a> @ <a >www.design60s.com</a>.<br>"
end sub

'//---------------------------定義類的輸出屬性-------------------------------//

'//----定類的屬性,該屬性是讓用戶初始化strexapmle變量

public property let setexapmle(byval strvar)
strexapmle = strvar
end property

'//---------------------------定義類的輸出屬性-------------------------------//

'//----定義類的屬性,該屬性是返回一個版本號

public property get version
version = strversion
end property

'//----定義類的屬性,該屬性是返回該類的作者號

public property get author
author = strauthor
end property

'//----定義類的屬性,該屬性是返回一個版本號

public property get exapmle
exapmle = strexapmle
end property

end class

</script>
<%

'//-------這里是使用該類的例子

dim onenewclass

set onenewclass = new myclass

response.write "作者:" & onenewclass.author & "<br>"
response.write "版本:" & onenewclass.version & "<br>"

onenewclass.setexapmle = "這是一個簡單類的例子"

response.write "用戶自定義:" & onenewclass.exapmle & "<br>"

onenewclass.information

set onenewclass = nothing

%>

  • 本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理,歡迎訪問。
  • 發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表
    主站蜘蛛池模板: 昌都县| 苏尼特左旗| 会泽县| 南丹县| 西华县| 邮箱| 长垣县| 甘南县| 吉木乃县| 太仓市| 婺源县| 玉林市| 三台县| 松阳县| 霸州市| 南华县| 永福县| 将乐县| 罗定市| 常熟市| 砚山县| 崇礼县| 鄄城县| 石楼县| 龙胜| 枝江市| 上饶市| 尼木县| 天全县| 宁都县| 洛川县| 台江县| 依兰县| 临城县| 阿坝| 民县| 宜阳县| 东莞市| 瓮安县| 庄浪县| 壶关县|