变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當前位置: 首頁IT技術 → ASP實現查看ASP文件源碼的函數代碼分享

ASP實現查看ASP文件源碼的函數代碼分享

更多

下面跟大家分享的是關于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>

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 欧美乱人伦中文在线观看不卡 | 黄色理论片| 成人av播放 | 97在线免费| 成人精品一区二区三区 | 日本xxxxx黄区免费看动漫 | 欧美91精品久久久久网免费 | 免费一级a毛片在线播 | 伊人www | 5060午夜一级毛片 | 日韩欧美中文 | 香港三级日本三人妇孕妇 | 日本一区深夜影院深a | 中国国产高清一级毛片 | 亚洲经典激情春色另类 | 欧美乱妇高清无乱码 | 国产在线观看成人 | 欧美整片第一页 | 一二三四视频社区在线1 | 亚州黄色网址 | 福利片免费观看 | 国产成人精品视频在放 | 夜晚福利网站 | 亚洲国产成人最新精品资源 | 日韩在线a视频免费播放 | 国内小情侣一二三区在线视频 | 玖玖香蕉视频 | 操美女免费 | 一区二区视频在线免费观看 | 精品午夜寂寞黄网站在线 | 中文字幕免费播放 | 91热久久免费频精品动漫99 | 国产1区2区三区不卡 | 免费国产午夜在线观看 | 午夜影院一区二区三区 | 日本三级2018亚洲视频 | 久久精品蜜芽亚洲国产a | 在线免费观看日韩 | 男女爽爽无遮挡午夜视频在线观看 | 任你躁在线精品免费视频网站 | 欧美18一19性高清hd4k |