[建筑]声音文件 MP3RMRAMWMVASFWMA 无限目录读取下载系统.doc
《[建筑]声音文件 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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 建筑 建筑声音文件 MP3RMRAMWMVASFWMA 无限目录读取下载系统 声音文件 无限 目录 读取 下载 系统
链接地址:https://www.31doc.com/p-1980537.html