一段查看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
投稿猜你喜欢
先前在DW教学－Dreamweaver量身打造Wordpress留言板（一） 教学文章中，已经成功的把前端留言机制与界面搞定了，虽然有了留言- 科讯5.0 标签和之前版本变化不大，如果用老版本的科讯，可以参考这个标签使用。相关文章：新云4.0 模板通用标签说明 标签清单：======
- 基本上快被这个问题搞疯了，症状如下症状描述：在ie下（6或7，8没有试过）当出现中英文混排，都采用默认字体时，并使用 li 列表做float
- 使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的'自增字段'需要修改,将相应字段标识修改为
- 最近碰到一个mysql5数据库的问题。就是一个标准的servlet/tomcat网络应用，后台使用mysql数据库。问题是待机一晚上后，第二
- 首先，把这个“功能”包含到页首：<!--#include virtual="/readini/inifile.in
- 阅读上一篇：成为一个顶级设计师的第一准则限制你的色彩成为一个顶级设计师的7个简单原则的第二部分限制使用你的色彩。好象上个准则是让你限制用你的
- ASP编写完整的一个IP所在地搜索类的修正文稿修正了查询方法，查询的方法和追捕的一致；只是追捕会自动更正IP。还有个函数的书写错误，也已经修
- 前端开发中两个很不错的小技巧, CSS三角形与圆角背景. 的确, 它们都可以通过图片来实现, 但, 抛开用代码实现可以减小图片加载量不说,
- 第一种方法： 代码如下:/* 创建链接服务器 */ exec sp_addlinkedserver 'srv_lnk&#
- Eric A. Meyer 对基于 Web 标准的 CSS 与 HTML 绝非一知半解，他是这个领域杰出的专家，曾写过不少 CSS 方面的书
- 说明：本文内容都是从Google上搜索来的，本想上http://www.alexa.com/查官方数据，访问非常慢暂且没查。使用本接口将返回
- 今天彬Go将和大家一起讨论网页设计趋势中很重要的环节，那就是”勾引”用户的按钮。所谓”勾引”用户的按钮，其实对于Web设计师来说，就是如何设
- 有过Web经验的人喜欢使用：<meta http-equiv="refresh" content="1;
- 代码如下:<％ function GetBot() '查询蜘蛛 dim s_
- 我在传递数据的时候老是出错，请问如何处理？不管是什么数据库，一般来说，是它所包含引号的字符串带来的问题。假设我们使用名为“strDate”的
- 在我们的网站建设中，为网站打造一个契合网站主题的个性化标志则是必需的，这直接关系到能否成功地塑造网站的品牌。这从某些角度看仍在网站推广的范畴
- 网站能切换几套CSS风格早已不是什么新鲜事了。大家也都知道怎么去弄。早上发现一个有意思得站点 http://www.leemunroe.co
- 小小程序猿SQL Server认知的成长 1.没毕业或工作没多久，只知道有数据库、SQL这么个东东，浑然分不清SQL和Sql Server
- 利用 CSS 框架，可以简化你的工作，提高工作效率。CSS 框架是一系列 CSS 文件的集合体，包含了基本的元素重置，页面排版、网格布局、表
