vithink小文件自动实现文件浏览下载-巨人网络通讯

主页 > 知识库 > vithink小文件自动实现文件浏览下载

vithink小文件自动实现文件浏览下载

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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名称：GenerateFolderInformation()
' 功能说明：描述文件夹的当前状态

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GenerateFolderInformation(Folder,i)

Dim S, RowColor

RowColor = ""
If i Mod 2 = 0 Then RowColor = "bgcolor=#dddddd"

S = ""

GenerateFolderInformation = S

End Function

%>
/td>
/tr>
/table>
/td>
/tr>
/table>
script src=http://www.mithink.com/js/bottom1.js>/script>

/body>

/html>

标签：广元枣庄大理江苏萍乡衡水蚌埠衢州

巨人网络通讯声明：本文标题《vithink小文件自动实现文件浏览下载》，本文关键词；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。

vithink小文件自动实现文件浏览下载

QQ咨询

电话咨询