Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÖÐDictionary¶ÔÏóµÄÒ»¸öÆæ¹ÖÎÊÌâ

Ê×ÏÈÌù´úÂ룺
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
objDic.Item("key")(1) = objDic.Item("key")(1) + 4
Response.Write("ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º" & objDic.Item("key")(1))
%> 
ÏÂÃæÊÇÔËÐнá¹û£º
ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º0ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º0 
¿ÉÒÔ¿´µ½objDic.Item("key")(0)µÄÖµ¸ù±¾Ã»ÓÐÈκα仯£¬ÕâÊÇΪʲô£¿
ÏÂÃæÎÒÃǽ«´úÂëÐÞ¸Äһϣº
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
arr(0) = arr(0) + 4
objDic.Item("key") = arr
Response.Write("ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º" & objDic.Item("key")(0))
%> 
ÔÙÀ´¿´¿´ÔËÐнá¹û£º
ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º0ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º4 
ÕâϽá¹ûÕýÈ·ÁË¡£
ÏÖÔÚÎÒÃ÷°×ÁË£¬ÔÚASPÖиøÒ»¸ökey¸³ÖµÖ»ÄÜͨ¹ýobjDic.Item(key) = valueµÄ·½Ê½½øÐУ¬¶øÇÒ²»ÄÜÓÐÈκεÄÔËËã·û¡£


Ïà¹ØÎĵµ£º

aspÎÞ·¨Õý³£ÏÔʾ±¨±íÄÚÈÝÎÊÌâ½â¾ö

¿ª·¢»·¾³:VS2008
WEB·þÎñÆ÷:IIS7.0
ΪºÎÔÚµ÷ÊÔʱ,¿ÉÕý³£ÏÔʾ±¨±íÄÚÈÝ,¿ÉÉú³Éºó,ÔËÐÐʱ,Ö»ÏÔʾ±¨±í¿ò¼Ü,²¢²»ÄÜÕý³£ÏÔʾ±¨±íÄÚÈÝ.
ÎÒ°Ñä¯ÀÀÆ÷ËùÓÐÏÞÖÆÑ¡ÏȡÏûÁË,»¹ÊÇÒ»ÑùµÄÎÊÌâ,²»ÖªÎªºÎ.ÕýÔÚѰÕÒ´ð°¸................... ......

aspÐÔÄܲâÊÔ±¨¸æ

ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔ­ÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......

ASP¡£NETÒ³Ãæ´«ÖµÖеÄÂÒÂëÎÊÌâ

ÔÚ±à³Ì¹ý³ÌÖУ¬¾­³£ÐèÒªÒ³ÃæÖ®¼äµÄ´«Öµ£»ÌرðÊÇÖÐÎÄ´«µÝµÄʱºò£¬¾­³£³öÏÖÂÒÂëÏÖÏ󣬺ÜÊÇÓôÃÆ¡£ÏÂÃæÊÇÎÒÔÚÍøÉÏÕÒµ½µÄһЩ·½·¨£¬¹©´ó¼Ò²Î¿¼¡£
1.ÉèÖÃweb.configÎļþ¡££¨Ã»ÓÐÓùý£©
<system.web>
......
<globalization requestEncoding="gb2312" responseEncoding="gb2312" culture="zh-CN" fileEncoding="gb2 ......

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))
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ