分色顯示 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>

View source： [Server-side script] [Client-side script (ctrl+u)]
回到「JScript 程式設計與應用：伺服器端」