View Page Source

View Source Go Back to /jang/books/asp/example/codeDisplay/aspDisplay.asp

<%@language=JScript%>
<% title="分色顯示 ASP 網頁內容" %>

<hr>

<%
function fileRead(fileName){
      var fso = new ActiveXObject("Scripting.FileSystemObject");
      var fid = fso.OpenTextFile(realPath, 1); // 開啟唯讀檔案
      var fileContents = fid.ReadAll(); // 讀取整個檔案的資料
      fid.Close();
      return(fileContents);
}

url=Request("url")+"";
if (url=="undefined"){
      Response.write("You need to specify the target URL!!!");
      Response.End();
}
realPath=Server.MapPath(url); // 檔案的實體路徑
contents = fileRead(realPath); // 讀取檔案內容
// Step1, 讓瀏覽器進行適當排版：
contents=contents.replace(/</g, "<"); // 將「<」代換成「<」，以避免瀏覽器進行排版
contents=contents.replace(/>/g, ">"); // 將「>」代換成「>」，以避免瀏覽器進行排版
contents=contents.replace(/\n/g, "<br>"); // 將換列代換成<br>
contents=contents.replace(/\t/g, "        "); // 將定位鍵代換成八個空格
// Step 2, 將 Server-side JScript 顯示成紅色：
contents=contents.replace(/<%/g, "<font color=red><%"); // 將「<%」代換成「<font color=red><%」
contents=contents.replace(/%>/g, "%></font>"); // 將「%>」代換成「%></font>」
// Step 3, 將 Client-side JavaScript 顯示成藍色：
contents=contents.replace(/<script>/gi, "<font color=blue><script>");
contents=contents.replace(/<script language=javascript>/gi, "<font color=blue><script language=javascript>");
contents=contents.replace(/<\/script>/gi, "<\/script><\/font>");
Response.write(contents);
%>

<hr>