* 本例程將會(huì)用到Application對象、數(shù)據(jù)庫、JavaScript、以及文件操作。

首先，我們列一下本例程將涉及的內(nèi)容：


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

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

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

因?yàn)檫@些值一直存放在Application中，當(dāng)運(yùn)行“每日提示”時(shí)，我們就可將它們從TIPSTORE.DAT中取出。作這項(xiàng)工作最佳的方式是利用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文件的代碼無須經(jīng)過修改即可用于多個(gè)站點(diǎn)。FilSys創(chuàng)建為FileSystemObject，TipFil創(chuàng)建為TextStreamObject。我們接下來就可從這個(gè)文件里讀數(shù)據(jù)，完成后再關(guān)閉它。

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

<%

'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

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

為了產(chǎn)生彈出式瀏覽器窗口，我們得借助JavaScript來完成。下面的函數(shù)可以完成這個(gè)功能。

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);

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

Javascript要以為我們創(chuàng)建這個(gè)窗口。
URL:

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

'javascript:'協(xié)議告訴瀏覽器這段代碼由JavaScript引擎解釋，而與網(wǎng)絡(luò)服務(wù)器無關(guān)。這樣我們可以讓瀏覽器處理函數(shù)時(shí)將POPUP.ASP作為地址。窗口大小為300×300象素。

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

<%

TipNbr = Application("CurTip")

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

我們要從記錄中顯示相關(guān)信息。


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


... <%
    rstTip.Close
    set rstTip = nothing
%> ...
你會(huì)發(fā)現(xiàn)另有兩個(gè)ASP文件：RESETTIPS.ASP使提示編號回復(fù)到列表的開始；TIPLIST.ASP按指定的格式顯示所有的提示。

祝各位編程愉快！