一段用ASP查看ASP文件源码的程序.
2004-10-13 18:35
363 查看
<%
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>
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>
相关文章推荐
- 一段用ASP查看ASP文件源码的程序
- linux环境下编译源码和运行程序时,include文件和lib库文件的注意事项
- 计算一段程序进行的时间、 控制台下用Win32 API打开文件对话框
- 编译源码查看日志,分析程序
- 一段备份文件的python程序(2)
- ASP.NET文件上传程序的源代码
- 在ASP.NET项目中的web.config文件里配置数据库连接并在程序代码中获取连接字符串
- 解决Android使用Eclipse查看源代码的Source not found,附带Android源码文件
- 收了100元辛苦费,写了一个最简单的C#ASP.NET的3层架构例子代码,源码是通过代码生成器生成的【写程序的效率神奇的高】
- C# ASP.NET 通用权限管理系统组件源码中WCF例子程序服务器端运行详细配置参考
- ASP.NET与JQUERY的AJAX文件上传 视频课件+源码Demo
- 对Android APK文件反编译查看其源码
- PHP实现文件上传的程序源码
- asp查看文件大小类型创建时间
- Hadoop(八)Java程序访问HDFS集群中数据块与查看文件系统【转载】
- Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件(附源码)
- SEO_ASP.net SEO优化(包含URL地址重写\viewState移动和压缩至服务器\SEO信息XML生成_根据URL地址重写文件)\web网站内容压缩 源码公开.本人授权可使用于商业项目。
- 解决VS2010在程序根目录生成ipch文件夹和.sdf格式文件问题以及右键查看变量申明和定义按钮变灰
- [c#源码分享]客户端程序通过TCP通信传送"小文件"到服务器
- C# ASP.NET 通用权限管理系统组件源码中WCF例子程序客户端运行详细配置参考