可以在线创建文件夹吗？_编程10000问

folder.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

<html>

<head>

<title>闪亮日子之在线创建文件夹</title>

</head>

<body>

春风精彩<br>

在线创建文件夹</td>

<tr>

<div align="center"><center><p>新建文件夹:

</center></div>

</form>

</td>

</tr>

</center></div>

</body></html>

creatfolder.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

时间： 2024-09-19 09:26:31

可以在线创建文件夹吗？_编程10000问的相关文章

如何通过表单创建一个Word？_编程10000问

docform.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <form action="doccreate.asp">姓名: <input type="text" name="Name" size="50" maxlength="100">

如何创建Word文件？_编程10000问

creatdoc.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Re

如何用表单在线建立目录？_编程10000问

creatfolder.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 表单文件. <form name="form1" method="post" action="folder.asp">创建一个文件夹: <input type="text" name=&quo

如何对文件进行操作？_编程10000问

<%@ LANGUAGE="VBScript" %> <% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename<

<%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" ' 连接NUL. Set oConn = CreateObject("ADODB.Connec

如何用ASP输出HTML文件？_编程10000问

<%u_title=request.form("u_title")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 检查标题是否被输入.if u_title = "" then%><form method="P

如何最准确地统计在线用户数？_编程10000问

' 设置好global.asa 文件,如下:<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart Application("ActiveUsers") = 0 ' 设置计数初始值,可以根据自己的需要哦.End Sub Sub Session_OnStart Session.Timeout = 20<?xml:names

如何一行行地读取文件？_编程10000问

dim input(30) <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 定义一个数组,大小可随时更改.这里为了显示方便. file_path=Server.Mappath("index.html") Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f

如何实时获知多少人在线？_编程10000问

global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法. Session.Timeout = 3 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office: