<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
</head>
<body>
<script src=http://www.mithink.com/js/top.js></script>
<table id=table16 cellSpacing=0 cellPadding=0 width=765 border=0>
<tr>
<td vAlign=bottom align=middle colSpan=2>
<table id=table21 cellSpacing=0 cellPadding=0 width=765 align=center border=0>
<tr>
<td ><%
Set FSO = CreateObject(Scripting.FileSystemObject)
hu = Replace(Server.MapPath(index.asp),index.asp,)'本系统所在目录
Set TestFolder = FSO.GetFolder(hu)
GenerateTestInformation = GenerateAllFolderInformation(TestFolder)
Function GenerateAllFolderInformation(Folder)
Dim S, SubFolders, SubFolder, Files, File, i
tmpStr =
Set SubFolders = Folder.SubFolders
If SubFolders.Count <> 0 Then
i = 1
For Each SubFolder In SubFolders
i = i + 1
tmpStr = tmpStr & GenerateFolderInformation(SubFolder,i)
Next
End If
Response.Write tmpStr & </table><br>
tmpStr =
Set Files = Folder.Files
tmpStr = tmpStr & <table border=0 width=100% cellspacing=1 cellpadding=4 align='left' style='word-break: break-all'>
tmpStr = tmpStr &
If Not (Folder.IsRootFolder) Then
tmpStr = tmpStr &
End If
tmpStr = tmpStr &
tmpStr = tmpStr &
If Files.Count <> 0 Then
i = 1
For Each File In Files
i = i + 1
tmpStr = tmpStr & GenerateFileInformation(File,i)
Next
End If
Response.Write tmpStr & </table>
End Function
Function UrlEnCode(Path)
UrlEnCode = Replace(Server.URLEncode(Path),/,/)
End Function
Function CloseFSO
FSO.Close
Set FSO = Nothing
End Function
Function GenerateFileInformation(File,i)
Dim S, RowColor
RowColor =
If i Mod 2 = 0 Then RowColor = bgcolor=#9999dd
If i Mod 2 <> 0 Then RowColor = bgcolor=#aaaaee
S = <tr><td &RowColor& > & File.Name & </td>
S = S & <td &RowColor&> & FormatNumber(File.Size/1024 ,0) & KB</td>
S = S & <td align=center &RowColor&>
S = S & <a href=' & File.Name & ' > ↓</a></td></tr>
GenerateFileInformation = S
End Function