創建彈出式“每日提示”窗口

2019-11-18 21:47:42

字體：大中小

來源：轉載

供稿：網友

* 本例程將會用到application對象、數據庫、javaScript、以及文件操作。

首先，我們列一下本例程將涉及的內容：

1) 我們將創建一個用于顯示“每日提示”的彈出式窗口；
2) 提示將在每天呈現不同的內容；
3) 提示內容保存于數據庫中，接受由網上傳來的索取指令；
4) 提示內容更新便利，也可以隨時添加新的內容；
5) 提供一種手段以列出所有提示。

下面，我們將涉及細節問題。我們只討論其中的某些內容，其它的信息將由實際產生的文檔提供（什么意思？蜘蛛精也不太明白，待我們往后瞧瞧再說）。

我需要知道當前顯示的是哪一條提示。為了傳送當前提示的編號，我們要用到Application。同時，為了在更新提示時知道這些，我們要將已顯示的提示編號存檔，保存在磁盤中。這樣做是為了防止服務器重啟動、斷電、（反革命份子蓄意破壞、非法組織黑紅色網站等）事故中相關數據丟失。我們就用TIPSTORE.DAT作數據存檔文件。它包含兩行，一行是提示的編號，一行是數據。

因為這些值一直存放在Application中，當運行“每日提示”時，我們就可將它們從TIPSTORE.DAT中取出。作這項工作最佳的方式是利用GLOBAL.ASA，在Application_OnStart中。GLOBAL.ASA文件可以取出這些值。（知道下面這句話怎么譯的人請舉手?。㏕his is done, courtesy of the FileSystemObject and its support through the TextStreamObject methods:（好，手放下！既然你們都知道了，那我也就不解釋了）

PhyPth = Server.MapPath("/tipstore.dat")
set FilSys = CreateObject("Scripting.FileSystemObject")
set TipFil = FilSys.OpenTextFile(PhyPth, 1)
Application("CurTip") = TipFil.ReadLine
Application("SymDt") = CDate(TipFil.ReadLine)
TipFil.Close
set TipFil = nothing
set FilSys = nothing

我們選擇Server.MapPath指明文件的物理位址。這可使這段用于處理DAT文件的代碼無須經過修改即可用于多個站點。FilSys創建為FileSystemObject，TipFil創建為TextStreamObject。我們接下來就可從這個文件里讀數據，完成后再關閉它。

接下來，我們來看看這個更新提示的頁面。這也是我們向用戶提供提示選擇權的頁面。我也許會建議你把它放到你的主頁上，而其實它可以放到任何地方。讓我們來看一看這個名為HOME.asp的文件的內容：

<%

'Tip of the day PRocessing
if Application("SymDt") < Date then
    Application.Lock
    CurTip = Application("CurTip") + 1
    SymDt = date
    Application("CurTip") = CurTip
    Application("SymDt") = SymDt
    Application.Unlock

    PhyPth = Server.MapPath("/tipstore.dat")
    set FilSys = CreateObject("Scripting.FileSystemObject")
    set TipFil = FilSys.CreateTextFile(PhyPth, true)
    TipFil.WriteLine(CurTip)
    TipFil.WriteLine(CStr(SymDt))
    TipFil.Close
    set TipFil = nothing
    set FilSys = nothing
end if

%> ...
直到最后，我們檢查當前的提示是否比上一個提示更新。如果第一個用戶訪問這個導致新數據的頁面，我們就很容易來處理這種變化。（明白乎？反正蜘蛛精是搞蒙了。我發覺翻譯技術資料最頭痛的并不是技術內容，而是如何去領會作者的意思。鄙人生性愚鈍，才疏學淺，直覺亦不甚敏銳，只有把這些內容留給網友了。原文請見英文版）。鎖住Application，我們就不會取到重復的變化。選擇下一個提示的編號，把當前的編號存入數據中以備明天使用。由于上述的諸多原因，將處理的結果存入文檔是必要的。（除非你是玩MUD，或與網絡情人進行生死戀?？梢浴?4 hours a day, 7 days a week”地開著機器）

為了產生彈出式瀏覽器窗口，我們得借助Javascript來完成。下面的函數可以完成這個功能。

function displayPopup(url, height, width) {

properties = "toolbar=0,location=0,scrollbars=1,height=" + = height;
properties = properties + ",width=" + width;
properties = properties + ",left=0,top=0";
popupHandle = open(url, "tipwindow", properties);

}
就像你看到的那樣，我們可以在這個彈出窗口中顯示任何一個網址。我們也可控制窗口的高度和寬度。對于不同的瀏覽器，代碼產生的結果是不一樣的，所以需要在IE和Netscape中作測試。我已預設了一些參數以調整我們要生成的窗口。

Javascript要以為我們創建這個窗口。
URL:

<a href="javascript:displayPopup('popup.asp',300,300)">

'javascript:'協議告訴瀏覽器這段代碼由JavaScript引擎解釋，而與網絡服務器無關。這樣我們可以讓瀏覽器處理函數時將POPUP.ASP作為地址。窗口大小為300×300象素。

也許該讓POPUP.ASP粉墨登場了。

<%

TipNbr = Application("CurTip")

set rstTip = CreateObject("ADODB.Recordset")
rstTip.Open "SELECT * FROM Tip WHERE Tip=" & TipNbr, _
   "DSN=TipData"
%>
我們創建rstTip作為Recordset來訪問數據庫，這個數據庫注冊為系統DSN（System DSN）（注冊方法就不多說了吧，在控制面板中完成）。 DSN的名稱為'TipData'。在記錄中，我們關注存于Application中的提示編號。

我們要從記錄中顯示相關信息。

... <% = rstTip("TipTitle") %> ...
通過這種方法，我們把域'TipTitle'從當前的記錄中記出，并將其返回至瀏覽器。我們完成顯示后，就產閉它，釋放對象。

... <%
    rstTip.Close
    set rstTip = nothing
%> ...
你會發現另有兩個ASP文件：RESETTIPS.ASP使提示編號回復到列表的開始；TIPLIST.ASP按指定的格式顯示所有的提示。

祝各位編程愉快！

上一篇：用兩行代碼在瀏覽器中實現文件上傳

下一篇：淺談4種類型的JDBC驅動程序 