ASP中利用global.asa计划执行程序

蝈蝈俊 2000-07-16 08:00:00
编译如下:

   其实就是利用文件“global.asa”!许多ASP编程新手都想知道这东西是什么?事实上,global.asa就是一个事件驱动程序,其中共包含4个事件处理过程: Application_OnStart、Application_OnEnd、Session_OnStart 和 Session_OnEnd。

   当网站的一个应用程序的页面第一次被用户访问时,global.asa就被装载进内存。当应用程序(application )启动、结束,或者会话(session)开始、结束时,你就可以加入需要执行的脚本代码。

   利用一些技巧,你就可以使用global.asa文件达到计划执行任务的目的。

   这里有一个例子:“跟踪网站有多少访问者;在访问量达到100时,计数器复位到0,并且执行你事先编制的代码”。当然,根据自己的需要,你可以调整访问量的上限数目100。

   global.asa的内容如下:

< SCRIPT LANGUAGE=VBScript RUNAT=Server >

Sub Application_OnStart
Application("SessionCount") = 0
End Sub

Sub Session_OnStart

Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock

If Application("SessionCount") > 100 Then

Application.Lock
Application("SessionCount") = 0
Application.Unlock

' Here you would put any code you need to run
' do not surround the code with < % % > tags
' For example you might run a database query that checks for expired accounts

End if

End Sub

< /SCRIPT >

   下面,让我们看看一天内执行4次某任务的情况。你可以将日期和时间的值存储在一个文本文件中,并且周期性地检查它。当时间过去6个小时时,写入新的日期与时间到这个文本文件中,并且,启动你想要执行的任务。你可以改变“6”这个数值,从而更多或者更少地执行任务。

   虽然,上面的方法需要对文本文件设置读、写权限后才能正确执行,但这仍不失为一个非常聪明的解决方案!

   在这个例程中,每有15个新访问者时,就检查文本文件一次。当然,你可以调整“15”的数值,或者设定每当有新访问者时,都检查文本文件一次。但这样处理,无疑会加重站点的负载,浪费服务器的资源!总之,检查的频度由你自己考虑后设定。

   例子中,必须保证初次写入文本文件的日期与时间的合法性,否则,当程序首次读入一个空值时,就会发生运行错误。

   比如:将 6/30/99 6:58:45 PM 初始写入文本文件的第一行。

   当前,也可以加入一些代码,用来检查日期与时间的写法,并且处理出错信息。但初始写入一个合法的日期与时间数值,将会更简单一些。

   global.asa的内容如下:

< SCRIPT LANGUAGE=VBScript RUNAT=Server >

Sub Application_OnStart
Application("SessionCount") = 0
End Sub

Sub Session_OnStart

Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock

If Application("SessionCount") > 15 Then

Application.Lock
Application("SessionCount") = 0
Application.Unlock

Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath("last-update.txt"))
MyFileValue = OpenMyFile.ReadLine
OpenMyFile.Close

If DateDiff("h",MyFileValue,NOW) > 6 Then

' Here you would put any code you need to run
' do not surround the code with < % % > tags
' For example you might run a database query that checks for expired accounts

Set WriteMyFile = ObjMyFile.CreateTextFile(Server.MapPath("last-update.txt"))
WriteMyFile.WriteLine(NOW)
WriteMyFile.Close

End if
   End If

End Sub

< /SCRIPT >


   请注意:还有许多更好的方法达到检查的目的,这篇文章的目的是想起到抛砖引玉的作用。

   同时请记住:WEB站点的应用程序一定要设置为一个Application,这样“global.asa”文件才能起作用。许多虚拟域默认为Application,但下层的目录却不是。

   为了使下层目录可以使用global.asa,必须要将它们设置为一个Application。在NT操作系统中,通过Internet Service Manager进行设置(选择下层目录,点击鼠标右键,选择属性)


   最后的一点提示:在将代码写入global.asa前,请先写入一个“ASP”文件中进行测试。如果测试失败,那么在global.asa中也将不能运行成功。同时,确认文本文件的路径是正确的。



...全文
94 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
木木个人主页ASP整站源码在原来的基础上新增了:卫视、翻译、解梦等栏目;更换了媒体播放器,并整合了论坛。   媒体播放器的音乐位置是打开play目录下的rhapsody.js文件自行加入   用此程序的麻烦您给做个连接,本站永久免费升级!   论坛说明:   一、论坛基本安装:   1、执行安装文件http://localhost/bbs/install.asp   2、数据库连接文件是inc/conn.asp,为发安全你可以把bbs.mdb改成bbs.asa。   3、global.asa文件要放在站点根目录下。(统计在线人数的文件)   二、功能说明:   1、支持UBB,HTML内容编辑,支持网络贴图与附件上传等,风格有点像163的论坛.   2、支持二级类别,类别自已可以添加修改。   3、支持背景音乐,不喜欢的可以关闭。   4、本论坛设以简洁高效为目标,所以不适合要求功能花俏、插件多样的使用者;   5、贴子增加了发布新贴的链接。   6、加入了贴子的版权信息。   7、贴子被修改后有被修改的记录如:修改时间谁修改的。   8、贴子加入了加锁,与取消加锁功能。   9、新增了自定义头像功能。   10、后台新加入了图片大小、类型、以及网友上传的图片是否要审核的功能。(后台参数设置)   11、投票贴加入了投票开始时间与到期时间。   12、后台用户管理加入了用户封锁功能。   13、后台用户管理还加入了图片(附件)上传权限的限制。   14、加入了首页调用功能代码。   管理入口:http://您的域名/admin.asp   论坛管理入口:http://您的域名/bbs/admin/   后台用户名密码均为:admin888
浮动聊天程序for ASP website 测试:http://www.onlywww.net/chatforASP/,版本2.0。本程序可以很轻松的整合到ASP语言设计的网站以BLOG程序!程序大小为2.12M,不占用任何空间。 1.适用于所在ASP站点,自动识别站点名称(也可在配置文件自己修改,参考第3步),界面美观。 2.管理员身份通过配置程序自行指定,随机自动分配游客身份,自行统计在线人数。 3.安装简单方便,下载附件解压后直接上传至论坛根目录,访问http://域名.chat/setconfig.asp,配置相关参数 Const chatDB="./XXXXXXXXXX.mdb" '请将XXXXXX.mdb"改为自己改名后的聊天程序数据库名称 是否支持表情? /01-/95可插入表情,/m1-/m58可插入麻魔法表情,如果不需要,访问http://域名.chat/setconfig.asp,找到以下两项,改为0即可 Const IsEmot = 1'需要表情,请改为0 Const IsMagicfaceEmot = 1'需要魔法表情,请改为0 然后在在页面添加代码调用:     <script src="chat/chatw3c.asp?max=1" type="text/javascript">   <-script src="chat/chatw3c.asp?max=0" type="text/javascript">          <script src="chat/fixupchat.asp?w=330&h=240&t=" type="text/javascript">     演示:http://www.onlywww.net/chatforASP/   4.聊天记录,可自行管理,可设定每天自动清除功能。   5.为了节约服务资源,访客在3分钟内不发言,窗体自动最小化。 6.增加了系统消息提示,聊天记录管理(内容区右键打开)功能以及私聊功能,禁止发言(T人,管理员权限)功能。 7.支持全部聊天记录查看,私聊信息(管理员可查看)除外,支持窗体状态保持(即切换页面时最小化及聊天窗口状态保持不变)。 8.支持命令"mgr///"打开配置管理、"del///"删除论坛所有聊天内容或当前版块聊天内容,"ver///"系统版本查询。前两个需要有管理员权限才能执行,更多命令开发...   9.为了增加本系统性能,无新消息时不更新页面。 10.实现聊天记录显示无刷新功能。   11.默认表情外,支持自定义表情配置,95.gif以后顺序添加。 注意,配置完成后请将setconfig.asp从网站删除。 由于时间有限,暂时更新到这里了。 Global.asa放到网站根目录,用于统计在线人数。如已经存在,请自行将代码添加到源Global.asa文件。   图文说明:http://www.onlywww.net/dispbbs_17_104.html
全面解析Server对象 Server对象提供对服务器上访问的方法和属性.大多数方法和属性是作为实用程序的功能提供的。   语法:    Server.property|method   属性(property)    Server对象只有一个属性:ScriptTimeout 程序能够运行的最大时间   方法(Methods)    CreateObject 建立一个对象实例.    Execute 执行一个asp文件    GetLastError 返回一个错误代码    HTMLEncode 对指定的HTML代码进行转换.    MapPath 将一个相对路径转化为一个绝对路径.    Transfer 将当前的所有状态信息发送给另一个asp文件    URLEncode 以URL形式转化指定的代码,包括空格   Server对象的方法详细说明    CreateObject    语法    Server.CreateObject( progID )    参数     progID     指定要创建的组件名称,格式如下: [Vendor.]Component[.Version].    要点:     一般来说,用由Server.CreateObject方法创建的对象拥有页面的范围.这就说,当这页的asp程序执行完后,这种对象会自动地消失.   为了创建一个拥有Session或Application范围的对象,你可以在Global.asa文件使用   Execute   Execute 方法呼叫一个ASP文件并且执行它就像这个呼叫的ASP文件存在这个ASP文件一样。这很像许多语言的类的调用。   语法   Server.Execute( Path )   参数    Path   指定执行的那个asp文件的路径。如是它是一个绝对路径,那么它必须是一个在这个ASP应用程序相同的地方(目录)。   讲解

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧