一段用ASP查看ASP文件源码的程序
来源:互联网 发布:淘宝卖家怎么成为天猫 编辑:程序博客网 时间:2024/05/22 12:35
<%
SUB PrintLine (ByVal strLine)
strLine=server.HTMLEncode(strLine)
strLine=replace(strLine,"<%","<FONT COLOR=#ff0000><%")
strLine=replace(strLine,"%>","%></FONT>")
strLine=replace(strLine,"<SCRIPT","<FONT COLOR=#0000ff><SCRIPT",1,-1,1)
strLine=replace(strLine,"</SCRIPT>","</SCRIPT></FONT>",1,-1,1)
strLine=replace(strLine,"<!--","<FONT COLOR=#008000><!--",1,-1,1)
strLine=replace(strLine,"-->","--></FONT>",1,-1,1)
Response.Write strLine
END SUB
Function ShowCode(filename)
Dim strFilename
Dim FileObject, oInStream, strOutput
strFilename = filename
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 )
While NOT oInStream.AtEndOfStream
strOutput = oInStream.ReadLine
Call PrintLine(strOutput)
Response.Write("<BR>")
Wend
end function
%>
<HTML>
<HEAD>
<TITLE>ASP源码浏览器</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<form action=viewcode.asp method=post>
请输入ASP文件名
<input type=file name=filename>
<input type=submit value="查看源程序">
</form>
<%
on error resume next
dim file
file=request.form("filename")
response.write file & "源程序如下<hr>"
if trim(file)<> "" then
call showcode(file)
end if
%>
</FONT>
</BODY>
</HTML>
来源: http://www.dwww.cn/new/2006527192262030.html
- 一段用ASP查看ASP文件源码的程序.
- 一段用ASP查看ASP文件源码的程序
- 将数字转换成汉字的一段asp程序
- ASP中投票累加的一段小程序
- 一个查看ASP的JavaScript程序
- 一个硬盘文件搜索的Asp源码
- Asp.NET(asp)写文件的一个小实例程序。
- 一段下载文件的程序
- 一段下载文件的程序
- ASP.NET文件上传程序的源代码
- ASP.NET文件上传程序的源代码
- ASP.NET文件上传程序的源代码
- ASP实例:读取xml文件的程序
- 一段ASP防采集的代码
- asp连接access数据库的一段代码
- 保存一段ASP动态包含的代码
- 一段可能危险的asp.net代码
- 一段让asp程序在搜素引擎打不开的代码
- 我们的世界
- 马坦故事连载之六--白砒与红砒
- 返回UPDATE SQL语句所影响的行数的方法
- 使用集合清除站内Cookies的一段小代码
- 失去工作
- 一段用ASP查看ASP文件源码的程序
- 使用IIS的Url重定向功能防止数据库被下载
- 链表的源码
- 靓照
- delphi 精要-读书笔记(过程类型,方法类型)
- jdbc终极解惑~兼初学者在登录sql容易忽略的问题
- 如何配置ASP运行环境
- #pragma预处理指令详解
- 学习ASP知识之Request.ServerVariables应用