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

http://www.xydyz.com 来源:CSDN 2007-11-12 阅读: 评论

<%
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>

上一篇：微软System Center&Forefront解决方案完全解读
下一篇：彻底解决“Microsoft JET Database Engine 错误 80004005”

·网友互动--用户名：（新注册）密码：匿名评论 [所有评论]

评论内容：(用户发表意见仅代表其个人意见,评论内容与校园第一站立场无关,请自觉遵守互联网相关政策法规)

关注此文读者还看过

·彻底解决“Microsoft JET Database Engine
·ASP中Request对象获取客户端数据的顺序
·为自己的ASP网站系统构建一套标记语言
·用文本+ASP打造新闻发布系统
·Web在线代理(Asp版)
·ASP脚本语言的19个基本技巧使用