access|快顯視窗|技巧|控制 跟我學會用背景程式控制快顯視窗---用file access組件修改檔案執行個體
我們經常需要在首頁上做一個快顯視窗（其實我很討厭這個東東），一般的辦法是在<body> 中加入這樣一句 onLoad="Window.open('new-window.htm','','width=300,height=250')" 其中new-window.htm為新開的視窗網頁檔案名稱，後頁是寬度和高度，但如果是一會要這個視窗，一會又不要，並且常改這個視窗的內容的話，那真是太太麻煩了（阿餘的頭就這樣，氣死我了，有一天竟改了N次，以至於阿餘發奮圖強，寫了這個小程式）。
基本思路：
1。要做這樣一個程式，關鍵在於準確的在首頁找到<body>標記，並在其中加上onLoad="Window.open('new-window.htm','','width=300,height=250')" ，使其成為<body onLoad="Window.open('new-window.htm','','width=300,height=250')" >， 怎麼才能找到<body>呢？通過觀察發現，整個首頁就一個<body>，用ins函數找出<body>在頁中的起始位置加上五就得到應插入的語句的位置。當然，還要能刪除掉onLoad="Window.open('new-window.htm','','width=300,height=250')" 這一句，也就是刪除掉從“<body ”到“')"”中間的語句，以撤消快顯視窗，我發現網頁中也只有一個“')"” ，至少從首往後找的第一個就是我們要的“')"”。
2。要建立一個檔案，名字叫new-window.htm，這比較簡單，看後面的代碼就知道了。
製作過程：
有了想法，下面我們開工了。
首先製作一個輸入參數的頁面，檔案名稱為，newwindow.asp 在這個頁面上有六個文字框，第一個名為name，用於輸入視窗名稱，第二個名為co1，用於填寫頁面底色，第三個名為co2用於填寫文字顏色，第四個名為bg，用於填寫底圖檔案名稱，第五個名為w，用於填寫快顯視窗的寬度，第五個名為h，用於填寫快顯視窗的寬度。還要一個滾動文字框，名為lr，用於填寫要在快顯視窗中發布的內容。再建立三個按鈕，第一個為建立快顯視窗，第二個為預覽，第三個為撤消快顯視窗，按鈕類型均為提交，名了分別為b1,b2,b3。表單提交後由newwindow1.asp檔案處理，這個檔案的代碼如下（你也可按前面的說明自己寫）：
<!--#include file="window.ini"-->
<html>
<head>
<title>卓越電腦網站快車www.zydn.net</title>
</head>
<body bgcolor="#E0F0F8">
<div align="center">
<p>製作快顯視窗，請輸入相關資訊<br>
<form method="POST" action="newwindow1.asp">
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="4" bordercolordark="#FFFFFF" bgcolor="#A4D1E8" style="font-size: 9pt">
<tr><td>視窗標題：</td><td colspan="2"><input type="text" name="name" size="62" style="border: 1 solid #6384C0" value="<%=name111%>"></td>
</tr><tr><td valign="top">視窗底色：</td> <td><input type="text" name="co1" size="9" style="border: 1 solid #6384C0" value="<%=co1%>"></td>
<td>視窗底圖：<input type="text" name="bg" size="21" style="border: 1 solid #6384C0" value="<%=bglr%>"></td> </tr>
<tr><td valign="top">文字顏色：</td> <td colspan="2"><input type="text" name="co2" size="9" style="border: 1 solid #6384C0" value="<%=co2%>"></td>
</tr><tr><td valign="top">視窗大小：</td><td>寬：<input type="text" name="w" size="9" style="border: 1 solid #6384C0" value="<%=w%>">象素</td>
<td>高：<input type="text" name="h" size="9" style="border: 1 solid #6384C0" value="<%=h%>">象素</td> </tr>
<tr><td valign="top">視窗內容：</td><td colspan="2"><textarea rows="9" name="lr" cols="61" style="border: 1 solid #6384C0"><%=lr%></textarea></td>
</tr><tr><td colspan="3" align="center"><input type="submit" value="查看效果" name="B2"><input type="submit" value="建立快顯視窗" name="B1"><input type="submit" value="撤消快顯視窗" name="B3"></td>
</tr></table><p>視窗內容中的<p>用於表示換行</p>
</form></div>
</body>
</html>
在最前面插入有一個檔案newwindow.ini，這個檔案是用於記錄上一數你輸入的參數，第一次使用時，只要在這個檔案中填幾個空格就可以了。
前面的網頁輸入的參數提交後由newwindow1.asp檔案來處理，我們一邊看這個檔案，一邊來給大家解釋各個文句的作用，
檔案名稱：newwindow.asp，全文如下：
<%patha=server.MapPath("newwindow1.asp")
patha=left(patha,len(patha)-14) '**以上這兩名用於取得檔案所在的路徑，以便於以後file access組件建立的file systemobject對象讀取檔案和建立 檔案。
name=request.form("name")
co1=request.form("co1")
co2=request.form("co2")
w=request.form("w")
h=request.form("h")
bg=request.form("bg")
lr=request.form("lr") '以上這幾句不用說了吧，用來讀表單提交的資料，
b1=request.form("b1")
b2=request.form("b2")
b3=request.form("b3") '這裡的b1 b2 b3 分別對應三個按鈕，如果使用者點擊b1按扭的話，b1就不為空白，我們可由它們的值判斷使用者到底按了哪一個按鈕。
if lr="" then response.redirect "ever.asp?lr=您沒有輸入視窗中要顯示的內容，<br><br>您準備在彈出的視窗中公布希麼呢？" '如果使用者沒有輸入內容的話，顯示
