91久久久久久久久_欧美日韩中文_在线观看中文字幕亚洲_夜夜骑首页_精品久久伊人_天天色天天射天天操

當前位置: 首頁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 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 日韩中文字幕在线视频 | 亚洲午夜18毛片在线看 | 成年人免费在线观看 | 999久久久久久久久6666 | 久久成人av| 久久久久国产精品视频 | 亚洲在线免费观看 | 免费看黄色aaaaaa 片 | 国产三级在线看 | 久久综合伊人 | 国产理论视频 | 婷婷综合网 | 97av在线视频| 天天操一操 | 久久久久久精 | 九九热在线播放 | 国产区一区二区 | 在线a视频| 久久精品国产一区二区 | 黄色a一级 | 999久久久精品 | 成人欧美视频 | 久久精品视频国产 | 51免费看成人啪啪片 | 久久久久久久久国产 | 亚洲精品国产精品国自产观看 | 亚洲免费在线视频 | 欧美国产日韩一区二区 | 国产午夜一区二区三区 | 色婷婷av一区二区三区之e本道 | 欧美精品在线观看 | 日日爱影视 | 一区二区三区四区在线播放 | 国产福利在线播放 | 成人h片在线观看 | 中文字幕国产在线 | 欧美精品二区三区四区免费看视频 | 日韩网站在线观看 | 丁香九月婷婷 | www.97超碰 | 欧美精品一区在线观看 |