Skip to content

Instantly share code, notes, and snippets.

@Daniel15

Daniel15/gist:1709107

Created January 31, 2012 05:58
Show Gist options
  • Save Daniel15/1709107 to your computer and use it in GitHub Desktop.
Save Daniel15/1709107 to your computer and use it in GitHub Desktop.
Download ZIP
Get content of currently executing page (ASP / VBScript)
Raw
gistfile1.asp
Dim sPath
Dim oFS
Dim oTextStream
Dim sFile
sPath = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFS.OpenTextFile(sPath, 1)
sFile = oTextStream.ReadAll()
Set oFS = Nothing
Set oTextStream = Nothing
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment