suplchbaidu的个人资料 - RAT

suplchbaidu suplchbaidu

关注数: 1 粉丝数: 1 发帖数: 14 关注贴吧数: 0

ASP简易文件管理系统2.0 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 无标题文档<% set fso=server.CreateObject("scripting.filesystemobject")if request.QueryString("type")="del" thenfso.deletefolder(request.QueryString("subf"))response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end ifif request.QueryString("type")="cop" thensession("jtb")=request.QueryString("subf")session("cz")="c"response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end ifif request.QueryString("type")="jt" thensession("jtb")=request.QueryString("subf")session("cz")="z"response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end if if request.QueryString("type")="zt" then if session("cz")="c" then fso.copyfolder session("jtb"),request.QueryString("subf")&"\" else fso.copyfolder session("jtb"),request.QueryString("subf")&"\" fso.deletefolder(session("jtb")) end if end if if request.QueryString("fdname")<>"" then if right(request.QueryString("subf"),1)<>"\" then fso.createfolder(request.QueryString("subf")&"\"&request.QueryString("fdname")) else fso.createfolder(request.QueryString("subf")&request.QueryString("fdname")) end if end if '''''' if request.querystring("filetype")="del" then fso.DeleteFile request.querystring("filename") end if if request.querystring("filetype")="cop" then session("filejt")=request.querystring("filename")session("cp")=true end if if request.querystring("filetype")="par" then session("filejt")=request.querystring("filename")session("cp")=false end if if request.querystring("cp")="ok" then if right(request.querystring("subf"),1)<>"\" then subf=request.querystring("subf")&"\"else subf=request.querystring("subf")end if if session("cp")=true then fso.CopyFile session("filejt"),subfelse fso.MoveFile session("filejt"),subfend ifsession("filejt")=""session("cp")="" end if %> <% set dc=fso.Drivesfor each dri in dc response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26dri.path%26%22&urlrefer=33c66dca6887cccc270e09fddae74b0f ")next %> <% 'sub listfd(folderobject,str)'response.Write(str&"--"&folderobject.name&" ")'for each fd in folderobject.subfolders'listfd fd,str&" |"'next'end subif request.QueryString("subf")<>"" then set fol=fso.getfolder(request.QueryString("subf"))response.Write("当前位置:"&fol.path&" ") if session("jtb")<>"" and session("jtb")<>fso.getparentfoldername(request.QueryString("subf")) and session("jtb")<>request.QueryString("subf") then response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26request.QueryString%28%22subf%22%29%26%22%26type%3Dzt&urlrefer=ab8ea1bd8245a616f067f4d83bd43ed7") elseif session("jtb")<>fso.getparentfoldername(request.querystring("subf")) and session("jtb")<>empty then response.Write("无法复制"&session("jtb")&"文件夹到当前文件夹")

jscript小游戏(推箱子)

简易ASP文件管理系统将如下代码保存为listfile.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 无标题文档<% set fso=server.CreateObject("scripting.filesystemobject")if request.QueryString("type")="del" thenfso.deletefolder(request.QueryString("subf"))response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end ifif request.QueryString("type")="cop" thensession("jtb")=request.QueryString("subf")session("cz")="c"response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end ifif request.QueryString("type")="jt" thensession("jtb")=request.QueryString("subf")session("cz")="z"response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))end if if request.QueryString("type")="zt" then if session("cz")="c" then fso.copyfolder session("jtb"),request.QueryString("subf")&"\" else fso.copyfolder session("jtb"),request.QueryString("subf")&"\" fso.deletefolder(session("jtb")) end if end if if request.QueryString("fdname")<>"" then if right(request.QueryString("subf"),1)<>"\" then fso.createfolder(request.QueryString("subf")&"\"&request.QueryString("fdname")) else fso.createfolder(request.QueryString("subf")&request.QueryString("fdname")) end if end if %> <% set dc=fso.Drivesfor each dri in dc response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26dri.path%26%22&urlrefer=33c66dca6887cccc270e09fddae74b0f ")next %> <% 'sub listfd(folderobject,str)'response.Write(str&"--"&folderobject.name&" ")'for each fd in folderobject.subfolders'listfd fd,str&" |"'next'end subif request.QueryString("subf")<>"" then set fol=fso.getfolder(request.QueryString("subf"))response.Write("当前位置:"&fol.path&" ") if session("jtb")<>"" and session("jtb")<>fso.getparentfoldername(request.QueryString("subf")) and session("jtb")<>request.QueryString("subf") then response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26request.QueryString%28%22subf%22%29%26%22%26type%3Dzt&urlrefer=ab8ea1bd8245a616f067f4d83bd43ed7") else response.Write("无法复制"&session("jtb")&"文件夹到当前文件夹") end if%> http://tieba.baidu.com/mo/q/checkurl?url=%3C%25%3D&urlrefer=4af26bb445828fc486fad9d04a3ebc91 http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%3C%25%3D+fol.path+%25%3E%26type%3Dnew&urlrefer=f1a5f5be194d57406f1c2cdf86bcbab2 <% if request.QueryString("type")="new" then %> 请输入文件夹名称： "> <% end if %> <%if fol.subfolders.count>0 then response.write(" 文件夹列表")else response.write(" 无文件夹")end iffor each follist in fol.subfoldersresponse.Write("|--http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26follist.path%26%22&urlrefer=22577032bccd78f2a87ecbc48a887c24 ")next%> 文件夹操作列表 <% for each follist in fol.subfolders response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26follist.path%26%22%26type%3Ddel&urlrefer=9f95d9b08da00acb1ec72340db65b008 ") response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26follist.path%26%22%26type%3Dcop&urlrefer=34979fb6157c8f3c73f53ac2992b70b2 ") response.Write("http://tieba.baidu.com/mo/q/checkurl?url=listfile.asp%3Fsubf%3D%22%26follist.path%26%22%26type%3Djt&urlrefer=473ace121b9651a89822bfe01606b5d4 ") next %> <%if fol.files.count>0 then response.Write(" 文件列表:") else response.write(" 无文件:") end iffor each fn in fol.filesresponse.write(fn.name&" ")next%> <%'listfd fol,""set fol=nothingset fso=nothingend if %>

1 下一页