一段查看ASP文件源码的ASP程序
来源：CSDN 发布时间：2007-09-21 12:53:00
标签：源码,asp
一段查看ASP文件源码的ASP程序，需要的朋友可以试试！
<％
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>
0
投稿猜你喜欢
- 1 丰富的二维动画/图形和视音频表现 Rich 2D animation/graphics with audio and video这点毋庸
- 前言我们都知道时区，标准时区是UTC时区，django默认使用的就是UTC时区，所以我们存储在数据库中的时间是UTC的时间，但是当我们做的网
- function utf8_substr($str,$len) { for($i=0;$i<$len;$i++) { $temp_st
- 本文深入分析了Python面向对象程序设计OOP。分享给大家供大家参考，具体如下：下面是一个关于OOP的实例，模块文件为person.py#
本文主要介绍Python3.6及TensorFlow的安装和配置流程。一、Python官网下载自己电脑和系统对应的Python安装包。&nb- 一、求解方法、算法和编程方案线性规划 （Linear Programming，LP） 是很多数模培训讲的第一个算法，算法很简单，思想很深刻。
- 我命油我不油天，今天依然是学习的一天。本文是【Python入门课程】系列的第四篇，其主要介绍Python的内置数据类型中的数字干货满满，建议
- 用javascript实现Base64编码—解决中文问题因javascript求出来的是Unicode要转换成Ansi后才能对它进行Base
- /* 全选择*/ function SB002SelectAll() { var table = document.getElementBy
- 一、协程设计-GMP模型线程是操作系统调度到CPU中执行的基本单位，多线程总是交替式地抢占CPU的时间片，线程在上下文的切换过程中需要经过操
- 前言使用np.savetxt()方法可以将数据保存为txt文件或者是csv文件。1 np.savetxt()存储txt文件1-1 基础参数n
- Python操作注册表步骤之1．打开注册表对注册表进行操作前，必须打开注册表。在Python中，可以使用以下两个函数：RegOpenKey和
- 读取Web.config中设置 Conn = new SqlConnect
- 1. 规范简介本规范主要规定ASP源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使项目开发人员的源代码书写习惯保持一致。这样
- 本文实例为大家分享了用简单的神经网络来训练和测试的具体代码，供大家参考，具体内容如下刚开始学习tf时，我们从简单的地方开始。卷积神经网络（C
- import socketimport re'''广东省 * 厅出入境政务服务网护照，通行证办理进度查询。分析网址格式
- Excel 中的每一个单元，都会有这些属性：颜色（colors）、number formatting、字体（fonts）、边界（border
- MySQL 创建数据库和创建数据表MySQL 是最常用的数据库，在数据库操作中，基本都是增删改查操作，简称CRUD。在这之前，需要先安装好
- 这里的Go(SDK)、GoLand的安装就不多说了，网上自行下载，我们着重讲项目配置，import pkg时能够完美运行一、Go版本以及Go
- join的写法如果用left join 左边的表一定是驱动表吗？两个表的join包含多个条件的等值匹配，都要写道on还是只把一个写到on，其
