一段用ASP查看ASP文件源码的程序
来源:
互联网
日期:2006-8-18
<% 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查看ASP文件源码的程序请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源:
互联网
日期:2006-8-18
|
|
|