www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_copyfolder.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></p>里边 response.Write "<onevent type='onenterforward'>"&chr(13) response.Write " <refresh>"&chr(13) response.Write " <setvar name='SourceFolder' value=''/>"&chr(13) response.Write " <setvar name='PurposeFolder' value=''/>"&chr(13) response.Write " </refresh>"&chr(13) response.Write "</onevent>"&chr(13) '清除输入框记录,不能放在<p></p>里边 %> <p> <!--#include file="wap_top.asp"--> <!--#include file="wap_top_end.asp"--> </p> <p> <% SourceFolder=trim(request("SourceFolder")) if SourceFolder="" then SourceFolder="ceshi/后加:来源文件夹名" end if '去掉最后的/ if right(SourceFolder,1)="/" then SourceFolder=left(SourceFolder,len(SourceFolder)-1) end if PurposeFolder=trim(request("PurposeFolder")) if PurposeFolder="" then PurposeFolder="ceshi/" end if '去掉最后的/ if right(PurposeFolder,1)="/" then PurposeFolder=left(PurposeFolder,len(PurposeFolder)-1) end if SourceLocation=InStrRev(SourceFolder,"/") PurposeBehind=Mid(SourceFolder,SourceLocation+1,len(SourceFolder)-SourceLocation) PurposeFolder=PurposeFolder&"/"&PurposeBehind response.Write "【复制文件夹】<br/>"&chr(13) response.Write "[来源文件夹的相对路径]<input type='text' name='SourceFolder' title='来源文件夹的相对路径' value='"&SourceFolder&"' emptyok='false'/>*必填<br/>"&chr(13) response.Write "[目的文件夹的相对路径]<input type='text' name='PurposeFolder' title='目的文件夹的相对路径' value='"&PurposeFolder&"' emptyok='false'/>*必填<br/>"&chr(13) response.Write "若不想直接输入目的相对路径,请输入目的相对路径的相关根目录<input name='purposepath' value='../' title='相关根目录'/><anchor>点此分级选择<go href='wap_copyfolderpurposepath.asp?SourceFolder="&SourceFolder&"&purposepath=$(purposepath)'></go></anchor>,目的相对路径会自动输入,最后回到本页再操作。<br/>" response.Write "<anchor>确认复制GO<go href='wap_copyfolderpost.asp' method='post'>"&chr(13) response.Write "<postfield name='SourceFolder' value='$(SourceFolder)'/>"&chr(13) response.Write "<postfield name='PurposeFolder' value='$(PurposeFolder)'/></go></anchor><br/>"&chr(13) response.Write "注意:请预先浏览一下,确保目的文件夹的相对路径没有需要的同名文件夹,此操作会覆盖同名文件夹的。<br/>"&chr(13) %> </p> <p> <!--#include file="wap_footer_head.asp"--> <!--#include file="wap_footer.asp"--> </p> </card> </wml>