ASPÖÐByValÓëByRefµÄÇø±ð
·Ï»°²»¶à˵£¬Ìù´úÂ룺
ÏÈÀ´¿´¿´ByVal´«Öµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º"&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("ÔÚsub¹ý³ÌÍâÊä³öÖµ£º"&arr(0)&","&arr(1)&","&arr(2))
%>
ÏÂÃæÊÇÊä³ö½á¹û£º
ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º9,8,7ÔÚsub¹ý³ÌÍâÊä³öÖµ£º0,1,2
ÔÙÀ´¿´¿´ByRef´«Öµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByRef a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º"&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("ÔÚsub¹ý³ÌÍâÊä³öÖµ£º"&arr(0)&","&arr(1)&","&arr(2))
%>
ÏÂÃæÊÇÊä³ö½á¹û£º
ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º9,8,7ÔÚsub¹ý³ÌÍâÊä³öÖµ£º9,8,7
ÏÂÃæÎÒÃÇÀ´¿´¿´aspĬÈÏÊÇÒÔʲô·½Ê½´«ÖµµÄ
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByRef a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º"&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("ÔÚsub¹ý³ÌÍâÊä³öÖµ£º"&arr(0)&","&arr(1)&","&arr(2))
%>
Êä³ö½á¹û£º
ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º9,8,7ÔÚsub¹ý³ÌÍâÊä³öÖµ£º9,8,7
Õâ˵Ã÷ÔÚvbscriptÖÐĬÈϵĴ«Öµ·½Ê½ÊÇByRef
Ïà¹ØÎĵµ£º
¿ª·¢»·¾³:VS2008
WEB·þÎñÆ÷:IIS7.0
ΪºÎÔÚµ÷ÊÔʱ,¿ÉÕý³£ÏÔʾ±¨±íÄÚÈÝ,¿ÉÉú³Éºó,ÔËÐÐʱ,Ö»ÏÔʾ±¨±í¿ò¼Ü,²¢²»ÄÜÕý³£ÏÔʾ±¨±íÄÚÈÝ.
ÎÒ°Ñä¯ÀÀÆ÷ËùÓÐÏÞÖÆÑ¡ÏȡÏûÁË,»¹ÊÇÒ»ÑùµÄÎÊÌâ,²»ÖªÎªºÎ.ÕýÔÚѰÕÒ´ð°¸................... ......
×î½ü¹À¼ÆºÜ¶àÈ˶¼Åöµ½ºÍÎÒͬÑùµÄÎÊÌ⣬¾ÍÊÇÒòΪɨ»Æ¼°±¸°¸¹ÜÀí·Ç³£ÑÏ£¬Ò»¸öû±¸°¸Ö±½Ó¹Ø·þÎñÆ÷£¬Ò»¸ö»ÆÕ¾Ö±½Ó·â»ú·¿¡£ÏÖÔÚÍøÕ¾ËùÓÐÓòÃû±ØÐèͨ¹ý±¸°¸£¬ÒÔǰ»¹Ëɵ㡣µ«ÎÒÃÇ·þÎñÆ÷100¶à¸ö£¬×ܲ»ÄÜÒ»¸öÒ»¸ö¼ì²é°É£¬ÉÏÍøËÑÁËÏ£¬Óиö³ÌÐòÉÔºÏÊÊ£¬µ«µ¼³öµÄÊÇÍøÕ¾ÓòÃûÕ¾µãÃû£¬ÎÒÐÞ¸ÄΪµ¼³öÓòÃûÁÐ±í£¬Í¬Ê±½â¾öÁ˵¼³öÒ»¸öÕ¾µã°ó¶¨¶à¸ ......
¡¡ASPÁ¬½ÓÊý¾Ý¿âµÄ11ÖÖ·½·¨——±¾ÎÄ×ܽáÁËʹÓÃASPÁ´½Ó¸÷ÖÖÊý¾Ý¿âµÄ·½·¨£º
¡¡¡¡1.AccessÊý¾Ý¿âµÄDSN-lessÁ¬½Ó·½·¨:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡2.Access OLE DBÁ¬½Ó·½·¨£ ......