《[建筑]声音文件 MP3RMRAMWMVASFWMA 无限目录读取下载系统.doc》由会员分享，可在线阅读，更多相关《[建筑]声音文件 MP3RMRAMWMVASFWMA 无限目录读取下载系统.doc（5页珍藏版）》请在三一文库上搜索。
1、大家测试看看代码安全不？:(:(:(:(:(urlhttp:/ MP3.RM.RAM.WMV.ASF.WMA 无限目录读取下载系统!body,table font-size: 12px; font-family: Tahoma, Verdana %okdir=E:musickevanmp3= 默 认 读 取 路 径 开 始 =_Power by kevanTM All Rights Reserved._bys=17=安全路径保护字节限制,例如: E:musickevanmp3 中共有18-1个字节=thisdir=Request(Path)if thisdir= or len(thisdir)
2、%k=5e=0v=0a=2n=1t=3e=8l=8Response.Write& vbCrLfif Request.QueryString(mp3) thenFileName = Request.QueryString(mp3)strFile=FileNameif FileName= or len(FileName)17 Then Response.Write(错误：无效文件名！请您不要乱提交参数路径！) Response.EndEnd ifFileExt = Mid(FileName, InStrRev(FileName, .) + 1)Select Case UCase(FileExt)
3、Case ASP, ASA, ASPX, ASAX, MDB Response.Write(错误： & FileName & KevanTM系统强行禁止您不许下载这个文件！) Response.EndEnd SelectstrFilename = strFileResponse.Buffer = TrueResponse.ClearSet s = Server.CreateObject(ADODB.Stream)s.Opens.Type = 1on error resume nextSet fso = Server.CreateObject(Scripting.FileSystemObject
4、)if not fso.FileExists(strFilename) then Response.Write(错误： & strFilename & 该文件不存在于服务器里面！) Response.Endend ifSet f = fso.GetFile(strFilename)intFilelength = f.sizes.LoadFromFile(strFilename)if err then Response.Write(错误： & err.Description & 无数据流！) Response.Endend ifResponse.AddHeader Content-Disposi
5、tion, attachment; filename= & f.nameResponse.AddHeader Content-Length, intFilelengthResponse.CharSet = UTF-8Response.ContentType = application/octet-stream Response.BinaryWrite s.ReadResponse.Flushs.CloseSet s = Nothingresponse.endend ifSet fs=Server.CreateObject(Scripting.FileSystemObject)Set fdir=
6、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
7、 thenresponse.write 点击这里返回上一级目录 当前目录为：&thisdir&elseresponse.write 首 目 录 列 表 if right(thisdir,1)= or right(thisdir,1)=/ then thisdir=replace(thisdir,)end ifend ifdim iFor each thing in fdir.SubFoldersResponse.Write - & thing.Name & 注释： & thing.Name & 目录文件夹Nextresponse.write Set fs=Server.CreateObject
8、(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 strExt case .mp3Response.Write & thing.Name & response.write & cstr(thing.size) & & thi
9、ng.type & end select=读取.wma文件格式= strExt=lcase(right(thing.Name,4) select case strExt case .wmaResponse.Write & thing.Name & response.write & cstr(thing.size) & & thing.type & end select=读取.wmv文件格式= strExt=lcase(right(thing.Name,4) select case strExt case .wmvResponse.Write & thing.Name & response.write & cstr(thing.size) & & thing.type & end select=读取.rm文件格式= strExt=lcase(right(thing.Name,3) select case strExt