Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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.


Ïà¹ØÎĵµ£º

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

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

ASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÏ´ÅÆ£©

¹¦ÄÜ×÷ÓãºASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÓÎÏ·Ï´ÅÆ£©
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......

ASP ÄÚ½¨¶ÔÏó

 
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇó ......

ASP ÄÚ½¨¶ÔÏó

 
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ