| 本月文章推荐 |
让使用者可以看到你的ASP的原代码发表日期：2000-11-5
|
|
假如你写了一个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 %> |
| 上一篇：如何用ASP将一大段文字中的HTML的标识去掉
人气:13017 下一篇：用ASP实现在特定的时段或对特定访问者开放 人气:9620 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
