繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 让使用者可以看到你的ASP的原代码
- ASP
- Asp Object 之:End
- Asp Object 之:ServerVariables
- Asp Object 之:Expires
- Asp Object 之:ExpiresAbsolute
- Asp Object 之:Flush
- Asp Object 之:Form
- Asp Object 之:IsClientConnected
- Asp Object 之:PICS
- Asp Object 之:QueryString
- Asp Object 之:Redirect
- Asp Object 之:Request.Cookies
- Asp Object 之:Request
- Asp Object 之:Response.Cookies
- Asp Object 之:Response
- Asp Object 之:Status
- Asp Object 之:TotalBytes
- Asp Object 之:Write
- 用ASP.Net编写留言本
- 如何把ASP编写成DLL(1)
- 如何把ASP编写成DLL(2)
让使用者可以看到你的ASP的原代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 147 ::
收藏到网摘: n/a
<%@ 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
%>
评论 (0) All
