Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb class Property Get¡¢Property Let ʹÓÃ

vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²ÊǿɼûµÄ¡£
'ûÓÐʹÓà Private »ò Public Ã÷È·ÉùÃ÷µÄ±»Ä¬ÈÏΪ Public¡£ÔÚÀàµÄ¿éÄÚ²¿±»ÉùÃ÷Ϊ Public µÄ¹ý³Ì£¨Sub »ò Function£©½«³ÉΪÀàµÄ·½·¨¡£
'Public ±äÁ¿½«³ÉΪÀàµÄÊôÐÔ£¬Í¬Ê¹Óà Property Get¡¢Property Let ºÍ Property Set ÏÔʽÉùÃ÷µÄÊôÐÔÒ»Ñù¡£
'ÀàµÄȱʡÊôÐԺͷ½·¨ÊÇÔÚËüÃǵÄÉùÃ÷²¿·ÖÓà Default ¹Ø¼ü×ÖÖ¸¶¨µÄ¡£
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:coder@sinobe.com'>Maxid_Zen</a> @ <a href='http://www.design60s.com'>www.design60s.com</a>.<br/>"
End Sub
'//---------------------------¶¨ÒåÀàµÄÊä³öÊôÐÔ-------------------------------//
'//----¶¨ÀàµÄÊôÐÔ£¬¸ÃÊôÐÔÊÇÈÃÓû§³õʼ»¯strExample±äÁ¿
Public Property Let setExample(ByVal strVar)
strExample = strVar
End Property
'//---------------------------¶¨ÒåÀàµÄÊä³öÊôÐÔ-------------------------------//


Ïà¹ØÎĵµ£º

VB¾ÖÓòÍøÉ¨Ãè

   ×î½üÓÉÓÚ¹¤×÷ÏîĿԭÒò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøÉ¨ÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
     ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à
 
PMP  ¹Ø¾¢ËÉ
 
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB½øÐпª·¢¡£
    Ê×ÏÈÊÇΪ×Ô¶¯»¯²âÊÔÈí¼þÔö¼ÓÈÕÖ¾¹¦ÄÜ£¬½«Ã¿ÌìµÄÊý¾Ý¼Ç¼µ½Ò»¸ölogÎļþ¡£ÎÒΪÁË·½±ãʹÓÃÁËFSO¶ÔÏó£¬ ......

VBÖеÄcommand

ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......

ÓÃVB°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......

ÖØÊ°VBÖ®¶þ£¬ºÁÃëÆª

ÖØÊ°VBÖ®¶þ£¬ºÁÃëÆª
PMP ¹Ø¾¢ËÉ
   
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
    ÔÚvbÖÐÈçºÎ»ñµÃºÁÃ뾫¶È¼¶±ðµÄʱ¼ä£¿vbµÄʱ¼äº¯Êý²»Ö§³ÖºÁÃ룬ÐèÒªÀûÓÃwindowsµÄ»ù±¾API£¬±àд³ÌÐò²ÅÄÜ»ñÈ¡ºÁÃë¼¶ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ