www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_renamefile.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='SourceFile' value=''/>"&chr(13) response.Write " <setvar name='PurposeName' 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> <% SourceFile=trim(request("SourceFile")) if SourceFile="" then SourceFile="ceshi/123.htm" end if PurposeName=trim(request("PurposeName")) if PurposeName="" then PurposeName="123.txt" end if response.Write "【重命名文件】<br/>"&chr(13) response.Write "[原相对路径及文件名称.后缀名]<input type='text' name='SourceFile' title='原相对路径及文件名称.后缀名' value='"&SourceFile&"' emptyok='false'/>*必填<br/>"&chr(13) response.Write "[仅写新文件名称.后缀名]<input type='text' name='PurposeName' title='仅写新文件名称.后缀名,不写相对路径' value='"&PurposeName&"' emptyok='false'/>*必填<br/>"&chr(13) response.Write "<anchor>确认GO<go href='wap_renamefilepost.asp' method='post'>"&chr(13) response.Write "<postfield name='SourceFile' value='$(SourceFile)'/>"&chr(13) response.Write "<postfield name='PurposeName' value='$(PurposeName)'/></go></anchor>"&chr(13) %> </p> <p> <!--#include file="wap_footer_head.asp"--> <!--#include file="wap_footer.asp"--> </p> </card> </wml>