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×îÖ÷ÒªµÄÔÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" Ö÷Ŀ¼
aa=Request.Servervariables("url") 'ÐéÄâĿ¼
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.h ......
aspÖеÄrs.openÓÚconn.executeµÄÇø±ð
rs.open sql,conn£ºÈç¹ûsqlÊÇdelete,update,insertÔò»á·µ»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯£¬ÔÚʹÓùý³ÌÖв»ÒªÀ´¸örs.closeÔÚÎļþ×îºóÔÙдrs.close
Öмä¿ÉÒÔÀ´¶à¸ö¼Ç¼¼¯rs1.open sql1,conn£¬×îºóÒ»¿é¹Ø±Õ¼Ç¼¼¯:rs.close rs1.close
con ......