asp replaceº¯ÊýµÄʹÓÃ
Èçid="a/b/c/asdf.html" ²ÎÊýΪ¶¯Ì¬
Ôõô°ÑºóÃæµÄasdf.html¹ýÂË?ʹid="a/b/c/"?
Èç¹ûidµÄ¸ñʽһ¶¨Îª "????/????/??????/xxxx.xxx"
¼´×îºóËùÒª¹ýÂ˵ôµÄÒ»¶¨ÊÇ×îºóÒ»¸ö"/"Ö®ºóµÄÄÚÈÝ
¿ÉÒÔÓÃÈçÏ·½·¨:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/") '½«×Ö·û´®ÒÔ"/"·Ö¸î
UnNeed=split(URL,"/")(ubound(PartOfURL)) 'È¡³ö·Ö¸îµÄ×îºóÒ»²¿·Ö
URL=replace(URL,UnNeed,"") 'Óà ¿Õ Ìæ»» URLÖеIJ»ÐèÒªµÄ×îºóÒ»²¿·Ö
response.write URL 'ÊäÈë¹ýÂ˺óµÄ×Ö·û´®
%>
Ïà¹ØÎĵµ£º
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/826.html
ASP ¶¨Òå³£Á¿µÄ·½·¨
³£Á¿£ºÓÃÒ»ÖÖÃû³Æ´úÌæÊý×ÖºÍ×Ö·û´®£¬ÇÒÆäÖµ±£³ÖÒ»Ö±²»±ä¡£
ÔÚ VBscript ÖУ¬¿ÉÒÔÓà const Óï¾äÀ´¶¨Òå³£Á¿¡£
³£Á¿·ÖÊý×ÖÐͺÍ×Ö·û´®ÐÍ¡£
±íʾÈÕÆÚµÄ³£Á¿Ð´ÔÚÁ½¸ö # Ö®¼ä¡£
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAG ......
ÏàÐÅÎÒµÄ,Ö»ÓÐÎÒ²ÅÕæÕýµØÕÒ¹ý´ð°¸,ÆäËü¶¼ÊÇÂÒ³µÄ,ʵÄܽâ¾öµ½ÄãµÄÎÊÌâ,ǰ¸öÔÂÎÒ»¹ÔÚ¿àÕÒ´ð°¸,Ò²ÒÑÊÔÑé¹ýN´Î,×îºó³É¹¦ÁË,ÍøÉÏÒ²ÓиÄÄǸöʲôÕÊ»§µÄ,ÄǸöʵÔÚÌ«ÄÑÁË.
°´Îҵķ½·¨,ǰÌáÊÇÒ»,ϵͳÊÇXP,ÆäËüϵͳ²»¸Ò°ü.¶þ,ÄãûÓÐ×ö¹ýÆäËüÉèÖÃ.
Ö÷ÒªÊÇÕÊ»§È¨ÏÞÎÊÌâ.
´ò¿ª“¹ÜÀí¹¤¾ß”->“×é¼þ·þÎñ”- ......
ASP²É¼¯-ASP²É¼¯³ÌÐòÔÀí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)
&n ......
<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......
Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......