��λ�ã��ҳ��Ѷ��һ�� ļ� MP3.RM.RAM.WMV.ASF.WMA ��Ŀ¼��ȡ��ϵͳ

��ļ� MP3.RM.RAM.WMV.ASF.WMA ��Ŀ¼��ȡ��ϵͳ ʱ�䣺2004/10/15 1:16:00��Դ��վ��ߣ����Ҫ��(0)

��Ҳ��Կ��밲ȫ��:(:(:(:(:(

http://www.7765.com/mp3/

��´��*.asp��֣�

=========================================

<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>

��ļ� MP3.RM.RAM.WMV.ASF.WMA ��Ŀ¼��ȡ��ϵͳ!

<%
okdir="E:\music\kevan\mp3"

'=============== Ĭ �� ȡ · �� ʼ =====================

'_______________________{Power by kevanTM All Rights Reserved.}_________________________

bys=17

'=====��ȫ·��ֽ��,��:[ E:\music\kevan\mp3 ]�й��18-1��ֽ�=============

thisdir=Request("Path")

if thisdir="" or len(thisdir)
thisdir=okdir

end if
%>
<%
k=5
e=0
v=0
a=2
n=1
t=3
e=8
l=8
Response.Write" "& vbCrLf
if Request.QueryString("mp3")<>"" then
FileName = Request.QueryString("mp3")
strFile=FileName
if FileName="" or len(FileName)<17 Then
Response.Write("

��

��Ч�ļ��Ҫ��ύ��·��

")
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write("

��

" & FileName & "��KevanTMϵͳǿ�н�ֹ��ļ��

")
Response.End
End Select
strFilename = strFile
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("

��

" & strFilename & "��ļ��ڷ��棡

")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("

��

" & err.Description & "��

")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
response.end
end if

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fdir=fs.GetFolder(thisdir)
response.write "

"function getUpfoldersString(temp)temps=StrReverse(temp)temps=replace(temps,"/","\")if right(temp,1)="\" or right(temp,1)="/" thentemps=replace(temp,"\","")end iftemps=StrReverse(mid(temps,inStr(temps,"\")+1))getUpfoldersString=tempsEnd functionif Request("Path")<>"" or len(Request("Path"))>bys thenresponse.write " "elseresponse.write " "if right(thisdir,1)="\" or right(thisdir,1)="/" thenthisdir=replace(thisdir,"\","")end ifend ifdim iFor each thing in fdir.SubFoldersResponse.Write " "Nextresponse.write "

[��ﷵ��һ��Ŀ¼]��ǰĿ¼Ϊ��"&thisdir&"
[�� Ŀ ¼ �� ]
------------------->[" & thing.Name & "]	ע�ͣ�" & thing.Name & "Ŀ¼�ļ��

"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fdir=fs.GetFolder(thisdir)
response.write "

"response.write " "dim strExtFor each thing in fdir.Filesresponse.write " "'==================================��ȡ.mp3�ļ��ʽ===========================strExt=lcase(right(thing.Name,4))select case strExtcase ".mp3"Response.Write " "response.write " "end select'==================================��ȡ.wma�ļ��ʽ===========================strExt=lcase(right(thing.Name,4))select case strExtcase ".wma"Response.Write " "response.write " "end select'==================================��ȡ.wmv�ļ��ʽ===========================strExt=lcase(right(thing.Name,4))select case strExtcase ".wmv"Response.Write " "response.write " "end select'==================================��ȡ.rm�ļ��ʽ===========================strExt=lcase(right(thing.Name,3))select case strExtcase ".rm"Response.Write " "response.write " "end select'==================================��ȡ.asf�ļ��ʽ===========================strExt=lcase(right(thing.Name,4))select case strExtcase ".asf"Response.Write " "response.write " "end select'==================================��ȡ.ram�ļ��ʽ===========================strExt=lcase(right(thing.Name,4))select case strExtcase ".ram"Response.Write " "response.write " "end select'==================================��ȡ��===================================response.write " "Nextresponse.write "

��ļ��

��С

��Ƶ��

" & thing.Name & "

" & cstr(thing.size) & "

" & thing.type &"

" & thing.Name & "

" & cstr(thing.size) & "

" & thing.type &"

" & thing.Name & "

" & cstr(thing.size) & "

" & thing.type & "