切克闹21628686
creatfolder.htm
' 表单文件.
folder.asp
<%@ language = "vbscript" %>
<% dim name
name = request("name")
set fs=createobject("scripting.filesystemobject")
myfolder=server.mappath(""&name&"")
if not fs.folderexists(myfolder) then
fs.createfolder(myfolder)
end if
if fs.folderexists(myfolder) then
%>
恭喜,文件夹:<%=myfolder%>创建成功!
<%else%%>
噢,出错啦!
<%end if
%>
