0514-86177077

9:00-17:00（工作日）

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

vithink小文件自动实现文件浏览下载
热门标签：莱西电子地图标注 怎么在地图标注自己 县域地图标注打印店 修改地图标注 个人可以办理400电话么 外呼系统API接口 凤台百度地图标注店 金昌电话机器人价格 武夷山旅游地图标注
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,小,文件,自动,实现,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《vithink小文件自动实现文件浏览下载》相关的同类信息！
  • 本页收集关于vithink小文件自动实现文件浏览下载的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：遍历目录以及目录下文件的函数

    下一篇：在线实时开通FTP&WEB

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： vithink小文件自动实现文件浏览下载 vithink,小,文件,自动,实现,