ActiveXÊÇ΢ÈíÌá³öµÄ¹ã·ºÓ¦ÓÃÓÚWindowsϵÁеÄÒ»ÖÖ´úÂë·â×°¼¼Êõ£¬Ìá¸ßÁ˳ÌÐò´úÂëµÄ¿ÉÖØÓÃÐÔ£¬¼Ó¿ìÁ˳ÌÐòÏîÄ¿µÄ¿ª·¢ËÙ¶È£¬Ò»°ã±»³ÆÎª¡°×é¼þ¡±¡£ÔÚVB6µÄ¼¯³É¿ª·¢»·¾³µ±ÖУ¬ÎÒÃÇ¿ÉÒÔ¿´µ½Ò»Ï¼¸ÖÖActiveXÏîÄ¿£º
¡¡¡¡1¡¢ActiveX EXE
¡¡¡¡ÕâÊÇÔÚ¡°¹ý³ÌÍ⡱ÔËÐеÄActiveX/COM·þÎñÆ÷×é¼þ£¬Ò²¾ÍÊÇ˵ËûÃÇÔËÐеĹý³ÌºÍ³õʼ»¯×é¼þµÄ¿Í»§»ú´úÂ벻ͬ¡£¾¡¹Ü¿ÉÒÔÓÃASP·ÃÎÊActiveX EXE£¬µ«ÊDz»ÍƼö¸Ä¶¯IISÔª¿â£¬¸Ã¿âÔÊÐíËùÓеĿÉÖ´ÐÐÎļþÓÉ·þÎñÆ÷ÉÏÔËÐеĽű¾´úÂëÆô¶¯¡£
¡¡¡¡2¡¢ActiveX OCXs
¡¡¡¡ÕâÐ©ÌØÊâµÄ×é¼þ°ÑÖ÷»úÓ¦ÓóÌÐòÏÔʾºÍ²Ù×÷×é¼þËùÐèµÄ¸½¼ÓÖ§³Ö°üº¬ÔÚGUI»·¾³ÖС£»¹¿ÉÒÔ°ÑOCX×é¼þ·ÅÔÚÍøÒ³µ±ÖС£µ«ÊÇ£¬OCXÊÇÓ¦ÓóÌÐò½çÃæ£¬²»¿ÉÒÔʹÓÃASPÀ´´´½¨µÄ¡£
¡¡¡¡3¡¢ActiveXÎĵµDLLºÍActiveXÎĵµEXE
¡¡¡¡ActiveÎĵµ¿ÉÒÔÔÚOLEÎļþÏäÓ¦ÓóÌÐòÖУ¬ÀýÈçIE»òÕßoffice Binder£¬ÏÔʾVB±íµ¥¡£µ«ËûÃÇÔÚASP²»ÄÜÓ¦Óá£
¡¡¡¡4¡¢ActiveX DLLs
¡¡¡¡ÕâЩActiveX/COM×é¼þºÍ³õʼ»¯×é¼þµÄ¿Í»§»úÔÚͬһ¸ö½ø³ÌÖÐÔËÐС£¶øÎÒÃÇÒªÌÖÂÛµÄActiveX DLLÕýÊÇÕû¸ö×é¼þ¡£Ò»°ã΢ÈíµÄ¸½¼Ó×é¼þºÍÆäËûµÄһЩµÚÈý·½³§¼ÒÌṩµÄ¸÷ÖÖ×é¼þ¶¼ÊÇÕâÖÖÀàÐ͵ÄActiveX DLL£¬µ«ÊDz¢²»È«ÊÇʹÓÃVB±àдµÄ£¬Í¬Ñù¿ÉÒÔʹÓÃVC/JAVAµÈµÈÓïÑÔÀ´¿ª·¢¡£
¡¡¡¡Ì½ÌÖÍêÁËʲôÊÇActiveX DLL£¬ÎÒÃÇ¿ªÊ¼Õýʽ±àдÎÒÃÇ×Ô¼ºµÄActiveX DLL£¬ÒÔ±ãÀ´ÊµÏÖASPÖеÄͬÑù¹¦ÄÜ£¬ÖÚËùÖÜÖª£¬ASPÄÚÖÃÁËResponse¡¢Request¡¢Server¡¢Session¡¢ApplicationÎå¸ö¶ÔÏ󣬯äʵÕâÎå¸öÄÚÖöÔÏóÕýÊÇIIS¿ØÖÆÌ¨³õʼ»¯µÄÎå¸öActiveX DLL×é¼þ£¬¼ÈÈ»IIS¿ÉÒÔ³õʼ»¯ÕâÎå¸ö×é¼þÓÃÓÚASPÖУ¬ÎÒÃǵ±È»Ò²¿ÉÒÔÖ±½ÓÔÚÎÒÃǵÄActiveX DLLÖÐÒýÓÃÕâЩ×é¼þÀ´ÊµÏÖÎÒÃǵıà³Ì£¬Ò²¾ÍÊÇ˵ÎÒÃÇ¿ÉÒÔÔÚVBÓ¦ÓóÌÐòÖÐͨ¹ýÒýÓÃÕâЩ×é¼þÀ´ÊµÏÖ·ÃÎÊASPÄÚÖöÔÏóµÄ¹¦ÄÜ¡£
¡¡¡¡Ö»ÒªÄã°²×°ÁËPWS4»òÕßIIS4ÒÔÉϵÄWEB·þÎñÆ÷£¬Äã¾ÍÓµÓÐÁËÒ»¸öÃû³Æ½Ð×ö¡°Microsoft Active Server Pages Object¡±µÄ¶ÔÏó¿â£¬ÎÒÃÇ¿ÉÒÔÔÚVBµÄActiveX DLLÓ¦ÓÃÖÐÒýÓÃÕâ¸ö¶ÔÏó¿â£¬Í¨¹ýÒýÓÃÕâ¸ö¶ÔÏó¿â£¬ÎÒÃǾͻñµÃÁËÒ»¸ö¶ÔÏó£¨Àࣩ£ºScriptingContext£¬Õâ¸ö¶ÔÏóÒ²ÕýÊÇÎÒÃÇÕû¸öÎÄÕÂ̽ÌֵĺËÐĶÔÏó¡£¶ÔÏó¿âÄڵĹØÏµÈçÏ£º
¡¡¡¡¶ÔÏó¿â¡¡¡¡¡¡¡¡¡¡¡¡Àà¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Àà³ÉÔ±
¡¡¡¡ASPTypeLibrary ScriptingContext Application
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Request
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Response
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Session
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Server
¡¡¡¡Í¨¹ýÉÏÃæµÄ¹ØÏµÍ¼£¬ÎÒÃǾͿÉÒÔºÜÈÝÒ×Àí½âÀàScriptingContent¡£ÏÂÃæÎÒÃÇÀ´¿´Ò»¸ö¾ßÌåµÄÀý×Ó°É£º
¡¡¡¡1¡¢ ʹÓÃVB6´´½¨Ò»¸öеÄActiveX DLLÏîÄ¿
¡¡¡¡2¡¢ ÒýÓá°Microsoft Active Server Pages Object¡±¶ÔÏó¿â¡£
¡¡¡¡3¡¢ ´´½¨Á½¸ö×é¼þʼþ£ºOnStartPageÒÔ¼°OnEndPage
¡¡¡¡4¡¢ ÔÚʼþOnStartPageÖд´½¨ÀàScriptingContentµÄÒ»¸öÒýÓá£
¡¡¡¡5¡¢ ʵÀý»¯ÀàScriptingContent¡£
¡¡¡¡Test.cls (ÀàʵÏÖ)
¡¡¡¡'¶ÔÏóµÄÉùÃ÷
¡¡¡¡Dim rp as Response
¡¡¡¡Dim rq as Request
¡¡¡¡Dim ap as Application
¡¡¡¡Dim sr as Server
¡¡¡¡Dim sn as Session
¡¡¡¡'µ±×é¼þ±»´´½¨µÄʱºò»á´¥·¢Õâ¸öʼþ
¡¡¡¡Public Sub OnStartPage(mysc as ScriptingContent)
¡¡¡¡ '½øÐжÔÏóµÄʵÀý»¯
¡¡¡¡ set rp=mysc.Response
¡¡¡¡ set rq=mysc.Request
¡¡¡¡ set sr=mysc.Server
¡¡¡¡ set ap=mysc.Application
¡¡¡¡ set sn=mysc.Session
¡¡¡¡ rp.write "
ActiveX DLL×é¼þÒѾ±»´´½¨ÁË£¡
"
¡¡¡¡End Sub
¡¡¡¡'µ±×é¼þ±»Ïú»ÙµÄʱºò´¥·¢Õâ¸öʼþ
¡¡¡¡Public Sub OnEndPage()
¡¡¡¡ Rp.write "
ActiveX DLL×é¼þÒѾ±»Ïú»Ù£¡
"
¡¡¡¡ 'Ïú»Ù¶ÔÏó
¡¡¡¡ Set rp=nothing
¡¡¡¡ Set rq=nothing
¡¡¡¡ Set sr=nothing
¡¡¡¡ Set ap=nothing
¡¡¡¡ Set sn=nothing
¡¡¡¡End Sub
¡¡¡¡'¶¨ÒåÎÒÃÇ×Ô¼ºµÄÒ»¸ö×é¼þ·½·¨
¡¡¡¡Public Sub HelloWorld()
¡¡¡¡ Rp.write "
Hello,World!
"¡¡¡¡End Sub
¡¡¡¡ÕâÑù£¬ÎÒÃǾʹ´½¨¿ÉÒÔ·ÃÎÊASPÄÚÖöÔÏóµÄActiveX DLLÁË¡£ÎÒÃÇÃüÃûÕâ¸ö×é¼þÏîĿΪfirst£¬ÔÚVBÖмä±àÒëÕâÏîÄ¿³ÉΪһ¸öDLLÎļþfirst.dll£¬²¢ÇÒÎÒÃÇÔÚϵͳÖÐ×¢²áÕâ¸öDLLÎļþ¡£½ÓÏÂÀ´£¬ÎÒÃÇÐèÒªÒ»¸ö¼òµ¥µÄ¼¸ºõûÓÐʲô´úÂëµÄASP³ÌÐòÀ´µ÷ÓÃÕâ¸ö×é¼þ£º
¡¡¡¡test.ASP
¡¡¡¡
¡¡¡¡
¡¡¡¡¡¡¡¡
¡¡¡¡
¡¡¡¡
¡¡¡¡<%
¡¡¡¡Dim testme
¡¡¡¡'´´½¨ÎÒÃǸղűàÒë³É¹¦µÄ×é¼þ£¬Ò»µ©´´½¨Õâ¸ö×é¼þ£¬Í¬Ê±»áÔÚÒ¶ÃæÊä³öÎÄ×Ö¡°ActiveX DLL×é¼þÒѾ±»
¡¡¡¡'´´½¨ÁË£¡¡±
¡¡¡¡set testme=server.createobject("first.test")
¡¡¡¡'µ÷ÓÃ×é¼þµÄ·½·¨
¡¡¡¡testme.HelloWorld
¡¡¡¡'×¢Ïú×é¼þ£¬ÔÚ×¢ÏúµÄͬʱ£¬»á×Ô¶¯ÔÚÒ¶ÃæÏÔʾ¡°ActiveX DLL×é¼þÒѾ±»Ïú»Ù£¡¡±
¡¡¡¡set testme=nothing
¡¡¡¡%>
¡¡¡¡
¡¡¡¡
¡¡¡¡Í¨¹ýÉÏÃæ¼òµ¥µÄÀý×Ó£¬ÎÒÃÇ¿ÉÒÔ¿´µ½Ê¹ÓÃActiveX DLLͬÑù¿ÉÒÔʵÏÖºÍASPͬÑùµÄ¹¦ÄÜ£¬²¢ÇÒ´øÀ´µÄ´úÂë±£ÃܺͳÌÐòÔËÐиü¼Ó¸ßЧµÄÓŵ㡣ActiveX DLLºÍ´¿ASPÓÐן÷×ÔµÄÓŵãºÍȱµã£¬Ö»ÒªÎÒÃǺÏÀíµÄÔËÓÃÕâÁ½ÖÖ¼¼Êõ£¬±ÈÈçÊʵ±µÄ½«ÉÌÒµÂß¼·â×°ÔÚActiveX DLLÖУ¬»òÕßÔÚÐèÒª±£Ãܵĵط½Ê¹ÓÃDLL·â×°¼¼Êõ£¬Ò»¶¨¿ÉÒÔ±àд³ö¸ßЧ¿ìËÙµÄWEBÓ¦ÓóÌÐò¡£
¡¡¡¡£¨ÒÔÉϳÌÐòÔÚVB6ÆóÒµ°æ¡¢Windows2000 ServerÖÐÎİæ²âÊÔͨ¹ý£©

