ÓÃ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´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......
¿´Á˱ðÈËдµÄC#µÄ ×Ô¼º×ªÁËһϠȻºóºóÖØÐ¸ÄÁË¸Ä Ð´³ÉÁËÕâ¸ö
ÁíÍ⻹ÓÐÒ»¸öÎÒдµÄÑéÖ¤ÈÕÆÚÊÇ·ñºÏ·¨µÄ´úÂë ÔÚºóÃæ ¶¼ÊÇvbµÄ c#Ö»»á¿´²»»áд
'ÅжÏÈòÄê=======================
Private Function CheckLeap(ByVal year As Integer) As Boolean
If (year Mod 4 = 0) AndAlso (year Mod 100 <> ......
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
......
ǰ¶Îʱ¼ä¸ø¿Í»§×öÁ˼¸¸öÍøÒ³£¬¿Í»§ÒªÇóÔÚ×Ô¼ºµÄÍøÕ¾ÖÐÏÔʾ×Ô¼ºÔÚÐÂÀ˲©¿ÍÀïµÄÎÄÕ£¬×÷ÎªÍøÕ¾µÄÒ»²¿·Ö¡£ÕâÑùµÄÇé¿ö¿ÉÒÔ½â¾ö£¬Ö÷Òª¿ÉÒÔͨ¹ý²©¿ÍÖÐµÄ XMLÀ´ÊµÏÖ£¬Í¨¹ýÓÃaspÀ´¶ÁÈ¡²©¿ÍÖÐXML£¬½«²©¿ÍÖеıêÌâ¡¢·¢²¼Ê±¼äµÈÐÅÏ¢ÏÔʾÔÚÍøÕ¾ÖС£µ«ÊÇÔÚʹÓõĹý³ÌÖУ¬³öÏÖÁËÒ»¸öÎÊÌ⣺µ±²©¿ÍÖÐÌí¼ÓÎÄÕºó£¬ÔÚÍøÒ³ÖжÁÈ¡²©¿ÍÖеÄXMLºó½ ......