一段查看ASP文件源码的ASP程序
来源：CSDN 时间：2007-09-21 12:53:00
一段查看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>
标签：源码,asp
0
投稿猜你喜欢
Access的特点及其概念问答
2009-09-10 19:00:00
电商网站的购买按钮
2011-07-04 12:18:59
ASP 根据用户权限判断显示的列标题
2011-03-29 11:01:00
浏览器是怎样工作的（一）：基础知识
2012-05-09 20:32:48
oracle移植到mysql注意事项
2008-12-25 13:09:00
asp如何制作一个防止多次刷新计数的图片计数器？
2010-06-29 21:28:00
instanceof 内部机制探析
2009-09-25 13:09:00
各种SQL语句速查手册
2007-09-27 19:31:00
如何将服务器端变量转换为客户端的变量？
2009-12-03 19:54:00
ASP基础教程之学习ASP中子程序的应用
2008-10-16 10:53:00
W3C网页内容无障碍指南2.0(WCAG)
2008-11-20 13:40:00
提高asp程序访问速度的方法
2008-10-23 16:37:00
ASP编写完整的一个IP所在地搜索类
2007-10-18 10:43:00
HTML5中 b 和 i 标签将语义化
2008-03-16 13:43:00
Javascript的数组总结
2009-02-03 13:07:00
MySQL 定时器EVENT学习
2010-10-14 13:55:00
CSS的另类拼图___减少HTTP请求
2009-05-28 19:05:00
xmlhttp 乱码 比较完整的解决方法 (UTF8,GB2312)
2008-05-02 21:02:00
mysql 安装使用小记
2011-02-23 12:33:00
SQL Server查询速度慢的原因及优化方法
2009-01-05 13:46:00