| 假如你写了一个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 %> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |