创建弹出式“每日提示”窗口

  • 本例程将会用到Application对象、数据库、JavaScript、以及文件操作。

首先，我们列一下本例程将涉及的内容：

  1. 我们将创建一个用于显示“每日提示”的弹出式窗口；
  2. 提示将在每天呈现不同的内容；
  3. 提示内容保存于数据库中，接受由网上传来的索取指令；
  4. 提示内容更新便利，也可以随时添加新的内容；
  5. 提供一种手段以列出所有提示。

下面，我们将涉及细节问题。我们只讨论其中的某些内容，其它的信息将由实际产生的文档提供（什么意思？蜘蛛精也不太明白，待我们往后瞧瞧再说）。

我需要知道当前显示的是哪一条提示。为了传送当前提示的编号，我们要用到Application。同时，为了在更新提示时知道这些，我们要将已显示的提示编号存档，保存在磁盘中。这样做是为了防止服务器重启动、断电、（反革命份子蓄意破坏、非法组织黑红色网站等）事故中相关数据丢失。我们就用TIPSTORE.DAT作数据存档文件。它包含两行，一行是提示的编号，一行是数据。

因为这些值一直存放在Application中，当运行“每日提示”时，我们就可将它们从TIPSTORE.DAT中取出。作这项工作最佳的方式是利用GLOBAL.ASA，在Application_OnStart中。GLOBAL.ASA文件可以取出这些值。（知道下面这句话怎么译的人请举手！）This 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的文件的内容：

 1   
 2  
 3'Tip of the day processing   
 4if Application("SymDt") < Date then   
 5Application.Lock   
 6CurTip = Application("CurTip") + 1   
 7SymDt = date   
 8Application("CurTip") = CurTip   
 9Application("SymDt") = SymDt   
10Application.Unlock   
11  
12PhyPth = Server.MapPath("/tipstore.dat")   
13set FilSys = CreateObject("Scripting.FileSystemObject")   
14set TipFil = FilSys.CreateTextFile(PhyPth, true)   
15TipFil.WriteLine(CurTip)   
16TipFil.WriteLine(CStr(SymDt))   
17TipFil.Close   
18set TipFil = nothing   
19set FilSys = nothing   
20end if   
21  
22
23``` ...   
24直到最后，我们检查当前的提示是否比上一个提示更新。如果第一个用户访问这个导致新数据的页面，我们就很容易来处理这种变化。（明白乎？反正蜘蛛精是搞蒙了。我发觉翻译技术资料最头痛的并不是技术内容，而是如何去领会作者的意思。鄙人生性愚钝，才疏学浅，直觉亦不甚敏锐，只有把这些内容留给网友了。原文请见英文版）。锁住Application，我们就不会取到重复的变化。选择下一个提示的编号，把当前的编号存入数据中以备明天使用。由于上述的诸多原因，将处理的结果存入文档是必要的。（除非你是玩MUD，或与网络情人进行生死恋。可以“24 hours a day, 7 days a week”地开着机器）   
25  
26为了产生弹出式浏览器窗口，我们得借助JavaScript来完成。下面的函数可以完成这个功能。   
27  
28function displayPopup(url, height, width) {   
29  
30properties = "toolbar=0,location=0,scrollbars=1,height=" + = height;   
31properties = properties + ",width=" + width;   
32properties = properties + ",left=0,top=0";   
33popupHandle = open(url, "tipwindow", properties);   
34  
35}   
36就像你看到的那样，我们可以在这个弹出窗口中显示任何一个网址。我们也可控制窗口的高度和宽度。对于不同的浏览器，代码产生的结果是不一样的，所以需要在IE和Netscape中作测试。我已预设了一些参数以调整我们要生成的窗口。   
37  
38Javascript要以为我们创建这个窗口。   
39URL:

'javascript:'协议告诉浏览器这段代码由JavaScript引擎解释，而与网络服务器无关。这样我们可以让浏览器处理函数时将POPUP.ASP作为地址。窗口大小为300×300象素。

也许该让POPUP.ASP粉墨登场了。

1   
2  
3TipNbr = Application("CurTip")   
4  
5set rstTip = CreateObject("ADODB.Recordset")   
6rstTip.Open "SELECT * FROM Tip WHERE Tip=" &amp;amp; TipNbr, _   
7"DSN=TipData"

我们创建rstTip作为Recordset来访问数据库，这个数据库注册为系统DSN（System DSN）（注册方法就不多说了吧，在控制面板中完成）。 DSN的名称为'TipData'。在记录中，我们关注存于Application中的提示编号。

我们要从记录中显示相关信息。

... ``` = rstTip("TipTitle")

 1通过这种方法，我们把域'TipTitle'从当前的记录中记出，并将其返回至浏览器。我们完成显示后，就产闭它，释放对象。   
 2  
 3  
 4... ```
 5   
 6rstTip.Close   
 7set rstTip = nothing   
 8
 9``` ...   
10你会发现另有两个ASP文件：RESETTIPS.ASP使提示编号回复到列表的开始；TIPLIST.ASP按指定的格式显示所有的提示。   
11  
12祝各位编程愉快！</a>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus