ÔÚASPÎļþÖе÷ÓÃDLL |
|
|
×÷ÕߣºÎ´Öª À´Ô´£ºÔ¹âÈí¼þÕ¾ ¼ÓÈëʱ¼ä£º2005-2-28¡¡Ô¹âÈí¼þÕ¾ |
ÔÚASPÎļþÖе÷ÓÃDLL ×÷Õß:³ÂÃô½Ü ¡¡¡¡¶¯Ì¬Áª½Ó¿â(DLL)ÊǼӿìÓ¦ÓóÌÐò¹Ø¼ü²¿·ÖµÄÖ´ÐÐËٶȵÄÖØÒª·½·¨£¬µ«ÓÐÒ»µã¿ÖÅ´󲿷ÖÈ˶¼²»ÖªµÀ£¬ÄǾÍÊÇÔÚASPÎļþÒ²ÄÜͨ¹ýµ÷ÓÃDLLÀ´¼Ó¿ì·þÎñÆ÷µÄÖ´ÐÐËÙ¶È£¬ÏÂÃæÎÒ¼òµ¥µÄ½éÉÜÒ»ÏÂÔÚASPÎļþµ÷ÓÃDLLµÄ²½Öè¡£ ¡¡¡¡Ê×ÏÈ£¬±ØÐëµÃÓÐDLLÎļþ£¬±¾ÀýÊÇͨ¹ýVB5.0´´½¨ActiveX DLLÎļþ£¬Õâ¸öÎļþÄ£ÄâÁËÒ»¸öÖÀÉ«×ӵĹý³Ì¡£ ÔÚVB5.0µÄ»·¾³Ï£¬Ð½¨Ò»¸ö¹¤³Ì£¬²¢Ë«»÷н¨¹¤³Ì´°¿ÚÖÐActiveX DLLͼ±ê£¬VB½«×Ô¶¯ÎªÏîÄ¿Ìí¼ÓÒ»¸öÀàÄ£¿é£¬²¢½«¸ÃÏîÄ¿ÀàÐÍÉèÖÃΪActiveX DLL¡£ÔÚÊôÐÔ´°¿Ú½«ÀàÄ£¿éµÄÃû³ÆÊôÐÔ¸ÄΪclsDice¡£´Ó¹¤³Ì²Ëµ¥ÖУ¬Ñ¡Ôñ¹¤³ÌÊôÐÔ£¬½«¹¤³ÌÃû³Æ¸ÄΪMyDLL¡£´ÓÎļþ²Ëµ¥ÖУ¬Ñ¡Ôñ±£´æclsDice£¬½«ÀàÄ£¿é±£´æÎªmyDice.cls¡£Ìí¼ÓÒÔÏ´úÂ룺
Option Explicit
Private Max, Point As Integer
Public Property Get Result() As Integer Result = Point End Property
Public Property Get Maxpoint() As Integer Maxpoint = Max End Property
Public Property Let Maxpoint(num As Integer) Max = num End Property
Public Sub Throw() Randomize Point = Int(Rnd * Max) + 1 End Sub
Private Sub Class_Initialize() Max = 6 End Sub
¡¡¡¡Õâ¸öÀàÄ£¿é¶¨ÒåÁËclsDice¶ÔÏóµÄÁ½¸öÊôÐÔºÍÒ»¸ö·½·¨£¬ÕâЩÊôÐԺͷ½·¨Ä£ÄâÁËÖÀÉ«×ӵĹý³Ì¡£ÆäÖÐMaxpointÊôÐÔ±íʾɫ×ÓµÄÃæÊý£¬¼ÓÈëProperty LetÓï¾ä½«Ê¹¿Í»§ÄÜÐÞ¸ÄÉ«×ÓµÄÃæÊý£»ResultÊôÐÔ±íʾ×îºóÖÀ³öÉ«×ӵĵãÊý£»Throw·½·¨´ú±íÖÀÉ«×ӵ͝×÷£»Private Sub Class_InitializeÓï¾ä½«É«×ÓµÄÃæÊýȱʡµÄÉèÖÃΪ6Ãæ¡£
¡¡¡¡´ÓÎļþ²Ëµ¥ÖУ¬Ñ¡ÔñÉú³ÉMYDLL.DLL²¢½«Ëü±£´æµ½Êʵ±µÄµØ·½¡£ÖÁ´Ë£¬ÎÒÃǾʹ´½¨ÁËÒ»¸ö×Ô¼ºµÄDLLÎļþ¡£
¡¡¡¡µÚ¶þ²½Òª×öµÄ¾ÍÊÇÒªÔÚASPÎļþÖÐÒýÓÃÀàclsDice¡£
¡¡¡¡ASP(»î¶¯·þÎñÆ÷Ò³ÃæActive Server Pages)µÄËùÓдúÂë¶¼ÊÇÔÚ·þÎñÆ÷ÉÏÔËÐеģ¬¿Í»§Ö»Äܲ鿴ÒÔHTMLÐÎʽ´«»ØµÄ½á¹û¡£ËüʹÓá°<%¡±ºÍ¡°%>¡±±ê¼ÇÀ´±êʶ½Å±¾´úÂ룬²¢²»´«»Ø¿Í»§¶Ë£¬ÔÚ´úÂëÍⲿ£¬Ê¹Ó**TML±ê¼ÇÀ´±êʶÄÚÈÝ¡£ÔÚÏÂÃæDice.aspµÄ´úÂëÖÐʹÓÃÁËCreateObjectº¯Êý´´½¨ÁËÒ»¸öclsDice¶ÔÏóʵÀý£¬¸Ã¶ÔÏóÀ´×ÔÓÚÉÏÃæ´´½¨µÄActiveX.DLL--MYDLL.DLLÎļþ£¬ÏÂÃæµÄÀý×ÓʹÓÃÁËVBScript½Å±¾ÓïÑÔ¡£
<!--METADATA TYPE="typelib" FILE="Path/mydll.dll" --> '×°ÔØ METADATA ±êÇ©ÖÐÖ¸¶¨µÄÀàÐͿ⡣ PathÊÇmydll.dllÔÚ»úÆ÷ÉÏ´æ·ÅµÄ·¾¶ <html> <head><title>ÔÚASPÎļþʹÓÃDLL</title></head> <body> <% On Error Resume Next ¡®µ±³ÌÐò³öÏÖÒâÍâ´íÎóʱÄܼÌÐøÖ´ÐÐ
If Request.Form("T1")="" then Session("point") = 6 Else Session("point")=Request.Form("T1") End If 'ÓÃSession("point")À´´æ·ÅÉ«×ÓµÄÃæÊý
Set dice1=Server.Createobject("MyDLL.clsDice") 'ʹÓÃsetÓï¾ä´´½¨dice1¶ÔÏ󣬯äÖÐMyDLLÊÇÉÏÃæ´´½¨dllÎļþʱµÄ¹¤³ÌÃû³Æ£¨×¢Ò⣺²»ÊÇÎļþµÄÃû³Æ£©£¬clsDiceΪÀàÄ£¿éµÄÃû³Æ¡£ÖÁ´ËÎÒÃǾͿÉÒÔÓÃMaxpoint,ResultºÍThrowÊôÐÔ£¨·½·¨£©À´¶Ôdice1¶ÔÏó½øÐвÙ×÷¡£
If Request.ServerVariables("Request_Method")="POST" then dice1.Maxpoint = Session("point") ¡®É趨ɫ×ÓµÄÃæÊý dice1.Throw ¡¯ÖÀÉ«×Ó %> <form method="POST" action="dice.asp"> <p>µ±É«×ÓµÄÃæÊýΪ<input type="text" name="T1" size="5" value=<% = session("point") %>>ʱ</p> <p><input type="submit" value="ÖÀÉ«×Ó" name="B1"></p> </form> <p>½á¹ûΪ£º<% = dice1.Result %>µã </p> ¡®·µ»Ø½á¹û <% Else dice1.Maxpoint = Session("point") %> <form method="POST" action="dice.asp"> <p>µ±É«×ÓµÄÃæÊýΪ<input type="text" name="T1" size="5" value=<% = session("point") %>>ʱ</p> <p><input type="submit" value="ÖÀÉ«×Ó" name="B1"></p> </form> <% End If %> </body> ¡¡¡¡ÔÚä¯ÀÀÆ÷ÖÐä¯ÀÀhttp://localhoat/dice.asp£¬½á¹ûÈ總ͼ¡£×¢Ò⣺ֻÓÐÔÚWINDOWS NT+IIS3.0ÒÔÉÏ»òWINDOWS9X+PWBµÄ»·¾³Ï²ÅÄÜÕýÈ·ä¯ÀÀ¡£ ¡¡¡¡ ¡¡¡¡ÒÔÉÏ´úÂëÔÚWINDOWS NT4.0+SP3+IIS4.0+IE5.0+VB5.0ÉϱàÒëÔËÐÐͨ¹ý£¬µ«»¹Óв»ÉÙµÄȱÏÝ£¬µ«Îҵı¾ÒâÊÇÏò´ó¼Ò½éÉÜÈçºÎÔÚASPÖе÷ÓÃDLL£¬ËùÒÔÎÒûÓÐÈ¥ÍêÉÆËü¡£Èç¹ûÄÄλ¸ßÊÖÓиüºÃµÄ·½·¨»òÕß²»Í¬µÄ¼û½â£¬ÇëǧÍòmailÎÒ£¬ÎÒµÄÐÅÏ䣺[email protected]

|
|
Ïà¹ØÎÄÕ£ºÏà¹ØÈí¼þ£º |
|