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

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д¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......

ASP FCKÔÚÏ߱༭Æ÷

ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏ߱༭Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏ߱༭Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......

asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£

IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)

'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......

¹ØÓÚASPµÄReplaceº¯Êý

Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»

ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ