www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_newfolderpost.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 NewFolder
NewFolder=trim(request("NewFolder"))

set fso=Server.CreateObject("Scripting.FileSystemObject")

if fso.FolderExists(Server.MapPath(NewFolder))=true then
response.Write "操作过程中发生错误。可能同名文件夹已经存在或相对路径不存在,请仔细核对一下,再重新操作!"&chr(13)
else
fso.CreateFolder Server.MapPath(NewFolder)
    if err.number<>0 then
    response.Write "操作过程中发生错误。可能同名文件夹已经存在或相对路径不存在,请仔细核对一下,再重新操作!"&chr(13)
    else
    response.Write "恭喜您!您已经成功操作!"&chr(13)
    end if
end if
%>

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