ASP

±¾ÀàÔĶÁTOP10

¡¤asp³£ÓÃÊý¾Ý¿âÁ¬½Ó·½·¨ºÍ¼¼ÇÉ
¡¤ÎÞ×é¼þÉú³ÉBMPÑéÖ¤Âë
¡¤Ò»Ð©³£Óõĸ¨Öú´úÂë (ÍøÂçÊÕ²Ø)
¡¤JavaScriptʵÏÖµÄÊý¾Ý±í¸ñ£º¶³½áÁС¢µ÷ÕûÁпíºÍ¿Í»§¶ËÅÅÐò
¡¤VisualStudio.NET_2003¼°Æä MSDN ÏÂÔØµØÖ·
¡¤ASPÄ£ÄâMVCģʽ±à³Ì
¡¤Í¼Æ¬ÒÔ¶þ½øÖÆÁ÷Êä³öµ½ÍøÒ³
¡¤MD5¼ÓÃÜËã·¨ ASP°æ
¡¤ASP.NET±à³ÌÖеÄÊ®´ó¼¼ÇÉ
¡¤¸Ä½ø ASP µÄ×Ö·û´®´¦ÀíÐÔÄÜ

¡ú ·ÖÀർº½
VCÓïÑÔDelphi
VBÓïÑÔASP
PerlJava
ScriptÊý¾Ý¿â
ÆäËûÓïÑÔÓÎÏ·¿ª·¢
Îļþ¸ñÊ½ÍøÕ¾ÖÆ×÷
Èí¼þ¹¤³Ì.NET¿ª·¢
ÔÚ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] 



Ïà¹ØÎÄÕ£º

Ïà¹ØÈí¼þ£º