흔부긍畇寧몸ASP잚
2018-09-06 11:33
품섯莖댕뤘畇죄“ASP?雍파J숯괏Э?콘唐硅놓欺諒샀諒먼먼쌈뇰ASP돨툉堂꼇寧땍供홍였돤츠겜,탉앎憐잿죄寧苟긍畇寧몸ASP잚돨렘랬,댕꼬롸角닖貢?麴弩뉘치OM蕙旽慘起핥逵征行?nbsp;
《ASP?雍파J숯?鱗諒乖뤘?싫?:
dispbbs.asp?boardID=20&ID=247879
看邱ASP돨잚角譚慤숭뵨렘랬(劍쳬앎角뭐냥잚돨냥逃죄)뭐냥돨,흔벎댕소뻘청唐쌈뇰법,옵鹿邱였였苟충돨綱츠:
瞳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밑숩俚寧땍돨。
헝댕소켐懃였供?衢役캉옆練?쩠涎櫓퓽늉닐뻗痔洶但?
<%
//--------------------------------역迦寧몸잚---------------------------------//
ClassmyClass
//----?荷嘆㉸荷態菰퓌ⓕ鶯?yClass잚돨잚코꼬(降唐돨[Private])긴좆
PrivatestrAuthor
PrivatestrVersion
PrivatestrExample
//---------------------------땍屢잚돨慤숭-------------------------------//
//----Class_Initialize()角잚돨놓迦뺏慤숭,怜狼寧역迦賈痰맡잚,看邱삔뇰랙맡꼬롸돨獵契,苟충乖쳬삔瞳맡냥逃櫓놓迦뺏맡잚돨鱗諒뵨경굶鹿섟瞳팁캥?龜豚았뾰쨍쳄詵耭역迦죄
PrivateSubClass_Initialize()
strAuthor=coldstone
strVersion=1.0
Response.Write<br>myClass역迦죄<br>
EndSub
//----Class_Terminate()角잚돨써監慤숭,怜狼寧藁놔맡잚,앎삔뇰랙맡慤숭,苟충乖쳬삔맡慤숭櫓?擁ⓐ糠嗤쳄線굳俗泯좔뽄龜豚씀쳄詵耆蔬平匣?nbsp;
PrivateSubClass_Terminate()
Response.Write<br>myClass써監죄<br>
EndSub
//---------------------------痰빵菱성땍屢돨렘랬-------------------------------//
//----맡렘랬럿쀼寧몸경홈斤口
PublicSubInformation()
EndSub
//---------------------------땍屢잚돨渴놔橄昑-------------------------------//
//----땍잚돨橄昑,맡橄昑角횻痰빵놓迦뺏strExapmle긴좆
PublicPropertyLetsetExapmle(ByValstrVar)
strExapmle=strVar
EndProperty
//---------------------------땍屢잚돨渴놔橄昑-------------------------------//
//----땍屢잚돨橄昑,맡橄昑角럿쀼寧몸경굶뵀
PublicPropertyGetVersion
Version=strVersion
EndProperty
//----땍屢잚돨橄昑,맡橄昑角럿쀼맡잚돨鱗諒뵀
PublicPropertyGetAuthor
Author=strAuthor
EndProperty
//----땍屢잚돨橄昑,맡橄昑角럿쀼寧몸경굶뵀
PublicPropertyGetExapmle
Exapmle=strExapmle
EndProperty
EndClass
%><%
//-------侶쟁角賈痰맡잚돨절綾
DimoneNewClass
SetoneNewClass=NewmyClass
Response.Write鱗諒:&oneNewClass.Author&<br>
Response.Write경굶:&oneNewClass.Version&<br>
oneNewClass.setExapmle=侶角寧몸숌데잚돨절綾
Response.Write痰빵菱땍屢:&oneNewClass.Exapmle&<br>
SetoneNewClass=Nothing
%>
上一篇:asp뻠닸잚
下一篇:ASP常用函数:IIF()