www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_newfile.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='NewFile' value=''/>"&chr(13)
response.Write "     <setvar name='CodeFile' 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>

<%
NewFile=trim(request("NewFile"))
if NewFile="" then NewFile="ceshi" end if

if right(NewFile,1)="/" then
NewFile=NewFile
else
NewFile=NewFile&"/"
end if

response.Write "【新建文件】<br/>"&chr(13)
response.Write "[相对路径及文件名称.后缀名]<input type='text' name='NewFile' title='相对路径及文件名称.后缀名' value='"&NewFile&"新建文件名称.后缀名' emptyok='false'/>*必填<br/>"&chr(13)
response.Write "[编码]<select name='CodeFile' title='编码'><option value='GB2312'>GB2312</option><option value='UTF-8'>UTF-8</option><option value='Unicode'>Unicode</option></select>*必选<br/>"&chr(13)
response.Write "<anchor>确认GO<go href='wap_newfilepost.asp' method='post'>"&chr(13)
response.Write "<postfield name='NewFile' value='$(NewFile)'/>"&chr(13)
response.Write "<postfield name='CodeFile' value='$(CodeFile)'/></go></anchor>"&chr(13)
%>

</p>
<p>
<!--#include file="wap_footer_head.asp"-->
<!--#include file="wap_footer.asp"-->
</p>
</card>
</wml>