www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_renamefolderpost.asp
<!--#include file="wap_common.asp"--> <!--#include file="wap_check.asp"--> <!--#include file="wap_verify.asp"--> <%Response.ContentType="text/vnd.wap.wml; charset=utf-8"%> <?xml version="1.0" encoding="utf-8"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <wml> <head><meta http-equiv='Cache-Control' content='no-cache'/> </head> <card id='wuyumin' title='重命名文件夹结果'> <p> <!--#include file="wap_top.asp"--> <!--#include file="wap_top_end.asp"--> </p> <p> <% on error resume next dim SourceFolder,PurposeName,PurposeFolder SourceFolder=trim(request("SourceFolder")) '相对路径后面去/ if right(SourceFolder,1)="/" then SourceFolder=left(SourceFolder,len(SourceFolder)-1) else SourceFolder=SourceFolder end if PurposeName=trim(request("PurposeName")) '新文件夹名前、后去/ if left(PurposeName,1)="/" then PurposeName=right(PurposeName,len(PurposeName)-1) else PurposeName=PurposeName end if if right(PurposeName,1)="/" then PurposeName=left(PurposeName,len(PurposeName)-1) else PurposeName=PurposeName end if PurposeFolder=left(SourceFolder,instrrev(SourceFolder,"/"))&PurposeName set fso=Server.CreateObject("Scripting.FileSystemObject") '重命名文件夹 fso.MoveFolder Server.MapPath(SourceFolder),Server.MapPath(PurposeFolder) if err.number<>0 then response.Write "操作过程中发生错误。可能相对路径或文件夹不存在,请仔细核对一下,再重新操作!"&chr(13) else response.Write "恭喜您!您已经成功操作!"&chr(13) end if %> </p> <p> <!--#include file="wap_footer_head.asp"--> <!--#include file="wap_footer.asp"--> </p> </card> </wml>