|
假如你写了一个ASP的程序,希望让你的使用者看到ASP的原始代码,你可以利用FileSystemObject这个对象送出程序原始代码.<%@ Language=VBScript%> <%Option Explicit%> <% Dim strURL strURL = Request.QueryString("URL") Dim strDir, strFileName strDir = Request.ServerVariables("APPL_PHYSICAL_PATH") Response.Write strDir strFileName = Replace(strURL,"/","") strFileName = strDir & strFileName Const ForReading = 1 Dim objFSO, objTextStream Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTextStream = objFSO.OpenTextFile(strFileName, ForReading) Response.Write "<HTML><BODY>" Response.Write "<XMP>" & objTextStream.ReadAll & "</XMP>" Response.Write "</BODY></HTML>" objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing %> |