1. 爱易网页
  2. ASP教程
  3. ASP程序实现查看ASP文件源码实例代码

ASP程序实现查看ASP文件源码实例代码

日期：2010-09-05　 浏览次数：21058 次

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

相关资料更多>

  1. 初看ASP-针对初学者
  2. 在ASP中,怎么得到ACC数据库里某一列(多行)的全部数据并且存如变量
  3. 请教asp中单引号的有关问题
  4. 求个取值的方法!该怎么解决
  5. xmlHttp数据储存
  6. 为什么小弟我保存一次,表里出现两条一模一样的记录!(!)
  7. asp+ 如何跨站抓取页面
  8. 論壇收藏夾是怎麼做的？怎麼保存收藏的文章？该如何处理
  9. ，高分，可以上传文件和支持数据录入的ASP代码。