繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 让使用者可以看到你的ASP的原代码
- ASP
- 表单递交合法性检测-Email
- 表单递交合法性检测-日期
- 表单递交合法性检测-只接受数字
- 表单递交合法性检测-只允许填写字母
- 表单递交合法性检测-不允许指定字符
- 用ADO STREAM做的无组件上传程序
- 通过地址栏传递参数.通过url传递参数
- 利用global.asa计划执行程序
- ASP.NET连SQL7接口源代码
- 悠哉悠哉，一个复合查询方法
- 如何取得所有的Session变量
- ASP中页面限权访问的几种方法
- 去除空格的函数
- 如何在网页中存取剪贴板中的内容
- 判断gif图像尺寸的方法
- 带日期标注的日历控件
- 在config.web中保存数据库连接串
- 动态创建下拉菜单
- 加密页面代码生成器
- javascript动态装入XML数据
让使用者可以看到你的ASP的原代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 43 ::
收藏到网摘: 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
