📄 index.asp
字号:
<!--#include file="FunLib.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../Inc/Config.asp" -->
<!--#include file ="../admin_CheckMana.asp"-->
<%
if EnoughPopedom("xuni")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Dim tempCurrentPath,CurrentPath
tempCurrentPath=FilterPath(Trim(Request("CurrentPath")))
If tempCurrentPath="" Then
CurrentPath=DirectoryRoot
Else
CurrentPath=DirectoryRoot & tempCurrentPath
End If
Dim Fso
Set Fso = Server.CreateObject(FsoObjectStr)
Dim Fol,Fols 'Folder,Folders
Dim Fle,Fles 'File,Files
If Fso.FolderExists(Server.MapPath(CurrentPath)) Then
'获得虚拟文件系统主目录DirectoryRoot
Set Fol=Fso.GetFolder(Server.MapPath(CurrentPath))
Else
'若虚拟文件系统主目录未找到,则创建该目录
If CurrentPath=DirectoryRoot Then
Fso.CreateFolder(Server.MapPath(CurrentPath))
Set Fol=Fso.GetFolder(Server.MapPath(CurrentPath))
End If
End If
Select Case Request("Work")
Case "DelItem"
DelItem()
Response.Redirect("?CurrentPath=" & tempCurrentPath)
Case "MoveItem"
MoveItem()
Response.Redirect("?CurrentPath=" & tempCurrentPath)
Case "CreateFolder"
CreateFolder()
Response.Redirect("?CurrentPath=" & tempCurrentPath)
Case Else
End Select
Dim ItemCount
ItemCount=0
%>
<html>
<head>
<title>虚拟文件系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Css/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="15%"> <img src="images/m_Home.gif" width="20" height="20" style="cursor:hand" onClick="location='?'" title="回到主目录"><img src="images/m_Front.gif" width="20" height="20" style="cursor:hand" onClick="history.back()" title="后退"><img src="images/m_Back.gif" width="20" height="20" style="cursor:hand" onClick="history.forward()" title="前进"><img src="images/m_STOP.gif" width="20" height="20" style="cursor:hand" onClick="window.stop" Title="停止"><img src="images/m_Ref.gif" width="20" height="20" style="cursor:hand" onClick="location.reload()" title="刷新"><img src="images/m_MakeFolder.gif" width="20" height="20" style="cursor:hand" onClick="CreateFolder()" title="创建目录"><img src="images/m_NewFile.gif" alt="为了安全,不允许上传图片" width="20" height="20" style="cursor:hand"></td>
<td><input name="Path" type="text" class="Input" id="Path" value="<%=Replace(CurrentPath,DirectoryRoot,"主目录")%>" size="80" readonly="true" style="width:100%"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#76B771">
<form name="form1" method="post" action="">
<tr bgcolor="#60AC59">
<td width="4%" align="center"> </td>
<td width="60%"><font color="#FFFFFF"> 标题</font></td>
<td width="14%" align="center"><font color="#FFFFFF"> 大小</font></td>
<td width="13%" align="center" title="Created Time"><font color="#FFFFFF">
创建时间</font></td>
<td width="9%" align="center"><font color="#FFFFFF">操作</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td align="center"><img src="images/Folder_Root.gif" width="16" height="16" Title="文件夹"></td>
<td><a <%If tempCurrentPath<>"" Then%>href="?CurrentPath=" <%Else%>href="#" disabled="true"<%End If%>>回到主目录</a></td>
<td align="center"><font color="#009900">×</font></td>
<td align="center"><font color="#009900">×</font></td>
<td align="center"><font color="#009900">×</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td align="center"><img src="images/Folder_Parent.gif" width="16" height="16" Title="文件夹"></td>
<td><a <%If tempCurrentPath<>"" Then%>href="?CurrentPath=<%=GetParent(tempCurrentPath)%>" <%Else%>href="#" disabled="true"<%End If%>>回到父目录</a></td>
<td align="center"><font color="#009900">×</font></td>
<td align="center"><font color="#009900">×</font></td>
<td align="center"><font color="#009900">×</font></td>
</tr>
<%
Call ShowFolderList()
Sub ShowFolderList()
Dim Item
Set Fols=Fol.SubFolders
For Each Item In Fols
ItemCount=ItemCount+1
%>
<tr bgcolor="#F7FFF4">
<td align="center"><img src="images/Folder.gif" width="16" height="16" Title="文件夹"></td>
<td><a href="?CurrentPath=<%=tempCurrentPath&"/"&Item.Name%>"><%=Item.Name%></a></td>
<td align="center"><%=FormatNumber(Item.Size/1024,2)&" KB"%></td>
<td align="center"><span Title="<%=Item.DateCreated%>"><%=FormatDateTime(Item.DateCreated,2)%></span></td>
<td align="center"> <input name="Item" type="checkbox" id="Item" value="<%=Item.Name & "1"%>"></td>
</tr>
<%
Next
End Sub
%>
<%
Call ShowFileList()
Sub ShowFileList()
Dim Item
Set Fles=Fol.Files
For Each Item In Fles
ItemCount=ItemCount+1
%>
<tr bgcolor="#F7FFF4">
<td align="center"><img src="images/<%=FileIco(Item.Name)%>" width="16" height="16"></td>
<td>[<a href="#" onclick="prompt('[<%=Item.Name%>]文件的URL',File<%=ItemCount%>.href)"><font color="#0000FF">查看路径</font></a>]<a href="<%=DirectoryRoot&tempCurrentPath&"/"&Item.Name%>" Title="<%=Item.Type%>" target="_balnk" class="Name" Id="File<%=ItemCount%>"><font face="Verdana, Arial, Helvetica, sans-serif"><%=Item.Name%></font></a>
</td>
<td align="center"><%=FormatNumber(Item.Size/1024,2)&" KB"%></td>
<td align="center"><span Title="<%=Item.DateCreated%>"><%=FormatDateTime(Item.DateCreated,2)%></span></td>
<td align="center"> <input name="Item" type="checkbox" id="Item" value="<%=Item.Name & "0"%>"></td>
</tr>
<%
Next
End Sub
%>
<tr align="right" bgcolor="#F7FFF4">
<td colspan="5"> <div align="left">总文件数:<%=ItemCount%>
<input type="submit" name="Submit" value="Submit" style="display:none">
<input name="Work" type="hidden" id="Work">
<input name="Parameter" type="hidden" id="Parameter">
<input name="CurrentPath" type="hidden" id="CurrentPath" value="<%=tempCurrentPath%>">
<label style="cursor:hand" onClick="MoveItem()" title="移动所选项目"><strong> 移动</strong></label>
<strong> </strong>
<label style="cursor:hand" onClick="DelItem()" title="删除所选项目"><strong>删除</strong></label>
</div></td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/JavaScript">
function UploadFile()
{
var Result=showModalDialog("UpFile.asp?Path=<%=tempCurrentPath%>","","dialogWidth:400px;dialogHeight:200px;center:yes;scroll:no;");
if(Result){
window.location.reload();
}
}
function DelItem()
{
if(confirm("请确定要将所选中的文件/文件夹删除！\n(删除后将无法还原)"))
{
form1.Work.value='DelItem';
form1.Submit.click()
}
}
function MoveItem()
{
var Result=prompt("请输入目标目录位置(详见帮助)：","")
if(Result)
{
form1.Work.value="MoveItem"
form1.Parameter.value=Result
form1.Submit.click()
}
}
function CreateFolder()
{
var str;
str=prompt("<创建目录>\n请输入[目录名]:","目录"+Math.floor(Math.random()*1000));
if(str!=null)
{
if(str=="")
{
alert("<操作失败>\n未填写[目录名]");
return false;
}else{
window.location='?CurrentPath=<%=tempCurrentPath%>&Work=CreateFolder&Title='+str;
}
}
}
</script>
</body>
</html>
<%
Set Fol=Nothing
Set Fso=Nothing
'########取得文件扩展名所对应的图标
Function FileIco(f_name)
Dim ex,ico
ex=LCase(GetEx(f_name))
Select Case ex
Case ".doc"
ico="f_Doc.gif"
Case ".txt"
ico="f_txt.gif"
Case ".mp3"
ico="f_mp3.gif"
Case ".gif"
ico="f_pic.gif"
Case ".bmp"
ico="f_pic.gif"
Case ".jpg"
ico="f_pic.gif"
Case ".ico"
ico="f_pic.gif"
Case ".rar"
ico="f_rar.gif"
Case ".zip"
ico="f_rar.gif"
Case ".htm"
ico="f_htm.gif"
Case ".html"
ico="f_htm.gif"
Case ".shtml"
ico="f_htm.gif"
Case ".asp"
ico="f_asp.gif"
Case ".xml"
ico="f_asp.gif"
Case ".jsp"
ico="f_asp.gif"
Case ".php"
ico="f_asp.gif"
Case ".css"
ico="f_asp.gif"
Case ".js"
ico="f_asp.gif"
Case ".asf"
ico="f_media.gif"
Case ".wmv"
ico="f_media.gif"
Case ".mdb"
ico="f_mdb.gif"
Case ".exe"
ico="f_exe.gif"
Case ".com"
ico="f_exe.gif"
Case ".bat"
ico="f_exe.gif"
Case ".swf"
ico="f_swf.gif"
Case ".fla"
ico="f_swf.gif"
Case ".rm"
ico="f_rm.gif"
Case ".dll"
ico="f_dll.gif"
Case ".sys"
ico="f_dll.gif"
Case ".ocx"
ico="f_ocx.gif"
Case ".ini"
ico="f_ini.gif"
Case ".dbx"
ico="f_dbx.gif"
Case ".cat"
ico="f_cat.gif"
Case ".pdf"
ico="f_pdf.gif"
Case ".hlp"
ico="f_hlp.gif"
Case ".htt"
ico="f_htt.gif"
Case ".png"
ico="f_png.gif"
Case ".chm"
ico="f_chm.gif"
Case ".nfo"
ico="f_nfo.gif"
Case ".reg"
ico="f_reg.gif"
Case ".key"
ico="f_reg.gif"
Case ".cpp"
ico="f_cpp.gif"
Case ".h"
ico="f_h.gif"
Case ".frm"
ico="f_frm.gif"
Case ".bas"
ico="f_bas.gif"
Case ".ctl"
ico="f_ctl.gif"
Case ".vbg"
ico="f_vbg.gif"
Case ".vbp"
ico="f_vbp.gif"
Case else:
ico="UnKnow.gif"
End Select
FileIco=ico
End Function
'########取得文件扩展名
'返回值如：".exe"、".gif"
Function GetEx(fileName)
Dim I
For I=Len(fileName) To 1 Step -1
If Mid(fileName,I,1)="." Then
GetEx=Right(fileName,Len(fileName)-I+1)
Exit Function
End If
Next
End Function
'#######获得父目录
Function GetParent(strPath)
If strPath<>"" Then
Dim I
For I=Len(strPath) To 1 Step -1
If Mid(strPath,I,1)="/" Then
GetParent=Left(strPath,I-1)
Exit Function
End If
Next
Else
GetParent=strPath
End If
End Function
'#####删除
Function DelItem()
Dim ItemList
DelItem=true
If Trim(Request("Item"))="" Then
DelItem=false
Exit Function
End If
ItemList=Split(Trim(Request("Item")),",",-1,1)
on error resume next
err.clear
Dim I,ItemPath
For I=0 To Ubound(ItemList)
ItemPath=Server.MapPath(CurrentPath&"/"&Trim(Left(ItemList(I),Len(ItemList(I))-1)))
'根据文件/文件夹进行删除
If CBool(Right(ItemList(I),1)) Then
Fso.DeleteFolder(ItemPath)
Else
Fso.DeleteFile(ItemPath)
End If
If err.Number<>0 then
DelItem=false
End If
Next
End Function
'#####移动
Function MoveItem()
Dim DirectionPath
DirectionPath=""
Dim Parameter
Parameter=Request("Parameter")
If Parameter="/" Then
DirectionPath=Server.MapPath(DirectoryRoot)&"\"
Else
If Left(Parameter,1)="/" Then
DirectionPath=Server.MapPath(DirectoryRoot&Parameter)&"\"
Else
DirectionPath=Server.MapPath(CurrentPath&"/"&Parameter)&"\"
End If
End If
If Not Fso.FolderExists(DirectionPath) Then
Set Fso=Nothing
Response.Write("<script>alert(""<操作失败>\n目录："&Parameter&" 不存在\n详见帮助"");window.history.back();</script>")
Response.End()
End If
MoveItem=true
If Trim(Request("Item"))="" Then
DelItem=false
Exit Function
End If
Dim ItemList
ItemList=Split(Trim(Request("Item")),",",-1,1)
on error resume next
err.clear
Dim I,ItemPath
For I=0 To Ubound(ItemList)
ItemPath=Server.MapPath(CurrentPath&"/"&Trim(Left(ItemList(I),Len(ItemList(I))-1)))
'根据文件/文件夹进行删除
If CBool(Right(ItemList(I),1)) Then
Fso.MoveFolder ItemPath,DirectionPath
Else
Fso.MoveFile ItemPath,DirectionPath
End If
If err.Number<>0 then
MoveItem=false
End If
Next
End Function
'#######
Function CreateFolder()
Dim Title
Title=FilterPath(Trim(Request("Title")))
If Title="" Then
CreateFolder=false
Exit Function
End If
Dim FolderPath
on error resume next
err.clear
FolderPath=Server.MapPath(CurrentPath&"/"&Title)
If err.Number<>0 Then
Response.Write("<script>alert(""<操作失败>\n目录名包含非法字符"");window.history.back();</script>")
Response.End
End If
If Fso.FolderExists(FolderPath) Then
Response.Write("<script>alert(""<操作失败>\n存在同名目录"");window.history.back();</script>")
Response.End
Else
Fso.CreateFolder(FolderPath)
CreateFolder=true
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -