一段用ASP查看ASP文件源码的程序

转载 2006年06月13日 20:18:00

<%
SUB PrintLine (ByVal strLine)
strLine=server.HTMLEncode(strLine)
strLine=replace(strLine,"&lt;%","<FONT COLOR=#ff0000>&lt;%")
strLine=replace(strLine,"%&gt;","%&gt;</FONT>")
strLine=replace(strLine,"&lt;SCRIPT","<FONT COLOR=#0000ff>&lt;SCRIPT",1,-1,1)
strLine=replace(strLine,"&lt;/SCRIPT&gt;","&lt;/SCRIPT&gt;</FONT>",1,-1,1)
strLine=replace(strLine,"&lt;!--","<FONT COLOR=#008000>&lt;!--",1,-1,1)
strLine=replace(strLine,"--&gt;","--&gt;</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.net文件上传程序源码

  • 2011-08-01 17:42
  • 277KB
  • 下载

在ASP.NET程序中存储和调用word文件

转自:本文通过一个实例概要讲解如何在ASP.NET程序中配合SQL Server2000进行word文件的存储和调用过程(没有使用VBA )。(1) 建立数据库首先,我们在数据库中建立一个表,表中有三...

文件上传 下载 一般处理程序和webForm联系以及asp.net内置对象

1.HttpHandler实现图片上传 (1).表单元素使用 文件选择框 控件。 (2).表单设置enctype="multipart/form-data",本质上就是设置浏览器提交表单的数据时,...

Asp.net生成html文件源码

  • 2007-12-19 14:03
  • 69KB
  • 下载

了解 ASP.NET AJAX 验证和配置文件应用程序服务(三)

简介作为 .NET Framework 3.5的一部分,Microsoft 正在发布大规模环境升级。这不但将提供一个新的开发环境,还将提供新的语言集成查询(LINQ,Language-Integrat...

asp文件上传源码

  • 2012-06-08 09:36
  • 1.66MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)