📄 fso_index.asp
字号:
'****************************************
%>
<% Dim Fso,FsoFile,FileType,FileSize,FileTime,Path
Dim Dir
action=Trim(Request.QueryString("action"))
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
IsErr
If action = "Del" then
Call DelAll
ElseIf action = "NewFile" then
Call NewFile
ElseIf action = "NewFolder" then
Call NewFolder
ElseIf action = "Rname" then
Call Rname
ElseIf action = "Edit" then
Call Edit
ElseIf action = "Save" then
Call Edit
Else
Dir=Trim(Request.QueryString("Dir"))
Path = Server.MapPath(".") & Dir
Set FsoFile = Fso.GetFolder(Server.MapPath("."))
FsoFileSize = FsoFile.size
Set FsoFile = nothing
Set FsoFile = Fso.GetFolder(Path)
%>
<html>
<head>
<title>FSO在线编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% Call Css %>
<script language=javascript>
function Checked()
{
var j = 0
for(i=0;i < document.form.elements.length;i++){
if(document.form.elements[i].name == "FileId" || document.form.elements[i].name == "FolderId"){
if(document.form.elements[i].checked){
j++;
}
}
}
return j;
}
function CheckAll1()
{
for(i=0;i<document.form.elements.length;i++)
{
if(document.form.elements[i].checked){
document.form.elements[i].checked=false;
document.form.CheckAll.checked=false;
}
else{
document.form.elements[i].checked = true;
document.form.CheckAll.checked = true;
}
}
}
function DelAll()
{
if(Checked() <= 0){
alert("您必须选择其中的一个文件或文件夹");
}
else{
if(confirm("确定要删除选择的文件或文件夹么？\n此操作不可以恢复！")){
form.action="?action=Del";
form.submit();
}
}
}
function Edit()
{
if(Checked() == 0){
alert("您必须选择其中的一个文件");
}
else{
if(Checked() != 1){
alert("只能选择一个文件（文本文件）");
}
else{
for(i=0;i < document.form.elements.length;i++){
if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
form.action="?action=Edit";
form.target="self";
form.submit();
break;
}
else if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
alert("不能编辑文件夹")
break;
}
}
}
}
}
function Rname()
{
if(Checked() == 0){
alert("您必须选择一个文件或文件夹");
}
else{
if(Checked() != 1){
alert("只能选择一个文件或一个文件夹");
}
else{
for(i=0;i < document.form.elements.length;i++){
if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
var j = prompt("请输入新文件夹名",document.form.elements[i].value)
break;
}
else if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
var j = prompt("请输入新文件名",document.form.elements[i].value)
break;
}
}
if(j != "" && j != null){
if(IsStr(j) == j.length){
form.action="?action=Rname&NewName=" + j;
form.target="_self";
form.submit();
}
else{
alert("新名称不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
}
}
}
}
}
function IsStr(w)
{
var str = "abcdefghijklmnopqrstuvwxyz_1234567890."
w = w.toLowerCase();
var j = 0;
for(i=0;i < w.length;i++){
if(str.indexOf(w.substr(i,1)) != -1){
j++;
}
}
return j;
}
function NewFile(form,i)
{
if(i == 1){
if(form.NewFolderName.value == ""){
alert("文件夹名不能为空");
}
else{
if(IsStr(form.NewFolderName.value) == form.NewFolderName.value.length){
form.action="?action=NewFolder";
form.submit();
}
else{
alert("文件夹名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
}
}
}
else{
if(form.NewFileName.value == ""){
alert("文件名不能为空");
}
else{
if(IsStr(form.NewFileName.value) == form.NewFileName.value.length){
form.action="?action=NewFile";
form.submit();
}
else{
alert("文件名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
}
}
}
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="97%" border="0" cellspacing="0" cellpadding="0" class="fonts">
<tr>
<td> </td>
</tr>
<tr>
<td>注意：<a href=?action=Open&Dir= title=返回到系统主目录><font color=FF6600><b>下面所列出的图片是数据中没有关联的，可以删除！</b></font></a> 空间占用：<%=GetFileSize(FsoFileSize)%></td>
</tr>
<tr>
<td bgcolor="B7CECD" height="1"></td>
</tr>
<tr>
<td height="20" valign=bottom> 当前目录：<%=Server.MapPath(".") & Dir %><br> 占用空间：<%=GetFileSize(FsoFile.size)%> 其中包含 <font color=red><%=FsoFile.SubFolders.count%></font> 个文件夹； <font color=red><%=FsoFile.Files.count%></font> 个文件</td>
</tr>
<tr>
<td bgcolor="B7CECD" height="1"></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonts">
<form name="form" method="post" >
<tr bgcolor="F4F4F4">
<Td width="6%" align="center"> </td>
<td width="39%"><font color="990033"> 文件/文件夹名 </font></td>
<td width="13%" align="center"><font color="990033">预览</font></td>
<td width="15%" align="center"><font color="990033">文件大小</font></td>
<td width="27%" align="center"><font color="990033">最后修改时间</font></td>
</tr>
<% For Each DirFolder in FsoFile.SubFolders
FolderName=DirFolder.name
FolderSize=GetFileSize(DirFolder.size)
FolderTime=DirFolder.DateLastModified
if FolderName="Fso_image" then
else
%>
<tr bgcolor="#FFFFFF">
<td width="6%" align="center">
<input type="checkbox" name="FolderId" value="<%=FolderName%>"> </td>
<td width="39%"> <a href=?action=Open&Dir=<%=Dir%>\<%=FolderName%>><%=FolderName%></a></td>
<td width="13%" align="center"><img src="<%=ImageFolder%>/ClosedFolder.gif" width="16" height="16" alt="文件夹"></td>
<td width="15%" align="center"><%=Dir%>\<%=FolderName%></td>
<td width="27%" align="center"><%=FolderTime%></td>
</tr>
<% end if %>
<% Next %>
<% For Each DirFiles in FsoFile.Files
FileName=DirFiles.name
FileType=GetFileIcon(FileName)
FileSize=GetFileSize(DirFiles.size)
FileTime=DirFiles.DateLastModified
'add pics to del
ImgName="linkimages/"&FileName
sql1="select linkPic from link where linkPic='"&ImgName&"'"
set rs1=conn.execute(sql1)
if rs1.eof or rs1.bof then
DisplayFlag=1
'response.write displayflag&"A"
else
DisplayFlag=0
'response.write displayflag&"B"
end if
rs1.close
suffix=mid(FileName,InStrRev(FileName,".")+1) '取文件filename的后缀名
if suffix="gif" or suffix="jpg" or suffix="jpeg" or suffix="swf" then '如果后缀名不是图片格式的底色不变
else
DisplayFlag=0
end if
if DisplayFlag=1 then
%>
<tr bgcolor="#FFFFFF">
<% if suffix="gif" or suffix="jpg" or suffix="jpeg" or suffix="swf" then %>
<td width="6%" align="center">
<input type="checkbox" name="FileId" value="<%=FileName%>"></td>
<td width="39%"> <a href=<%=FileUrl(FileName,Dir)%> target=_blank><%=FileName%></a></td>
<td width="13%" align="center"><%if suffix="swf" then%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="100" height="100">
<param name="movie" value="<%=FileName%>">
<param name="quality" value="high">
<embed src="<%=FileName%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="100" height="100"></embed>
</object><%else%><Img src=<%=FileName%> width="100"><%end if%></td>
<td width="15%" align="center"><%=FileSize%></td>
<td width="27%" align="center"><%=FileTime%></td>
<% end if %>
</tr>
<%
end if
Next
%>
<tr bgcolor="#FFFFFF">
<td width="6%" align="center">
<input type="checkbox" name="CheckAll" value="checkbox" onClick="CheckAll1()" title=全部选择 style="cursor:hand"> </td>
<td colspan="4" height="30">
<input type="button" name="Submit2" value="删 除" class=button style="cursor:hand" onClick="DelAll()" title=删除>
<input type="button" name="Submit3" value="重命名" class=button style="cursor:hand" onClick="Rname()" title=重命名>
<font color="990033">
<input type="hidden" name="ThisDir" value="<%=Dir%>">
</font> </td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td bgcolor="B7CECD" height="1"></td>
</tr>
<tr>
<td height="20" align="center"> 程序运行时间：<font color=red><%=FormatNumber((Timer()-StatrTime)*1000,3) %></font> 毫秒</td>
</tr>
<tr>
<td bgcolor="B7CECD" height="1"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<% End If
Set FsoFile = nothing
Set Fso = nothing
conn.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -