一段用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 MVC5+EF6+EasyUI 后台管理系统(32)-swfupload多文件上传[附源码]

系列目录 文件上传这东西说到底有时候很痛,原来的asp.net服务器控件提供了很简单的上传,但是有回传,还没有进度条提示。这次我们演示利用swfupload多文件上传,项目上文件上传是比不可少的,大...
  • ymnets
  • ymnets
  • 2017年11月29日 08:39
  • 16

asp.net 文件上传和下载管理源码

利用asp.net进行文件上传和下载时非常常用的功能,现做整理,将源码上传,提供给初学者参考,以下代码中的样式文件就不上传了,下载者请将样式去掉。效果图如下:...

asp.net 列表播放媒体文件源码

  • 2009年11月16日 20:45
  • 3KB
  • 下载

asp文件上传源码

  • 2012年06月08日 09:36
  • 1.66MB
  • 下载

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

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

Socket文件传输源码 asp.net版

  • 2017年09月26日 12:59
  • 38KB
  • 下载

ASP.NET上传文件的源码

  • 2012年08月31日 09:34
  • 2KB
  • 下载

ASP.NET中的Web.config应用程序配置文件简介

转贴:http://hi.baidu.com/raincloud_msn/blog/item/36f7201ff7269364f624e48d.html   Web.config文件是一个标准...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一段用ASP查看ASP文件源码的程序
举报原因:
原因补充:

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