asp Êý×é²åÈëÔªËØµÄËÙ¶ÈÎÊÌâ
ÔÚµÚ5¸öλÖòåÈëÔªËØ´úÂëÈçÏ£º
Dim arr(), num
...
num = UBound(arr)
ReDim Preserve arr(num + 1)
For i = num + 1 To 5 + 1 Step -1
arr(i) = arr(i - 1)
Next
arr(5) = "new value"
Óë
Function ArrayCopy(src, srcpos, dest, destpos, clength)
Do While clength > 0
dest(destpos + (clength - 1)) = src(srcpos + (clength - 1))
clength = clength - 1
Loop
End Function
Dim arr(10), b
...
num = UBound(arr)
b = Array(num + 1)
Call ArrayCopy(a, 0, b, 0, 4)
Call ArrayCopy(a, 5, b, 6, 6)
b(5) = "new value"
arr = b
ÄÄÒ»¸öЧÂʱȽϸßÄØ£¿£¿£¿
Dim arr(), num
...
num = UBound(arr)
ReDim Preserve arr(num + 1)
For i = num + 1 To 5 + 1 Step -1
arr(i) = arr(i - 1)
Next
arr(5) = "new value"
Õâ¸ö¸ß°É
µÚÒ»¸ö¡£
Ïà¹ØÎÊ´ð£º
ÎÒÏëÓÃaspд¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»
ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......