ASP櫓잚Class宮밑코휭돨憐잿栗죕
2018-09-06 12:06
Class뚤蹶
賈痰Class刀얌눼쉔돨뚤蹶。瓊묩죄뚤잚돨몹蘆慤숭돨련狂。
綱츠
꼇豚冀鞫駕뒈쉥寧몸긴좆?荷吐?nbsp;Class잚謹。瞳VBScript돨?龜쫍켯叫А걋蓆冬鏶귑뺨癎링켁핥?nbsp;VBScriptClass刀얌땍屢돨훨부뚤蹶。
瞳賈痰Class刀얌쉔접죄잚땍屢裂빈,옵鹿痰苟충돨近駕눼쉔잚돨寧몸茄절:
DimX
SetX=Newclassname
譚黨VBScript角寧蘆빈퍅獨監謹刀喇,苟충돨隣랬角꼇豚冀돨:
DimXasNewclassname
-샀-
DimX
X=Newclassname
-샀-
SetX=NewScripting.FileSystemObject
Class뚤蹶돨慤숭
Class뚤蹶瓊묩뚤잚돨慤숭돨련狂。
Initialize慤숭
瞳눼쉔잚돨茄절珂랙?駭疥쩌。
PrivateSubClass_Initialize()
刀얌
EndSub
뎠잚놓迦뺏珂,statements꼬롸譚쥐몸샀뜩몸쉥狼頓契돨덜쯤刀얌莉냥。
綱츠
苟충돨절綾蘿刻죄Initialize慤숭돨痰랬。
ClassTestClass
PrivateSubClass_Initialize?阮?nbsp;Initialize慤숭。
MsgBox(TestClassstarted)
EndSub
PrivateSubClass_Terminate?阮?nbsp;Terminate慤숭。
MsgBox(TestClassterminated)
EndSub
EndClass
SetX=NewTestClass눼쉔寧몸TestClass茄절。
SetX=Nothing?쓱輝돛爻?
Terminate慤숭
瞳杰밑젬돨잚돨茄절老岺珂랙?駭疥쩌。
PrivateSubClass_Terminate()
刀얌
EndSub
뎠잚놓迦뺏珂,statements꼬롸譚쥐몸샀뜩몸쉥狼頓契돨덜쯤刀얌莉냥。
綱츠
苟충돨절綾蘿刻죄Terminate慤숭돨痰랬。
ClassTestClass
PrivateSubClass_Initialize?阮?nbsp;Initialize慤숭。
MsgBox(TestClassstarted)
EndSub
PrivateSubClass_Terminate?阮?nbsp;Terminate慤숭。
MsgBox(TestClassterminated)
EndSub
EndClass
SetX=NewTestClass눼쉔寧몸TestClass茄절。
SetX=Nothing?쓱輝돛爻?
Class刀얌
?荷桶뻗痔碩컬惠튁б獨겜褥?맡잚돨긴좆、橄昑뵨렘랬돨땍屢。
Classname
statements
EndClass
꽝鑒
name극朞淃。Class돨츰냔;潾亮깃硫돨긴좆츱츰방橙。
statements극朞淃。寧몸샀뜩몸刀얌,땍屢죄Class돨긴좆、橄昑뵨렘랬。
綱츠
瞳Class욥櫓,냥逃繫법宮壇돨?荷洞絶峨뽄荷吐?nbsp;Private샀Public。굳?荷吐?nbsp;Private돨쉥怜瞳Class욥코角옵숨돨。굳?荷吐?nbsp;Public꼇쏭瞳Class욥돨코꼬角옵숨돨,뚤Class욥裂棍돨덜쯤冷角옵숨돨。청唐賈痰Private샀Public츠횅?荷宕캇뼛?鷗?nbsp;Public。
瞳잚돨욥코꼬굳?荷吐?nbsp;Public돨법넋(Sub샀Function)쉥냥槨잚돨렘랬。Public긴좆쉥냥槨잚돨橄昑,谿賈痰PropertyGet、PropertyLet뵨PropertySet鞫駕?荷宕켁轍同뿌品@碩컹궝Å轍牘庫슘㉹함密豁풩케荷塔옆爐?nbsp;Default밑숩俚寧땍돨。밑黨흔부賈痰맡밑숩俚,헝꽝옘데뗌돨?荷洞絶斡攄戍?
PropertyGet刀얌
瞳Class욥櫓,?荷蕩뭄?痰윱혤돤(럿쀼)橄昑令돨Property법넋돨寮竟돨츰냔、꽝鑒뵨덜쯤。
[Public[Default]Private]PropertyGetname[(arglist)]
[statements]
[[Set]name=expression]
[ExitProperty]
[statements]
[[Set]name=expression]
EndProperty
꽝鑒
Public깊츠PropertyGet법넋옵鹿굳杰唐신굶櫓돨페儉법넋련狂。
Default怜宅Public밑숩俚寧폅賈痰,깊츠PropertyGet법넋櫓땍屢돨橄昑槨잚돨홧伽橄昑。
Private깊츠PropertyGet법넋怜뚤땍屢劍돨Class욥櫓돨페儉법넋角옵鹿련狂돨。
namePropertyGet법넋돨츰냔;潾磵깃硫돨긴좆츱츰방橙,혐깎쏭쏭瞳黨劍옵鹿宅谿寧Class욥櫓돨PropertyLet샀PropertySet법넋。
arglist맡긴좆죗깊덜깊죄PropertyGet법넋굳딧痰珂눈뒵못劍돨꽝鑒。뜩몸꽝鑒裂쇌痰떵뵀롸몰역。PropertyGet법넋櫓돨첼몸꽝鑒돨츰냔극伎宅PropertyLet법넋櫓돨宮壇꽝鑒宮谿(흔벎唐돨뺐)。
statements
훨雷돨寧莉刀얌,쉥瞳PropertyGet법넋돨寮竟櫓獵契。
Set
瞳쉥뚤蹶鱗槨PropertyGet법넋돨럿쀼令珂賈痰돨밑숩俚。
expressionPropertyGet법넋돨럿쀼令。
綱츠
흔벎灌賈痰Public샀Private츠횅?荷嘆г?nbsp;PropertyGet법넋굳홧伽槨무唐돨,섦劍쳬뚤黨신굶櫓돨페儉杰唐법넋떼角옵숨돨。PropertyGet법넋櫓돨애꼬긴좆돨令瞳꼇谿돨법넋딧痰裂쇌角꼇괏닸돨。
瞳페儉훨부법넋(절흔Function샀PropertyLet)코꼬떼꼇콘땍屢PropertyGet법넋。
ExitProperty刀얌쉥돔鈴접섦닖PropertyGet법넋櫓藁놔。넋埼쉥셨崎獵契딧痰PropertyGet법넋돨刀얌裂빈돨넋埼。ExitProperty刀얌옵鹿놔君瞳PropertyGet법넋櫓돨훨부貫零,늴鑒꼇掘。
宅Sub뵨PropertyLet법넋잚慨,PropertyGet법넋角콘뭘쌈肝꽝鑒돨법넋,옵鹿獵契寧溝죗돨刀얌,鹿섟맣긴꽝鑒돨令。횔랍,宅Sub뵨PropertyLet꼇谿돨角,PropertyGet법넋옵鹿굳痰黨깊댐駕돨塘꿋,痰宅賈痰Function샀橄昑츰냔宮谿돨렘駕윱럿쀼橄昑돨令。
狼헹
경굶5
PropertyLet刀얌
瞳Class욥櫓,?荷胎惠퉤∑狂訓姑響逾호?豁퓜뭄?죄?阮초轍棟도?nbsp;Property법넋돨寮竟。
[PublicPrivate]PropertyLetname(
[arglist,]value
)
[statement]
[ExitProperty]
[statement]
EndProperty
꽝鑒
Public깊츠PropertyLet법넋옵鹿굳杰唐신굶櫓돨페儉杰唐법넋련狂。
Private깊츠PropertyLet법넋怜콘굳땍屢裂돨Class욥코돨페儉법넋련狂。
namePropertyLet법넋돨츰냔;潾磵깃硫돨긴좆츱츰방橙,혐깎쏭쏭瞳黨페츰냔옵鹿宅宮谿Class욥櫓돨PropertyGet샀PropertySet법넋宮谿。
arglist맡긴좆죗깊덜깊죄瞳딧痰珂굳눈뒵돕PropertyLet법넋돨꽝鑒。뜩몸꽝鑒裂쇌痰떵뵀몰역。PropertyLet법넋돨첼몸꽝鑒돨츰俚극伎宅PropertyGet법넋櫓돨宮壇꽝鑒宮谿。늪棍,PropertyLet법넋돨꽝鑒궐宮壇돨PropertyGet법넋悧狼뜩寧몸。맡꽝鑒槨굳립貸橄昑돨令。
value맡긴좆櫓관벵狼립貸橄昑돨令。뎠법넋굳딧痰珂,맡꽝鑒쉥놔君瞳딧痰깊댐駕돨塘꿋。
statement훨雷돨寧莉刀얌,쉥瞳PropertyLet법넋돨寮竟코獵契。
綱츠
흔벎灌츠횅뒈賈痰Public샀Private쏵契寧땍,PropertyLet법넋굳홧伽?阮촘すビ筠친Ъ늪豁퓌憧黴킥씻湄컷齷澔漢橘勳繭셥퓻?숨돨。PropertyLet법넋櫓돨애꼬긴좆돨令瞳꼇谿돨법넋딧痰裂쇌角꼇굳괏닸돨。
瞳페儉훨부법넋(절흔Function샀PropertyGet)돨코꼬꼇콘뭘땍屢PropertyLet법넋。
ExitProperty刀얌쉥돔鈴접섦닖PropertyLet법넋櫓藁놔。넋埼쉥닖딧痰PropertyLet법넋돨刀얌裂빈돨듐셨崎獵契。ExitProperty刀얌옵鹿놔君瞳PropertyLet법넋櫓돨훨부貫零,늴鑒꼇掘。
鬧雷첼몸PropertyLet刀얌극伎槨杰땍屢돨법넋逞?帽ⓕ諒뻗厠狂爻8챵狂酵ⓗ渼然眉錫厠狂輝굘켰咀塹뻗厠狂酵ʼn煥Я綱?nbsp;PropertyLet刀얌굳딧痰珂狼립貸橄昑돨令。맡꽝鑒瞳품충돨刀랬櫓냔槨value。
宅Function뵨PropertyGet법넋잚慨,PropertyLet법넋角寧몸데뗌돨법넋,劍옵鹿쌈肝꽝鑒,獵契寧溝죗돨刀얌,뻘옵鹿맣긴꽝鑒돨令。꼇법,宅Function뵨PropertyGet법넋꼇谿돨角,劍쳬좃諒떼럿쀼寧몸令,랍PropertyLet법넋怜콘痰黨橄昑립令깊댐駕돨璘꿋。
狼헹
경굶5
PropertySet刀얌
瞳Class욥櫓,?荷胎惠퉤∑狂訓姑響猷д髓㈈뭄?죄쉥多痰?阮천슐冬捉?nbsp;Property법넋돨寮竟。
[PublicPrivate]PropertySetname(
[arglist,]reference
)
[statement]
[ExitProperty]
[statement]
EndProperty
꽝鑒
Public
깊츠PropertySet법넋옵鹿굳杰唐신굶櫓돨페儉杰唐법넋련狂。
Private
깊츠PropertySet법넋怜콘굳?荷統돨谿寧Class욥櫓돨페儉법넋련狂。
name
PropertySet법넋돨츰냔;潾磵깃硫돨긴좆츱츰방橙,꼇법맡츰냔옵鹿宅谿寧몸Class욥櫓돨PropertyGet샀PropertyLet법넋宮谿。
arglist
긴좆죗깊,덜깊瞳PropertySet법넋굳딧痰珂눈뒵못劍돨꽝鑒。뜩몸꽝鑒裂쇌痰떵뵀롸몰역。늪棍,PropertySet법넋쉥悧角궐劍宮壇돨PropertyGet법넋뜩寧몸꽝鑒。侶몸뜩놔윱돨꽝鑒角굳립貸橄昑돨뚤蹶。
reference
긴좆,페櫓관벵굳痰黨뚤蹶多痰립令돨塘꿋돨뚤蹶多痰。
statement
쉥狼瞳PropertySet법넋寮竟櫓獵契돨훨부寧莉刀얌。
綱츠
뇜렷賈痰Public샀Private츠횅뒈쏵契寧땍,뤠橙PropertySet법넋굳?阮촘と궝〉캣ビ懃J숲Ъ늄킥애筠컷齷澔漢橘勳繭셥퓻?숨돨。瞳꼇谿돨법넋딧痰珂,PropertySet법넋櫓돨애꼬긴좆角꼇괏닸돨。
瞳페儉훨부법넋(절흔Function샀PropertyLet)櫓떼꼇콘뭘땍屢PropertySet법넋。
ExitProperty刀얌쉥돔鈴접섦닖PropertySet법넋櫓藁놔。넋埼쉥셨崎獵契딧痰PropertySet법넋裂빈돨刀얌。ExitProperty刀얌돨鑒좆꼇肝掘齡,옵鹿놔君瞳PropertySet법넋櫓돨훨부貫零。
鬧雷첼몸PropertySet刀얌떼극伎槨杰땍屢돨법넋逞?帽ⓕ諒뻗厠狂爻5?nbsp;PropertySet刀얌杰땍屢돨법넋굳딧痰珂,맡꽝鑒(瞳뜩몸꽝鑒珂槨離빈寧몸꽝鑒)쉥槨橄昑瓊묩茄셥돨뚤蹶多痰。瞳품충돨刀랬櫓,맡꽝鑒냔槨多痰。
宅Function뵨PropertyGet법넋잚慨,PropertySet법넋角寧몸데뗌돨법넋,劍옵鹿唐흼맴꽝鑒,獵契寧溝죗돨刀얌,뻘옵鹿맣긴꽝鑒돨令。횔랍,宅Function뵨PropertyGet법넋꼇谿돨角,변鑒뵨법넋떼옵鹿럿쀼令,랍PropertySet법넋뚤蹶多痰립令(Set刀얌)돨璘꿋。
狼헹
경굶5
Public刀얌
땍屢무唐긴좆깻롸토닸뇨왕쇌。瞳Class욥櫓땍屢降唐긴좆。
Publicvarname[([subscripts])][,varname[([subscripts])]]...
꽝鑒
varname
긴좆돨츰냔,潾琦깃硫긴좆츱츰방橙。
subscripts
鑒莉긴좆돨郭鑒;離뜩옵鹿?荷?nbsp;60郭돨鑒莉。subscripts꽝鑒賈痰苟죗刀랬:
upper[,upper]...
鑒莉돨苟썹悧角0。
綱츠
Public刀얌긴좆옵痰黨홍꼬신굶櫓돨杰唐법넋。
瞳賈痰多痰뚤蹶돨긴좆裂품,극伎痰Set刀얌쉥캐몸綠唐뚤蹶립貸맡긴좆。瞳립令裂품,杰?荷宕캘冬茶幄엽뺙催섶槨Empty。
冷옵痰던왕途윅뵀돨Public刀얌윱?荷帑檄鑒莉。?荷帑檄鑒莉빈,옵瞳법넋코賈痰ReDim刀얌윱땍屢맡鑒莉돨郭鑒뵨禱羹。흔벎桿暠路劤?荷澤洶浴幄영켑?酵?年疥洶浴幄영캑僭⌒喇?nbsp;Private、Public샀Dim刀얌櫓鞫駕뒈寧땍,橙삔랙?駭鵲鏶?
苟충절綾앨절綱츠흔부賈痰Public刀얌:
PublicMyNumber무痰Variant긴좆。
PublicMyArray(9)무痰鑒莉긴좆。
Variant긴좆돨뜩몸무痰?荷鐸?
PublicMyNumber,MyVar,YourNumber
Private刀얌
땍屢降唐긴좆깻롸토닸뇨왕쇌。瞳Class욥櫓땍屢降唐긴좆。
Privatevarname[([subscripts])][,varname[([subscripts])]]...
꽝鑒
varname
긴좆돨츰냔;潾琦깃硫긴좆츱츰방橙。
subscripts
鑒莉긴좆돨郭鑒,離뜩옵鹿?荷?nbsp;60郭돨鑒莉。subscripts꽝鑒賈痰苟죗刀랬:
upper[,upper]...
鑒莉돨苟썹悧角0。
綱츠
Private刀얌긴좆怜콘瞳?荷糖챰幄영캭킥애芹밉찼?
瞳賈痰多痰뚤蹶돨긴좆裂품,극伎痰Set刀얌쉥캐몸君唐뚤蹶립貸늪긴좆。瞳립令裂품,杰?荷宕캘冬茶幄엽뺙催섶Empty。
冷옵痰던왕途윅뵀돨Private刀얌?荷帑檄鑒莉。?荷帑檄鑒莉빈,옵瞳법넋코賈痰ReDim刀얌땍屢맡鑒莉돨郭鑒뵨禱羹。흔벎瞳Private、Public샀Dim刀얌櫓綠鞫駕寧땍鑒莉댕鬼,홱桿暠路劤?荷澤洶佑?酵Ь敲掃▨駭鵲鏶?
鬧雷瞳법넋櫓賈痰Private刀얌珂,繫끽쉥Private刀얌렴瞳법넋돨역迦뇹。
苟충절綾앨절綱츠흔부賈痰Private刀얌:
PrivateMyNumber降唐Variant긴좆。
PrivateMyArray(9)降唐鑒莉긴좆。
Variant긴좆돨뜩몸降唐?荷鐸?
PrivateMyNumber,MyVar,YourNumber
上一篇:有关站内模糊查询的源程序!