返回列表 回复 发帖
cnangel

管理员

Rank: 9Rank: 9Rank: 9

UID
1 
威望
1237 点 
金钱
10002 金币 
点卡
315 点 
1#
打印
tT
发表于 2004-5-14 12:43 | 只看该作者

MP3.RM.RAM.WMV.ASF.WMA 无限目录读取下载系统

作者:今生网缘

刚才的文件可以下载其他类型的文件！！！，现在这个文件安全系数特高！嘻嘻嘻

只要把文件放到你想公开的首目录里面就可以无限从该目录向下读取所有目录并下载了！！

这个补丁可以快速安装。。运行。。。安全系数一样高！

演示地址：http://www.7765.com/mp3/

以下代码可以随便改任意*.asp名字！

=========================================
  1. <%@ LANGUAGE = VBScript %>
  2. <%Server.ScriptTimeout=5000%>
  3. <HTML>
  4. <HEAD>
  5. <TITLE>声音文件 MP3.RM.RAM.WMV.ASF.WMA 无限目录读取下载系统!</TITLE>
  6. <style type="text/css">
  7. body,table {font-size: 12px; font-family: Tahoma, Verdana }
  8. </style></HEAD>
  9. <BODY topmargin=0>
  10. <%
  11. okdir=Server.MapPath(".")
  13. '==============默 认 当 前 文 件 所 属 目 录 路 径 开 始 向 下 无 限 级 别 读 取===========
  15. '_______________________{Power by kevanTM All Rights Reserved.}_________________________
  17. bys=len(okdir)
  19. thisdir=Request("Path")
  21. if thisdir="" or len(thisdir)<bys then
  23. thisdir=okdir
  25. end if
  26. k=5
  27. e=0
  28. v=0
  29. a=2
  30. n=1
  31. t=3
  32. e=8
  33. l=8
  34. Response.Write"<!--"& vbCrLf
  35. Response.Write"Generator: 风之轩 [url]http://www.7765.com[/url]"& vbCrLf
  36. Response.Write"This Page Start Data: "&now&""& vbCrLf
  37. Response.Write"Original Author: kevanTM"& vbCrLf
  38. Response.Write"Contact Email: [email]VAVA@TOM.COM[/email]"& vbCrLf
  39. Response.Write"Contact OICQ: "&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&""& vbCrLf
  40. Response.Write"风之轩([url]WWW.7765.COM)[/url]版权所有,KevanTM出品！"& vbCrLf
  41. Response.Write"-->"& vbCrLf
  42. if Request.QueryString("mp3")<>"" then
  43. FileName = Request.QueryString("mp3")
  44. strFile=FileName
  45. if len(FileName)<bys Then
  46.   Response.Write("<h1>错误：</h1>系统禁止运行！请您不要乱提交参数路径！<p>")
  47.     Response.End
  48. End if
  49. FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
  50. Select Case UCase(FileExt)
  51. Case "ASP", "ASA", "ASPX", "ASAX", "MDB", "HTM", "CGI", "PHP", "HTML", "SHTML"
  52. Response.Write("<h1>错误：</h1>" & FileName & "　KevanTM系统强行禁止您不许下载这个文件！<p>")
  53. Response.End
  54. End Select
  55. strFilename = strFile
  56. Response.Buffer = True
  57. Response.Clear
  58. Set s = Server.CreateObject("ADODB.Stream")
  59. s.Open
  60. s.Type = 1
  61. on error resume next
  62. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  63. if not fso.FileExists(strFilename) then
  64.   Response.Write("<h1>错误：</h1>" & strFilename & "　该文件不存在于服务器里面！<p>")
  65.   Response.End
  66. end if
  67. Set f = fso.GetFile(strFilename)
  68. intFilelength = f.size
  69. s.LoadFromFile(strFilename)
  70. if err then
  71.   Response.Write("<h1>错误：</h1>" & err.Description & "　无数据流！<p>")
  72.   Response.End
  73. end if
  74. Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
  75. Response.AddHeader "Content-Length", intFilelength
  76. Response.CharSet = "UTF-8"
  77. Response.ContentType = "application/octet-stream"
  78.   Response.BinaryWrite s.Read
  79. Response.Flush
  80. s.Close
  81. Set s = Nothing
  82. response.end
  83. end if
  85. Set fs=Server.CreateObject("Scripting.FileSystemObject")
  86. Set fdir=fs.GetFolder(thisdir)
  87. response.write "<table width='100%' cellpadding='2' cellspacing='2'>"
  88. function getUpfoldersString(temp)
  90. temps=StrReverse(temp)
  91. temps=replace(temps,"/","\")
  92. if right(temp,1)="\" or right(temp,1)="/" then
  93. temps=replace(temp,"\","")
  94. end if
  95. temps=StrReverse(mid(temps,inStr(temps,"\")+1))
  96. getUpfoldersString=temps
  98. End function
  100. if Request("Path")<>"" or len(Request("Path"))>bys then
  101. response.write "<tr><td colspan='5'><a href="&Request.Servervariables("SCRIPT_NAME")&"?Path="&server.urlencode(getUpfoldersString(thisdir))&">[ <font color=#ff6600><b>点击这里返回上一级目录</b></font> ]</a>　　当前目录为："&thisdir&"</td></tr>"
  102. else
  103. response.write "<tr><td colspan='5'><a href="&Request.Servervariables("SCRIPT_NAME")&">[ <font color=#ff6600><b>首 目 录 列 表</b></font> ]</a></td></tr>"
  104. if right(thisdir,1)="\" or right(thisdir,1)="/" then
  105.    thisdir=replace(thisdir,"\","")
  106. end if
  107. end if
  108. dim i
  109. For each thing in fdir.SubFolders
  110. Response.Write "<tr><td><font color=#efefee>-------------------></font>  [ <font color=red><b><a href='"&Request.Servervariables("SCRIPT_NAME")&"?Path=" & server.urlencode(thisdir) & "\" & server.urlencode(thing.Name) & "'>" & thing.Name & "</a></b></font> ]</td><td>注释：" & thing.Name & "目录文件夹</td></tr>"
  111. Next
  112. response.write "</table>"
  113. Set fs=Server.CreateObject("Scripting.FileSystemObject")
  114. Set fdir=fs.GetFolder(thisdir)
  115. response.write "<table width='100%' cellpadding='2' cellspacing='2'>"
  116. response.write "<tr><td bgcolor='#cccccc'>声音文件名称</td><td bgcolor='#cccccc'>体积大小</td><td bgcolor='#cccccc'>音频类型</td></tr>"
  117. dim strExt
  118. For each thing in fdir.Files
  119. response.write "<tr>"
  120. '==================================读取.mp3文件格式===========================
  121.         strExt=lcase(right(thing.Name,4))
  122.         select case strExt
  123.         case ".mp3"
  124. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  125. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type &"<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  126.         end select
  127. '==================================读取.wma文件格式===========================
  128.         strExt=lcase(right(thing.Name,4))
  129.         select case strExt
  130.         case ".wma"
  131. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  132. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type &"<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  133.         end select
  134. '==================================读取.wmv文件格式===========================
  135.         strExt=lcase(right(thing.Name,4))
  136.         select case strExt
  137.         case ".wmv"
  138. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  139. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type & "<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  140.         end select
  141. '==================================读取.rm文件格式===========================
  142.         strExt=lcase(right(thing.Name,3))
  143.         select case strExt
  144.         case ".rm"
  145. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  146. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type & "<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  147.         end select
  148. '==================================读取.asf文件格式===========================
  149.         strExt=lcase(right(thing.Name,4))
  150.         select case strExt
  151.         case ".asf"
  152. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  153. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type & "<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  154.         end select
  155. '==================================读取.ram文件格式===========================
  156. strExt=lcase(right(thing.Name,4))
  157.         select case strExt
  158.         case ".ram"
  159. Response.Write "<td><a href='"&Request.Servervariables("SCRIPT_NAME")&"?mp3="&thisdir&"/"&thing.name&"' target='_blank'>" & thing.Name &  "</a></td>"
  160. response.write "<td>" & cstr(thing.size) & "</td><td>" & thing.type & "<!QQ:"&k&""&e&""&v&""&a&""&n&""&t&""&e&""&l&"></td>"
  161.         end select
  162. '==================================读取结束===================================
  163. response.write "<tr>"
  164. Next
  165. response.write "</table>"
  166. response.write "<center><hr>已经完成读取该< "&thisdir&" >目录里所有的声音文件，读取结束完毕！<hr><DIV align=RIGHT><a href='http://www.7765.com' title='www.7765.com  KevanTM制作  QQ：50021388' style='color: #004080' target='_blank'>Powered by <b>Kevan?</b> <b style='color:#FF9900'>Ver1.0</b> &copy; 2004 All Rights Reserved.</a></DIV></center>"
  167. set fs=nothing
  168. %>
  169. </BODY>
  170. </HTML>
复制代码
收藏 分享 评分

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独，孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独，爱上孤独
                                 他让我看清了自我，还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
回复 引用

订阅 TOP

返回列表