- ADO如何提供异动功能？（BIG5）
- 在ASP应用中验证用户身份(1)
- ASP3.0中的流控制能力(3)
- Asp文件操作函数集
- ASP环境下邮件列表功能的实现 （四）（推荐）
- 加快DHTML的一组技巧
- 改进性能和样式的 25+ ASP 技巧(4)
- 用ASP发送邮件
- bbs的数据结构和存储过程（三）
- 关于页面缓存清除的方法小结
- ASP字符串加密函数EncryptText()
- 存储过程使用大全
- ASP讲座之三：Application对象与Session对象
- 表单递交合法性检测-Email
- Asp的安全管理（7）
- 避免表单的重复提交又一方法（js）
- 利用ASP.NET来访问Excel文档
- Access数据库操作中出现的怪现象
- 如何在不支持数据库的asp主页上运用ado
- 正则表达式简介（12）
- StripNonNumeric函数源程序
- 软件开发性能优化系列
- 在ADO使用SELECT语法六
- 使用索引服务器 - 增加属性
- 如何取得所有的Session变量
- 用ASP实现汉字转拼音的功能
- ASP向NT域中加一个用户
- 在PPC上实现编译ASP
- 如何用SAFileUp上传文件？
- ASP提速技巧五则
在线用表单建立文件夹
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
HTML格式的Form表单文件FOLDER.htm的内容:
<form name="form1" method="post" action="folder-action.asp">
Create a folder
<input type="text" name="name">
<input type="submit" name="Submit" value="Submit">
</form>
ASP文件FOLDER-ACTION.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
%> Folder created successfully! Called
<%=MyFolder%>
<%Else%%>
There has been an error.
<%End If
%>
也可以下载zip文件,在http://designbliss.com.au/asp/download.asp?file=folder.zip
<form name="form1" method="post" action="folder-action.asp">
Create a folder
<input type="text" name="name">
<input type="submit" name="Submit" value="Submit">
</form>
ASP文件FOLDER-ACTION.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
%> Folder created successfully! Called
<%=MyFolder%>
<%Else%%>
There has been an error.
<%End If
%>
也可以下载zip文件,在http://designbliss.com.au/asp/download.asp?file=folder.zip
- 上一篇文章： 把IP表存入SQL里的程序
- 下一篇文章： 有关站内模糊查询的源程序!