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

作者：佚名出处：网络转载时间：04-13 点击：

内容载入中...

<%
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>",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显示在线人数

>> 下一篇：用asp编写文档搜索页面

站长学院

[ASP]
[PHP]
[JSP]
[CGI/perl]
[ASP.NET]
[C#]
[XML]
[编程综合]

推荐信息

本类热点

·ASP判断一个字符串包含在一个长字
·学习ASP前需要准备些什么呢
·用ASP批量更新SQL SERVER数据
·ASP漏洞分析和解决方法(10)
·WScript对象的VBS,VBScript
·ASP漏洞分析和解决方法(3)
·ASP漏洞分析和解决方法(1)
·ASP漏洞分析和解决方法(4)
·ASP漏洞分析和解决方法(2)
·ASP漏洞分析和解决方法(7)

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

作者：佚名 出处：网络转载 时间：04-13 点击：

站长学院

作者：佚名出处：网络转载时间：04-13 点击：