·¢ÐÅÈË: nightcat (ҹè×Ó), ÐÅÇø: ASP
±ê Ìâ: ASP ÖÐ ÎÄ ¼ò Ã÷ ½Ì ³Ì(5)
·¢ÐÅÕ¾: ÍøÒ×ÐéÄâÉçÇø (Thu Feb 4 19:43:04 1999), Õ¾ÄÚÐżþ
ʹÓñäÁ¿ºÍ³£Á¿
±äÁ¿ÊǼÆËã»úÄÚ´æÖÐÒÑÃüÃûµÄ´æ´¢Î»Öã¬ÆäÖаüº¬ÁËÊý×Ö»ò×Ö·û´®µÈÊý¾Ý¡£±äÁ¿
°üº¬µÄÐÅÏ¢±»³ÆÎª±äÁ¿µÄÖµ¡£±äÁ¿Ê¹ÓÃÓû§±ãÓÚÀí½â½Å±¾²Ù×÷µÄÃû³ÆÎªÓû§Ìṩ
ÁËÒ»ÖÖ´æ´¢¡¢¼ìË÷ºÍ²Ù×÷Êý¾ÝµÄ;¾¶¡£
ÉùÃ÷ºÍÃüÃû±äÁ¿
ÃüÃûºÍÉùÃ÷±äÁ¿Ó¦×ñѽű¾ÓïÑԵĹæÔò¼°Ö¸µ¼¡£¼´Ê¹ÔÚʹÓñäÁ¿Ç°²»ÐèҪȥÉùÃ÷
±äÁ¿£¬Ò²Ó¦Ñø³ÉÔÚ±à³ÌʱÉùÃ÷±äÁ¿µÄÁ¼ºÃϰ¹ß£¬ÒòΪÕâÑùÓÐÖúÓÚ·ÀÖ¹´íÎó·¢Éú¡£
ÉùÃ÷Ò»¸ö±äÁ¿ÒâζןæË߽ű¾ÒýÇæ£¬ÓÐÒ»¸öÌØ¶¨Ãû³ÆµÄ±äÁ¿£¬ÕâÑù¾Í¿ÉÒÔÔڽű¾
ÖÐÒýÓøñäÁ¿¡£
VBScript
VBScript ²¢²»ÐèÒªÉùÃ÷±äÁ¿£¬µ«ÔÚʹÓÃËùÓбäÁ¿Ç°ÉùÃ÷ËüÃÇÊÇÒ»ÖֺõĽű¾Êéд
ϰ¹ß¡£ÒªÔÚ VBScript ÖÐÉùÃ÷±äÁ¿£¬ÇëÓà Dim¡¢ Public »ò Private Óï¾ä¡£ÀýÈç
£º
<% Dim UserName %>
¿ÉÒÔÔÚÐèÒªÏÔʽÉùÃ÷±äÁ¿µÄ .asp ÎļþÖÐÓà VBScript Option Explicit Óï¾ä¡£
Option Explicit ±ØÐëÔÚÈκÎÒ»¸ö ASP Ö¸ÁîÖ®ºó¼°ÈκÎÒ»¸ö HTML Îı¾»ò½Å±¾Ãü
Áî֮ǰ³öÏÖ¡£¸ÃÓï¾ä½öÓ°ÏìÓà VBScript ÊéдµÄ ASP ÃüÁ¶ø²»»áÓ°Ïì JScrip
t ÃüÁî¡£
¹ØÓÚÕâЩÃüÁîµÄÏêϸÐÅÏ¢£¬Çë²ÎÔÄ VBScript ÓïÑԲο¼¡£
JScript
Microsoft JScript ½öµ±±äÁ¿Îª±¾µØ¹ý³Ì±äÁ¿Ê±²ÅÐèÉùÃ÷£¬µ«ÔÚʹÓÃËùÓбäÁ¿Ç°
ÉùÃ÷ËüÃÇÊÇÒ»ÖֺõĽű¾Êéдϰ¹ß¡£ÒªÉùÃ÷Ò»¸ö±äÁ¿£¬ÇëʹÓà var Óï¾ä¡£ÀýÈ磺
<% var UserName; %>
ÓÐ¹Ø var Óï¾äµÄÏêϸÐÅÏ¢£¬Çë²ÎÔÄ JScript ÓïÑԲο¼¡£
±äÁ¿×÷ÓÃÓò
±äÁ¿µÄ×÷ÓÃÓò¼´ÉúÃüÆÚ£¬¾ö¶¨ÄÄЩ½Å±¾ÃüÁî¿É·ÃÎʱäÁ¿¡£ÔÚ¹ý³ÌÄÚ²¿ÉùÃ÷µÄ±äÁ¿
¾ßÓоֲ¿×÷ÓÃÓò¡£Ã¿Ö´ÐÐÒ»´Î¹ý³Ì£¬±äÁ¿¾Í±»´´½¨È»ºóÏûÍö¡£¶ø¹ý³ÌÍⲿµÄÈκÎ
ÃüÁî¶¼²»ÄÜ·ÃÎÊËü¡£ÔÚ¹ý³ÌÍⲿÉùÃ÷µÄ±äÁ¿¾ßÓÐÈ«¾Ö×÷ÓÃÓò£¬ÆäÖµÄܱ» ASP Ò³ÉÏ
µÄÈκνű¾ÃüÁî·ÃÎʺÍÐ޸ġ£
ÉùÃ÷±äÁ¿Ê±£¬¾Ö²¿±äÁ¿ºÍÈ«¾Ö±äÁ¿¿ÉÒÔÓÐÏàͬµÄÃû³Æ¡£¶ø¸Ä±äÆäÖÐÒ»¸öµÄÖµ²¢²»
»á¸Ä±äÁíÒ»¸öµÄÖµ¡£Èç¹ûûÓÐÉùÃ÷±äÁ¿£¬Ôò¿ÉÄܲ»Ð¡ÐÄ»á¸Ä±äÒ»¸öÈ«¾Ö±äÁ¿µÄÖµ
¡£ÀýÈ磬ÒÔϽű¾ÃüÁî·µ»ØÖµ 1£¬ËäÈ»ÓÐÁ½¸öÃûΪ Y ±äÁ¿£º
<%
Dim Y
Y = 1
Call SetLocalVariable
Response.Write Y
Sub SetLocalVariable
Dim Y
Y = 2
End Sub
%>
ÓÉÓÚ±äÁ¿Ã»ÓÐÏÔʽÉùÃ÷£¬ÒÔϵĽű¾ÃüÁ·µ»Ø 2¡£µ±¹ý³Ìµ÷Óý« Y ÉèÖÃΪ 2
ʱ£¬½Å±¾ÒýÇæÈÏΪ¸Ã¹ý³ÌÊÇÒªÐÞ¸ÄÈ«¾Ö±äÁ¿£º
<%
Y = 1
Call SetLocalVariable
Response.Write Y
Sub SetLocalVariable
Y = 2
End Sub
%>
Ñø³ÉÏÔʽÉùÃ÷ËùÓбäÁ¿µÄ±à³Ìϰ¹ß¿ÉÒÔ±ÜÃâÐí¶àÎÊÌâ¡£ÓÈÆäÔÚµ±ÄúÓà #include
Óï¾ä½«Îļþ°üº¬½ø ASP Ö÷ҳʱ£¬¾ÍÏԵøüÎªÖØÒª¡£Ò»¸ö¶ÀÁ¢ÎļþÖб»°üº¬µÄ½Å±¾
ÊDZ»µ±×÷Õû¸ö°üº¬ËüµÄÎļþµÄÒ»²¿·ÖÀ´´¦ÀíµÄ¡£Óò»Í¬µÄÃû³ÆÀ´ÃüÃûÖ÷½Å±¾ºÍ±»
°üº¬½Å±¾ÖÐÓõ½µÄ±äÁ¿£¬ÕâÈÝÒ×±»ÒÅÍü£¬³ý·ÇÉùÃ÷±äÁ¿¡£
Ϊ±äÁ¿¸³Óè»á»°»òÓ¦ÓóÌÐò×÷ÓÃÓò
È«¾Ö±äÁ¿½öÔÚµ¥¸ö ASP Ò³ÖпÉÓã¬ÒªÊ¹ËüÔÚµ¥¸ö ASP Ò³Ö®Íâ¿ÉÓ㬾ͱØÐëΪ±ä
Á¿¸³Óè»á»°»òÓ¦ÓóÌÐò×÷ÓÃÓò¡£»á»°×÷ÓÃÓò±äÁ¿¶ÔÒ»¸öÓû§ËùÇëÇóµÄ ASP Ó¦ÓóÌ
ÐòÖеÄËùÓÐÒ³¶¼ÊÇ¿ÉÓõġ£Ó¦ÓóÌÐò×÷ÓÃÓò±äÁ¿Ò²Èç´Ë¡£¶Ôµ¥¸öÓû§À´Ëµ£¬»á»°
±äÁ¿ÊÇ´æ´¢ÐÅÏ¢µÄ×î¼Ñ;¾¶£¬ÀýÈ磬Ê×Ñ¡Ïî¡¢Óû§Ãû»òÓû§±êʶ¡£¶ÔÓÚÒ»¸öÌØÊâ
Ó¦ÓóÌÐòµÄËùÓÐÓû§£¬Ó¦ÓóÌÐò×÷ÓÃÓòÊÇ´æ´¢ÐÅÏ¢µÄ×î¼Ñ;¾¶£¬ÀýÈ磬ӦÓóÌÐò
ÌØ¶¨µÄÎʺòÓï»òÓ¦ÓóÌÐòËùÐèµÄ³õʼֵ¡£
ASP ÌṩÁ½¸öÄÚ½¨¶ÔÏóÀ´ÈÃÄú´æ´¢±äÁ¿£ºSession ¶ÔÏóºÍ Application ¶ÔÏó¡£
ÄúÒ²¿ÉÒÔ´´½¨¾ßÓлỰ»òÓ¦ÓóÌÐò×÷ÓÃÓòµÄ¶ÔÏóʵÀý¡£ÏêϸÐÅÏ¢£¬Çë²ÎÔÄ ÉèÖöÔ
Ïó×÷ÓÃÓò¡£
»á»°×÷ÓÃÓò
ҪΪ±äÁ¿¸³Óè»á»°×÷ÓÃÓò£¬½«¸Ã±äÁ¿´æ´¢µ½ Session ¶ÔÏóÖм´¿É£¬·½·¨ÊÇΪ¸Ã¶Ô
ÏóµÄÒÑÃüÃûÌõĿָÅÉÒ»¸öÖµ¡£ÀýÈ磬ÒÔÏÂÃüÁÁ½¸öеıäÁ¿´æ´¢µ½ Session ¶Ô
ÏóÖС£
<%
Session("FirstName") = "Jeff"
Session("LastName") = "Smith"
%>
Òª Session ¶ÔÏóÖмìË÷ÐÅÏ¢£¬¿ÉÒÔÓÃÊä³öÖ¸Áî (<%=) »ò Response.Write ·ÃÎÊ
ÒÑÃüÃûµÄÌõÄ¿¡£ÒÔÏÂʾÀýÓÃÊä³öÖ¸ÁîÏÔʾ Session("FirstName") µÄµ±Ç°Öµ£º
Welcome <%= Session("FirstName") %>
¿ÉÔÚ Session ¶ÔÏóÖд洢Óû§Ê×Ñ¡ÏȻºó¾Í¿ÉÒÔ·ÃÎÊÕâЩÊ×Ñ¡Ï´Ó¶ø¾ö¶¨½«
ÄÄÒ»Ò³·µ»Ø¸øÓû§¡£ÀýÈ磬Äú¿ÉÒÔÔÊÐíÓû§ÔÚÓ¦ÓóÌÐòµÄµÚÒ»Ò³Ö¸¶¨´¿Îı¾ÄÚÈÝ
£¬È»ºó½«ÕâһѡÔñÓ¦Óõ½Óû§ÔÚ¸ÃÓ¦ÓóÌÐòÖзÃÎʵÄËùÓкóÐøÒ³¡£
<% If Session("ScreenResolution") = "Low" Then %>
This is the text version of the page.
<% Else %>
This is the multimedia version of the page.
<% End If %>
Ó¦ÓóÌÐò×÷ÓÃÓò
ҪΪ±äÁ¿¸³ÓèÓ¦ÓóÌÐò×÷ÓÃÓò£¬½«¸Ã±äÁ¿´æ´¢µ½ Application ¶ÔÏóÖм´¿É£¬·½·¨
ÊÇΪ¸Ã¶ÔÏóµÄÒÑÃüÃûÌõĿָÅÉÒ»¸öÖµ¡£ÀýÈ磬ÒÔÏÂÃüÁһ¸öÓ¦ÓóÌÐòÌØ¶¨µÄÎÊ
ºòÓï´æ´¢µ½Application ¶ÔÏóÖУº
<% Application("Greeting") = "Welcome to Exploration Air" %>
Òª´Ó Application ¶ÔÏóÖмìË÷ÐÅÏ¢£¬¿ÉÒÔʹÓà ASP Êä³öÖ¸Áî (<%=) »ò Respon
se.Write ´Ó¸ÃÓ¦ÓóÌÐòµÄÈÎÒâºóÐøÒ³ÖзÃÎÊÒÑÃüÃûÌõÄ¿¡£ÒÔÏÂʾÀýÓÃÊä³öÖ¸ÁîÏÔ
ʾ Application("Greeting") µÄÖµ£º
<%= Application("Greeting") %>
ʹÓó£Á¿
³£Á¿ÊÇÓÃÀ´´úÌæÒ»¸öÊý»ò×Ö·û´®µÄÃû³Æ¡£Ò»Ð©Ëæ ASP ÌṩµÄ»ù±¾×é¼þ£¬ÀýÈç Ac
tiveX Data Objects (ADO)£¬¶¨ÒåÁËÄúÔڽű¾ÖпÉÒÔʹÓõij£Á¿¡£×é¼þ¿ÉÔÚÒ»¸ö
×é¼þÀàÐÍ¿âÖÐÉùÃ÷³£Á¿£¬×é¼þÀàÐÍ¿âÊÇÒ»¸ö°üº¬ ActiveX ×é¼þËùÖ§³ÖµÄ¶ÔÏóºÍÀà
Ð͵ÄÐÅÏ¢µÄÎļþ¡£Ò»µ©ÔÚ Global.asa ÎļþÖÐÉùÃ÷ÁËÒ»¸öÀàÐͿ⣬Äú¾Í¿ÉÒÔÔÚ¸Ã
Ó¦ÓóÌÐòµÄÈÎÒâÒ³ÖÐʹÓÃÒѶ¨ÒåµÄ³£Á¿¡£
¿ÉÔÚ Global.asa ÖÐÓà <METADATA> ±ê¼ÇΪӦÓóÌÐòÉùÃ÷ÀàÐͿ⡣ÀýÈ磬ҪÉùÃ÷
ADO ÀàÐͿ⣬¿ÉÓÃÒÔÏÂÓï¾ä£º
<!--METADATA TYPE="typelib"
FILE="c:\program files\common files\system\ado\msado15.dll"
-->
ÕâÑù£¬Äú¾Í¿ÉÒÔÔÚÓë Global.asa ÎļþÏàͬµÄÓ¦ÓóÌÐòµÄÖÐʹÓà ADO ³£Á¿¡£ÔÚÏÂ
ÃæµÄʾÀýÖУ¬adOpenKeyset ºÍ adLockOptimistic ÊÇ ADO ³£Á¿£º
'Create and Open Recordset Object
Set RsCustomerList = Server.CreateObject("ADODB.Recordset")
RsCustomerList.ActiveConnection = OBJdbConnection
RsCustomerList.CursorType = adOpenKeyset
RsCustomerList.LockType = adLockOptimistic
ÓÐ¹Ø <METADATA> ±ê¼ÇµÄ²Î¿¼ÐÅÏ¢£¬Çë²ÎÔÄ TypeLibrary ÉùÃ÷¡£
ÔÚÒÔǰ°æ±¾µÄ ASP ÖУ¬Ò»Ð©×é¼þÔÚÎļþÖÐÌṩ³£Á¿¶¨Ò壬ÿ¸öʹÓÃÄÇЩ×é¼þµÄ
ASP Îļþ±ØÐë°üº¬¸ÃÎļþ¡£Óà #include Ö¸ÁîÀ´°üº¬³£Á¿¶¨ÒåµÄÓ÷¨ÈÔ±»Ö§³Ö£¬
µ«Ê¹ÓÃÀàÐÍ¿âͨ³£¸ü·½±ã²¢ÇÒÄÜʹ½Å±¾¸üÒ×ÓÚÉý¼¶¡£ÔÚÒÔºó°æ±¾µÄ ASP ÖУ¬×é¼þ
¿ÉÄܽ«²»ÔÙÌṩ³£Á¿¶¨ÒåÎļþ¡£
Äú¿ÉÒÔ¶¨Òå×Ô¼ºµÄ³£Á¿¡£ÔÚ VBScript ÖУ¬Óà Const Óï¾ä£¬ÔÚ JScript ÖУ¬ÓÃ
var Óï¾ä¡£Èç¹ûÔÚ¶à¸ö ASP Ò³ÖÐʹÓó£Á¿£¬¿ÉÔÚ¶ÀÁ¢µÄÎļþÖзÅÖó£Á¿£¬È»ºó
½«Æä°üº¬½øÃ¿Ò»¸öʹÓøó£Á¿µÄ ASP ÎļþÖÐÈ¥¡£
--
¡ù À´Ô´:£®ÍøÒ×ÐéÄâÉçÇø http://club.netease.com£®[FROM: 202.97.7.19]У¬ÓÃ
m
|