<% Private Function DoiMB(ByVal a) Dim c, b, str c = a/1000000 str = Cstr(c) b = Instr(str,".") DoiMB = left(str,b) + mid(str,b+1,2) End Function %> <% Diachi = Trim(Request.QueryString("diachiURL")) if InStr(Diachi,"ahha.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\ahha\" if InStr(Diachi,"anhhuy.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\anhhuy\" if InStr(Diachi,"bubble-lovely.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\bubble-lovely\" if InStr(Diachi,"donna.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\donna\" if InStr(Diachi,"freeboy.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\freeboy\" if InStr(Diachi,"harrypotter1.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\harrypotter1\" if InStr(Diachi,"kissy.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\kissy\" if InStr(Diachi,"members.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\members\" if InStr(Diachi,"soundtrack.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\soundtrack\" if InStr(Diachi,"scypham.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\scypham\" if InStr(Diachi,"tisac.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\tisac\" if InStr(Diachi,"tungdinh.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\tungdinh\" if InStr(Diachi,"magpie.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\magpie\" if InStr(Diachi,"laihuutuan.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\laihuutuan\" if InStr(Diachi,"pquyetthang.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\pquyetthang\" if InStr(Diachi,"lovely.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\lovely\" if InStr(Diachi,"leducnghi.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\leducnghi\" if InStr(Diachi,"mobile.nghenhac.info") <> 0 then StrDuongDan = "E:\pie\mobile\" Thumuc = StrDuongDan + Mid(Diachi,InStr(Diachi,"nghenhac.info/")+14,Len(Diachi)) Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set FolderObject = FSO.GetFolder(Thumuc) For Each FullFile in FolderObject.Files Set AFile = FSO.getFile(FullFile) %> <%=AFile.Name%>*__*<%=DoiMB(AFile.Size)%><%=Chr(13)+Chr(10)%><% Next %>