directory.asp
来自「全方面的OA管理程序代码」· ASP 代码 · 共 168 行
ASP
168 行
<html><head><title>Directory</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF" Background="Sandston.gif"><%Dim oFSODim oFileItemDim oFolderDim oSubFolderDim oDriveDim CurrentPathSet oFSO = CreateObject("Scripting.FileSystemObject")CurrentPath = Request("Path")If CurrentPath = "" Then CurrentPath = "C:\"Set oFolder = oFSO.GetFolder(CurrentPath)Set oFolderContents = oFolder.Files%><FORM ACTION="default.asp" METHOD="Get"><CENTER><TABLE cellpadding=1 border=3> <TR> <TD align="Center" colspan="2"> <Font Face="Verdana" SIZE ="5"><B> <IMG Name=Logo src="AniFloppy.gif"> Current Path: <%= CurrentPath%></B> <IMG Name=Logo src="AniFloppy.gif"> </FONT> </TD> </TR> <TR> <TD valign=top> <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF"> <TR align=Center BorderColor="#808080" BGColor="D3D3D3"> <TH colspan=2 align=Center>Drives</TH> </TR> <% For each oDrive in oFSO.Drives %> <TR BorderColor="#FFFFFF"> <TD align=right> <%Select Case oDrive.DriveType %> <%Case 1 'Removable %> <IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif"> <%Case 2 'HardDrive %> <IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif"> <%Case 3 'Newtork %> <IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif"> <%Case 4 'CD %> <IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif"> <%End Select %> </TD> <TD align=left> <Font Face="Verdana" SIZE ="2"><B> <A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>> <%= "(" & oDrive.DriveLetter & ":)"%></A></B> </FONT> </TD> <% Next %> </TR> </TABLE> </TD> <TD valign=top> <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF"> <TR align=center BorderColor="#808080" BGColor="D3D3D3"> <TH align=left colspan=2 border=1>Name</TH> <TH align=left border=1>Type</TH> <TH border=1>File Size</TH> <TH border=1>Last Modified</TH> </TR> <% If Not oFolder.IsRootFolder Then %> <TD align=right> <IMG Name="Arrow" src="Arrow.gif"> </TD> <TD align=left> <FONT Face="Verdana" SIZE ="2" Color="Blue"><B> <A HREF=default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>> ...</A></B> </FONT> </TD> <% End If For Each oSubFolder in oFolder.SubFolders %> <TR BorderColor="#FFFFFF" > <TD align=right> <IMG Name="Folder" src="Folder.gif"> </TD> <TD align=left> <FONT Face="Verdana" SIZE ="2" Color="Blue"><B> <A HREF=default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>> <%= oSubFolder.Name %></A></B> </FONT> </TD> <TD align=left> <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT> </TD> <TD> </TD> <TD align=left> <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT> </TD> </TR> <% Next For Each oFileItem in oFolder.Files %> <TR BorderColor="#FFFFFF"> <TD align=right> <IMG Name="File" src="Files.gif"> </TD> <TD align=left> <FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT> </TD> <TD align=left> <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT> </TD> <TD align=right> <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT> </TD> <TD align=left> <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT> </TD> </TR> <% Next %> </TABLE> </TD> </TR></TABLE></CENTER></FORM></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?