asp 遍历目录问题.高手请解决
这是一个asp目录遍历脚本.我想把它做成像某些asp木马的 那种.只要点击文件名就可以下载.菜鸟无法完成请高手指点.先谢了.
<%Function bianli(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set objFolder=fso.GetFolder(path)
Set objFiles=objFolder.Files
For each objFile in objFiles
Response.Write (objFile.name)
Response.Write "<br>"
Response.Write "<a href="objFile.name">kjkj</a>"
Next
Set objFolder=nothing
Set fso=nothing
End Function%>
<%bianli(Server.MapPath(filepath))%>
参考答案:你参考海洋木马吧