📄 fso.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body><center>
<%
mytype=request("mytype")
filetype=request("filetype")
mydrives=request("mydrives")
myfolder=request("myfolder")
myfile=request("myfile")
filename=request("filename")
filepath=myfolder+"\"+filename
response.Write(filepath&"<br>")
response.Write(mytype&"***"&myfolder&"***"&filetype)
'/////////////////////////////////////////////////////////////////////////////////////////////////
set objFSO=server.CreateObject("scripting.filesystemobject")
if(mytype="app")then
if(filetype="folder")then
if (objFSO.FolderExists(filepath))then
response.Write("<script>alert('文件夹已存在！');</script>")
else
objFSO.createfolder(filepath)
end if
end if
if(filetype="file")then
if (objFSO.FileExists(filepath))then
response.Write("<script>alert('文件已存在！');</script>")
else
set FileTextName=objFSO.CreateTextFile(filepath,true,false)
FileTextName.write "QQQQQQQQQQQQQQQQQQ"
FileTextName.close
end if
end if
end if
if(mytype="del")then
if(objFSO.FileExists(myfile))then
response.Write(myfile)
'objFSO.deletefile myfile,true '//删除文件
end if
end if
%>
<form action="" method="post" name="myfile_select">
<table width="500" height="114" border="1">
<tr>
<td height="27">查看文件：</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="70">drives</td>
<td width="172">
<select name="mydrives" id="mydrives">
<%
dim colDrives,objDrives
set colDrives=objFSO.drives
for each objDrives in colDrives
response.Write("<option value="&objDrives.DriveLetter&":\>"&objDrives.DriveLetter&":\</option>")
next
%>
</select>
</td>
<td width="57"><input type="submit" name="Submit2" value="查看"></td>
</tr>
<tr>
<td>folder</td>
<td>
<select name="myfolder" id="myfolder">
<%
dim objFolder,objSubFolder
if (mydrives="")then
mydrives="c:\"
end if
set objDrives=objFSO.getDrive(cstr(mydrives))
if (objDrives.IsReady)then
set objFolder=objFSO.GetFolder(mydrives)
for each objSubFolder in objFolder.subfolders
response.Write("<option value="&mydrives&objSubFolder.name&">"&mydrives&objSubFolder.name&"</option>")
next
end if
%>
</select>
</td>
<td><input type="submit" name="Submit3" value="查看"></td>
</tr>
<tr>
<td>file</td>
<td>
<select name="myfile" id="myfile">
<%
dim objfile
if(myfolder="")then
myfolder="c:\"
end if
set objFolder1=objFSO.GetFolder(myfolder)
for each objfile in objFolder1.files
response.Write("<option value="&objfile.name&">"&objfile.name&"</option>")
next
%>
</select> </td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
<form action="" method="post" name="myfile_app" ONSUBMIT="javascript:return aaa()">
<script>
function aaa()
{
if (document.myfile_app.filename.value=="")
{
alert ("名称不能为空！");
document.myfile_app.filename.focus();
return false;
}
else
{
return true;
}
}
</script>
<table width="500" height="92" border="1">
<tr>
<td width="80" height="28">增加文件：</td>
<td width="231"> <input name="mytype" type="hidden" id="mytype" value="app"></td>
<td width="167"> </td>
</tr>
<tr>
<td>file</td>
<td>
<select name="myfolder" id="myfolder">
<%
set objDrives=objFSO.getDrive("c:\")
if (objDrives.IsReady)then
set objFolder=objFSO.GetFolder(mydrives)
for each objSubFolder in objFolder.subfolders
response.Write("<option value="&mydrives&objSubFolder.name&">"&mydrives&objSubFolder.name&"</option>")
next
end if
%>
</select>
</td>
<td> </td>
</tr>
<tr>
<td height="29"> </td>
<td>
<input name="filename" type="text" id="filename"><br>
文件：<input type="radio" name="filetype" value="file" checked><br>
文件夹：<input type="radio" name="filetype" value="folder" ><br> </td>
<td><input type="submit" name="Submit102" value="增加"></td>
</tr>
</table>
</form>
<p> </p>
<form action="" method="post" name="myfile_del">
<table width="500" height="59" border="1">
<tr>
<td width="80" height="28">删除文件：</td>
<td width="231"> <input name="mytype" type="hidden" id="mytype" value="del"></td>
<td width="167"> </td>
</tr>
<tr>
<td>file</td>
<td><input name="myfile" type="file" id="myfile"></td>
<td><input type="submit" name="Submit10" value="删除"></td>
</tr>
</table>
</form>
<p> </p>
<p> </p>
<p> </p>
</center></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -