📄 directorylisting.asp
字号:
<!-- AspUpload Code samples: DirectoryListing.asp -->
<!-- Directory Listing -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->
<HTML>
<HEAD>
<!--METADATA TYPE="TypeLib" UUID="{B4E1B2DE-151B-11D2-926A-006008123235}"-->
</HEAD>
<BODY>
<H3>Directory Listing</H3>
<%
If Request("Dir") = "" Then
Directory = "c:\"
Else
Directory = Request("Dir")
End If
Set Upload = Server.CreateObject("Persits.Upload")
Set Dir = Upload.Directory( Directory & "*.*", , True)
%>
<h2><% = Dir.Path %></h2>
<TABLE BORDER="1" CELLSPACING="0" STYLE="font-size: 8pt;">
<TH>Name</TH><TH>Size</TH><TH>Type</TH><TH>Modified</TH><TH>Created</TH><TH>Attr</TH><TR>
<% For Each Item in Dir %>
<% If Item.IsSubdirectory Then %>
<TD><B><A HREF="DirectoryListing.asp?Dir=<% = Server.URLEncode(Left(Dir.Path, Len(Dir.Path)-3)) & Server.URLEncode(Item.FileName) & "\" %>"><% = Item.FileName %></A></B></TD>
<TD><B>DIR</B></TD>
<% Else %>
<TD><A HREF="Download.asp?Name=<% =Server.URLEncode( Item.FileName )%>&File=<% = Server.URLEncode(Left(Dir.Path, Len(Dir.Path)-3)) %><% =Server.URLEncode( Item.FileName )%>"><% = Item.FileName %></A></TD>
<TD ALIGN=RIGHT><% = Item.Size %></TD>
<% End If %>
<TD><% = Item.FileType %></TD>
<TD><% = Item.LastWriteTime %></TD>
<TD><% = Item.CreationTime %></TD>
<TD>
<%
If Item.CheckAttribute( FILE_ATTR_READONLY) Then
Response.Write "R"
End If
If Item.CheckAttribute( FILE_ATTR_HIDDEN) Then
Response.Write "H"
End If
If Item.CheckAttribute( FILE_ATTR_SYSTEM) Then
Response.Write "S"
End If
If Item.CheckAttribute( FILE_ATTR_ARCHIVE) Then
Response.Write "A"
End If
%>
</TD><TR>
<% Next %>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -