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

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


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êÇ©Ö®¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈÇ°±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØбàÒë.ÕâÀïASP¾Í±ÈCGI¶àÒ»µãËÙ¶ÈÓÅÊÆ,ÒòΪCGI ÊÇÿһ¸öÇëÇó¶¼Ê¹ÓÃÒ»¸öÏß³Ì.ÕâÑù¾Í´ó´óÏûºÄÁË·þÎñÆ÷µÄ×ÊÔ´.
Æô¶¯ÄãµÄVB,Ñ¡ÔñActiveXͼ±ê.Õâ¸öͼ±ê¿ÉÒÔÔÚн¨¹¤³ÌÕÒµ½!VB»áÌṩһ¸öĬÈϵŤ³ÌÃû(project1)ºÍÀàÃû( class1).ÎÒÃǻὫÕâÁ½¸öÃû×Ö¶¼¸Äµô.ÔÚ¸ÄÃû֮ǰ,ÇëÊ×ÏÈÈ·ÈÏÎÒÃÇÓµÓÐMicrosoftActiveServerPag esObjectLibrary,ËüÔÚÎÒÃǵijÌÐò·Ç³£ÓÐÓÃ.´Ó²Ëµ¥ÖÐÑ¡Ôñ"¹¤³Ì",È»ºóÔÚÆäÖÐÑ¡Ôñ"ÒýÓÃ",¾Í»á³öÏÖ"ÒýÓÃ"´°¿Ú´ÓÖÐÑ¡ÔñMicrosoftActiveServerPagesObjectLibrary.
¸ø¹¤³ÌºÍÀàÃüÃû
ÏÖÔÚÎÒÃÇÀ´¸ù¾Ý×Ô¼ºµÄ°®ºÃÀ´Îªproject1ºÍclass1À´ÃüÃû°É!¸øËüÃÇÃüÃûÒ²ÊǺÜÖØÒªµÄ,ÎÒÃÇÒÔºó»áÓÃÕâ¸ö¹¤³ÌÃûºÍÀàÃûÀ´´´½¨Õâ¸ö×é¼þµÄʵÀý!ºóÃæÏêϸ½éÉÜ.
ÈçºÎ¸ÄÃû,ÎҾͲ»Ïë¶à˵ÁË!
ÎÒÃǵŤ³ÌÃû¸ÄΪExmaple,ÀàÃûΪHelloword
ÔõÑùʹÓù¤³ÌºÍÀà
ÏÖÔÚÎÒÃÇÓÐÁËÎÒÃÇ×Ô¼ºµÄ¹¤³Ì(Example1)ºÍÀàÃû(HelloWorld).ÒÔºóÎÒÃǾͻáÔÚASP´úÂëÖÐʹÓÃËüÃǵÄÃû×ÖÀ´ÒýÓÃÕâ¸ö×é¼þ.ÔÚASPÖÐÎÒÃǾÍÕâÑùÒýÓÃ,ÈçÏÂ:
SetObjReference=Server.CreateObject("ProjectName.ClassName")
¶ÔÓÚÎÒÃǹ¤³ÌµÄÒýÓþÍÊÇ:
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ÏÖÔÚÎÒÃǾÍÄÜÓÃObjReferenceÀ´µ÷ÓÃÎÒÃÇÔÚ×é¼þÖÐËù´´½¨µÄº¯Êý,×Ó³ÌÐò.ÏÂÃæÎÒÃÇ»áÀ´Ð´Ò»¸öSayHelloµÄ×Ó³ÌÐò ,ÎÒÃÇÖ´ÐÐËüµÄ´úÂëÈçÏÂ:
¡´%
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
helloworld.cls
--------------------------------------------------------------------------------------------------------------------------------------
Private Wenscript....ingContext   As script....ingContext
Private WenApplication   As Application
Private WenRequest   As Request
Private WenResponse   As Response
Private WenServer   As Server
Private WenSession   As Session
Public Sub OnStartPage(Passedscript....ingContext As script....ingContext)
Set Wenscript.


Ïà¹ØÎĵµ£º

aspµ¥Ò³Éú³É¾²Ì¬Ò³

½ñÌìÔÚÍøÉÏÕÒÁ˺þùØÓÚASPÉú³É¾²Ì¬Ò³µÄ´úÂë  ×î¶àµÄ¾ÍÊÇ FSO·½·¨£¬Ä£°å·½·¨£¬µ«²»ÖªµÀ£¬ÎÒ°Ñ´úÂëÄÃÀ´Ö®ºó¶¼²»ºÃÓ㬾ÍÊÇÌṩÏÂÔصÄѹËõ°üÀïÃæдºÃµÄÎÒÔËÐж¼ÊÇÓдíÎ󡣡£
²»¹ý»ÆÌì²»¸ºÓÐÐÄÈË£¬ÎÒÖÕÓÚÕÒµ½Ò»¸öµ¥Ò³Éú³É¾²Ì¬µÄ·½·¨£¬ÄóöÀ´¸ø´ó¼Ò·ÖÏí
<!-- ======================== Éú³É¾²Ì¬·½·¨ ================ ......

VBÄ£Äâ·¢ËÍICMPÊý¾Ý°ü(´úÂëÖ±½Ó¿ÉÓÃ)

'*********************************************************************
'         ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......

VB¸ù¾Ý´°¿Ú±êÌâ»ñÈ¡Ó¦ÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)

VB¸ù¾Ý´°¿Ú±êÌâ»ñÈ¡Ó¦ÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......

(ת)VBÖд´½¨¿ÉÒÔÊä³öº¯ÊýµÄDLL

VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚV ......

[VB]GDI+ IStream¡¢StdPicture¡¢Byte() »¥×ª

ºÜ¶àÄêÇ°¾ÍÏë×öÒ»¸öÔ¶³Ì¿ØÖƵÄÈí¼þ£¬Ö»ÊÇÒ»Ö±ÒÔÀ´Í¼Æ¬µÄѹËõËÙ¶È×ÜÊÇÌáÉý²»ÉÏÈ¥£¬¶øÎÒÒ²²Î¿¼¹ýºÜ¶àÍøÉϵĹØÓÚͼƬѹËõµÄÀý×Ó£¬±ÈÈçzyl910µÄGIF_LZWѹËõ·½·¨£¬HuffmanѹËõ·½·¨£¬ÒÔÖÁµ½GDI+µÄÖ±½ÓÉú³ÉJPG¡¢PNGµÄ·½·¨£¨ÕâÖÖ·½·¨ÎÞÂÛ´ÓѹËõÂʺÍËÙ¶ÈÉ϶¼ÊÇ×î¼ÑµÄ£¬¿ÉϧÕâÖÖ·½·¨ÍøÉÏһֱûÕÒµ½Ö±½Ó±£´æΪByte()µÄÀý×Ó£¬¼ûµÃ×î¶àµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ