![]() |
#2
multiple19022010-02-01 16:44
|
结果发现Global.asa 根本不响应,真不听话。
我在global中让index一启动就跳转到baidu.com也没反应.
我是在本地测试,xp。
我在想是否跟iis的设置有关系。。。
哪位仁兄指教一下。
index.asp 文件中

<!--#include file="inc/ndataconn1.asp"-->
<!--#include file="Global.asa"-->
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>在线统计</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
下面省略...
<!--#include file="Global.asa"-->
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>在线统计</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
下面省略...
Global.asa 文件中

<script language="VBScript" runat="server">
Sub Application_OnStart
Application.Lock
Application("user_online")=0
Application.Unlock
response.redirect("http://www.baidu.com/")
End Sub
Sub Session_onStart
session("on_line")=true
session.timeout=20
Application.Lock
Application("user_online")=Application("user_online")+1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("user_online")=Application("user_online")-1
Application.Unlock
End Sub
</script>
Sub Application_OnStart
Application.Lock
Application("user_online")=0
Application.Unlock
response.redirect("http://www.baidu.com/")
End Sub
Sub Session_onStart
session("on_line")=true
session.timeout=20
Application.Lock
Application("user_online")=Application("user_online")+1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("user_online")=Application("user_online")-1
Application.Unlock
End Sub
</script>