¡¾·±ÌåÖÐÎÄ¡¿
¡¾ÉèΪÊ×Ò³¡¿
¡¾¼ÓÈëÊղء¿
µ±Ç°Î»ÖãºASP¼¼ÊõÊ×Ò³ >> ASP»ù´¡ >> ¹ØÓÚÓÃCOM·â×°ASP´úÂëµÄÎÄÕ£¬½¨Òé¼ÓÈ뾫»ªÇø

¹ØÓÚÓÃCOM·â×°ASP´úÂëµÄÎÄÕ£¬½¨Òé¼ÓÈ뾫»ªÇø

2006-07-15 08:00:00  ×÷Õߣº  À´Ô´£º»¥ÁªÍø  ä¯ÀÀ´ÎÊý£º0  ÎÄ×Ö´óС£º¡¾´ó¡¿¡¾ÖС¿¡¾Ð¡¡¿
¼ò½é£ºActiveXÊÇ΢ÈíÌá³öµÄ¹ã·ºÓ¦ÓÃÓÚWindowsϵÁеÄÒ»ÖÖ´úÂë·â×°¼¼Êõ£¬Ìá¸ßÁ˳ÌÐò´úÂëµÄ¿ÉÖØÓÃÐÔ£¬¼Ó¿ìÁ˳ÌÐòÏîÄ¿µÄ¿ª·¢ËÙ¶È£¬Ò»°ã±»³ÆÎª¡°×é¼þ¡±¡£ÔÚVB6µÄ¼¯³É¿ª·¢»·¾³µ±ÖУ¬ÎÒÃÇ¿ÉÒÔ¿´µ½Ò»Ï¼¸ÖÖActiveXÏîÄ¿£º ¡¡¡¡1...

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

¡¡¡¡

¡¡¡¡

¡¡¡¡¡¡¡¡²âÊÔActiveX DLL

¡¡¡¡

¡¡¡¡

¡¡¡¡<%

¡¡¡¡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ÖÐÎİæ²âÊÔͨ¹ý£©

ÔðÈα༭£ºadmin
±¾ÎÄÒýÓõØÖ·£º http://www.3pcode.com/asp/2006/07/83450.htm
Ïà¹ØÎÄÕÂ