browser.asp
来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 208 行
ASP
208 行
<%@ Language=VBScript %>
<%Response.buffer=true
Level=1%>
<!--#include File ="includes/check.inc"-->
<HTML>
<HEAD>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<title>aspEdit</title>
<link rel=stylesheet type="text/css" href="styles/style.css">
</HEAD>
<BODY><!--#include File ="includes/banner.inc"--><!--#include File ="includes/upload.inc"-->
<div align="center">
<%
'创建FileSystemObject对象
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'获得路径
Path=request.querystring("Path")
If Right(Path,1)="/" AND Path<>"/" Then Path=Left(Path,Len(Path)-1)
response.write("<font color='white'><b>" & Path & "</font></b><br>")
Var =InstrRev(Path,"/")
dirup=left(Path,Var)
'显示上一级目录链接
response.write ("[<a href='browser.asp?path=" & dirup & "'>上一级</a>]")
%>
[<a href="browser.asp?path=/">根目录</a>]<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<form name="FormName" <%="action='browser.asp?path=" & path & "&aktion=createfolder'"%>method="post">
<div align="center">
<input type="text" name="newSubF" size="24"><br>
<input type="submit" name="submitButtonName" value="创建子目录"></div>
</form>
</td>
<td>
<form name="FormName" <%="action='browser.asp?path=" & path & "&aktion=createfile'"%>method="post">
<div align="center">
<input type="text" name="newFile" size="24"><br>
<input type="submit" name="submitButtonName" value="创建文件"></div>
</form>
</td>
</tr>
</table>
<hr>
<%
'获取用户选择的功能选项
aktion=request.querystring("aktion")
Set ts=fso.GetFolder(Server.MapPath(Path))
Select Case aktion
Case "upload" '文件上载
If Len(Request.TotalBytes) > 0 Then
Response.Write("文件将被上载到当前目录 " & Path)
Init '初始化
For x=1 to int(request.querystring("NumOfUploads"))
fName="fName" & x
Server.ScriptTimeout = 250 '由于文件上传速度比较慢，因此要设置页面处理时间要延长
If getFileName(fName)<>"" then
If saveAs(fName,"") = true then
response.write ("<br>文件" & getFileName(fName) & " (Content-Type: " & getContentType(fName) & ") 上载成功.")
else
response.write("<br>文件 " & getFileName(fName) & "上载错误!")
end if
End if
Next
Response.Write("<hr>")
End If
Case "deletefile" '删除文件
fso.DeleteFile(Server.MapPath(request.querystring("file")))
response.write("文件被删除.<hr>")
Case "deletefolder" '删除目录
fso.DeleteFolder(Server.MapPath(request.querystring("folder")))
response.write("目录被删除.<hr>")
Case "createfile"
If right(Path,1)<>"/" then Path= Path & "/"
fso.CreateTextFile(Server.MapPath(Path & request.form("newFile")))
response.write("文件被创建成功!.<hr>")
Case "createfolder" '创建目录
If right(Path,1)<>"/" then Path= Path & "/"
fso.CreateFolder(Server.MapPath(Path & request.form("newSubF")))
response.write("目录创建成功!.<hr>")
End select
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#FFFFFF">
<tr>
<td colspan="7" bgcolor="#C0C0C0" height="14">
<div align="center">
<font color="#FFFFFF">
<b><span style="background-color: #000000">子目录</span></b></font></div>
</td>
</tr>
<%
For each SubF in ts.Subfolders '获取所有子目录
If right(Path,1)="/" then
WholeSubF=Path & SubF.Name
else
WholeSubF=Path & "/" & SubF.Name
end if%>
<tr>
<td colspan="3"><%="<a href='browser.asp?path=" & WholeSubF & "'>" & SubF.Name & "</a>"%></td>
<td width="15%">
<div align="right">
<%Response.Write SubF.DateLastModified%></div>
</td>
<td width="5%"></td>
<td width="5%">
<div align="center">
</div>
</td>
<td width="5%">
<div align="center">
<font size="-2">
<a <%="href='browser.asp?path=" & path & "&aktion=deletefolder&folder=" & WholeSubF & "'"%>>
删除</a></font></div>
</td>
<%next%>
</tr>
<tr>
<td colspan="7" bgcolor="#C0C0C0">
<div align="center">
<b>文件</b></div>
</td>
</tr>
<%
For each File in ts.files '显示所有文件
If right(Path,1)="/" then
WholeFile=Path & File.Name
else
WholeFile=Path & "/" & File.Name
end if
%>
<tr>
<td><%=File.Name%></td>
<td width="25%">
<div align="center">
<%=File.Type%></div>
</td>
<td width="5%">
<div align="right">
<%
if File.Size <1024 Then '如果文件小于1K，则直接显示字节数量
Response.Write File.Size & " B"
ElseIf File.Size < 1048576 Then '小于1M的显示KB
Response.Write Round(File.Size / 1024.1) & " KB"
Else
Response.Write Round((File.Size/1024)/1024.1) & " MB" '其余显示MB
End if
Var=InstrRev(File.Name,".")
FileType=Right(File.Name,Len(File.Name)-Var)
%></div>
</td>
<td width="15%">
<div align="right">
<%Response.Write File.DateLastModified%></div>
</td>
<td width="5%">
<div align="center">
<%
If FileType="mdb" then '如果是ACCESS数据库，添加编辑链接
response.write ("<font size='-2'><a href='dbeditor.asp?path=" & WholeFile & "' target='_blank'>编辑数据库</a></font>")
else
response.write ("<font size='-2'><a href='editor.asp?path=" & path & "&file=" & WholeFile & "' target=_blank'>编辑</a></font>")
end if
%></div>
</td>
<td width="5%">
<div align="center">
<%
response.write (" <font size='-2'><a href='" & WholeFile & "' target=_blank'>打开/下载</a></font>")
%></div>
</td>
<td width="5%">
<div align="center">
<font size="-2">
<a <%="href='browser.asp?path=" & path & "&aktion=deletefile&file=" & WholeFile & "'"%>>
删除</a></font></div>
</td>
</tr>
<%next%>
</table>
<hr>
<p><b>Upload:<br>
<%
If request.querystring("NumOfUploads")="" Or int(request.querystring("NumOfUploads"))<1 then NumOfUploads=1 Else NumOfUploads=int(request.querystring("NumOfUploads"))
%>
</b>[<a <%="href='browser.asp?path=" & path & "&numofuploads=" & numofuploads+5 & "'"%>>多文件上载</a>][<a <%="href='browser.asp?path=" & path & "&numofuploads=" & numofuploads-5 & "'"%>>单个文件上载</a>]<br>
注意：文件被上载到当前目录，如果有同名的，则会覆盖！！！</p><FORM name=frmTest <%="action='browser.asp?path=" & path & "&aktion=upload&NumOfUploads=" & NumOfUploads & "'"%> method=post enctype="multipart/form-data">
<%For x=1 to NumOfUploads
response.write("<INPUT type='file' name='fName" & x & "'><BR>")
Next
%>
<INPUT TYPE=submit NAME=cmdSubmit VALUE="开始上载">
</FORM>
</div>
</BODY>
</HTML>
<%
Set fso = Nothing
Set ts = Nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?