如果程序不是很大,可以自己比对以前程序的备份文件,然后就是修复,或者换个服务器,最好是独立服务器。也可以通过安全公司来解决,国内也就Sinesafe和绿盟等安全公司 比较专业session是服务器端用户变量(私有)
使用globalasa可以检测网站服务器上每一个开始的session和application
当一个用户访问站点内任何一个文件时,globalasa首先被执行
如:<SCRIPT RUNAT=Server Language=VBScript>
Sub Session_OnStart
ResponseRedirect("aahtm")
End Sub
</SCRIPT>
就是一个例子!
Session_OnStart 检测是否有session发生,如果发生执行过程内程序
Session_OnEnd检测是否有session结束,用法同上
但是你忽略了一点,在服务器端session是有失效期的,通常20分钟,所有当用户停止访问后,20分钟内是不发生该事件的!
做计数器最好使用Application来做,不要直接使用session!
如:
<SCRIPT RUNAT=Server Language=VBScript>
Sub Application_OnStart
Application("online")=0
End Sub
Sub session_OnStart
Application("online")=Application("online")+1
End Sub
Sub session_OnEnd
Application("online")=Application("online")-1
End Sub
</SCRIPT>分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
ASP 的globalasaglobalasa :<script language="vbscript" runat="server">sub application_onstartapplicationlockapplication("user_online")=0applicationunlockend subsub session_onstartapplicationlockapplication("user_online")=application("user_online")+1applicationunlockend subsub session_onendapplicationlockapplication("user_online")=application("user_online")-1applicationunlockend sub</script>1asp:<><head><title>显示网站在线人数</title></head><body><h2 align=center>我的主页</h2><%responsewrite "<p align='center'>现在在线人数是" & application("user_online")%></body></>为什么人数只+不-呢 不停的+ 是globalasa的错误
解析:
因为Session默认的超时时间是20分钟,所以要等到20分钟之后才能看到减少。首先asa是文件后缀名,它是Active Server Application的首字母缩写。Globalasa文件可以管理在ASP应用中两个非常苛刻的对象:Application、Session。
它其实是一个可选文件,程序编写者可以在该文件中指定事件脚本,并声明具有会话和应用程序作用域的对象。该文件的内容不是用来给用户显示的,而是用来存储事件信息和由应用程序全局使用的对象。该文件必须存放在应用程序的根目录内。每个应用程序只能有一个Globalasa文件。
关于Globalasa文件最常见的错误概念是它能为一般的使用的函数和子程序用作书库。Globalasa文件仅能用于创建对象的引用和俘获启动,以及结束Application对象和Session对象。
Globalasa文件主要基于会话级事件被访问,在以下三种情况下被调用:
1,当Application_OnStart或Application_OnEnd事件被触发。
2,当Session_OnStart或Session_OnEnd事件被触发。
3,当引用一个在Globalasa文件里被实例化的对象(Object)。
Globalasa的标准文件格式如下:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
'Application_OnStart 当任何客户首次访问该应用程序的首页时运行
End Sub
Sub Session_OnStart
'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行
End Sub
Sub Session_OnEnd
'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行
End Sub
Sub Application_OnEnd
'Application_OnEnd 当该站点的 WEB 服务器关闭时运行
End Sub
</SCRIPT>
一、Session_onStart
先看一个控制用户进入页面的代码:
1,Globalasa(放在被调试的虚拟目录的根目录下面)
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart '只要是用户第一次登录本站,则会跳转到首页
responseredirect("htp://>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)