" tmpStr = "" Set Files = Folder.Files tmpStr = tmpStr & " 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 = " | ||
" & File.Name & " | "" & FormatNumber(File.Size/1024 ,0) & " KB | "" S = S & " ↓ |
上一篇:Web代理(asp版)
下一篇:VBS加密免杀器_下载
QQ客服
公众号
手机版
帮助中心