首頁(yè) 猿問(wèn) 請(qǐng)問(wèn)有知道asp+sql數(shù)據(jù)庫(kù)的在...

請(qǐng)問(wèn)有知道asp+sql數(shù)據(jù)庫(kù)的在線(xiàn)人數(shù)統(tǒng)計(jì)的方法的大佬嗎？

SQL Server

元芳怎么了 2022-04-08 11:07:25

統(tǒng)計(jì)在線(xiàn)人數(shù)，停留時(shí)間。請(qǐng)哪為能幫一下！

查看完整描述

2 回答

狐的傳說(shuō)

TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超3個(gè)贊

在線(xiàn)人數(shù)好搞，只需要ASP，用不到SQL
在網(wǎng)站根目錄下建個(gè)Global.asa文件，并寫(xiě)入如下代碼：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<script language="vbscript" runat="server">

Sub Application_OnStart()
Application("Total")=0
Application("OnLineCount")=0
End Sub

Sub Application_OnEnd()

End Sub

Sub Session_OnStart()
Dim strStartPage
strStartPage = Request.ServerVariables("Script_Name")

If strStartPage <> "/Index.asp" Then
Response.Redirect("/Err.asp")
End If

Session.TimeOut=30
Application.Lock
Application("Total")=Application("Total")+1
Application("OnLineCount")=Application("OnLineCount")+1
Application.UnLock

End Sub

Sub Session_OnEnd()
Application.Lock
Application("OnLineCount")=Application("OnLineCount")-1
Application.UnLock
End Sub

</script>
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Total是訪(fǎng)問(wèn)該網(wǎng)站的總?cè)舜?br/>OnLineCount就是在線(xiàn)人數(shù)

反對(duì) 回復(fù) 2022-04-11

陪伴而非守候

TA貢獻(xiàn)1757條經(jīng)驗(yàn) 獲得超8個(gè)贊

Dim strStartPage
strStartPage = Request.ServerVariables("Script_Name")
If strStartPage <> "/Index.asp" Then
Response.Redirect("/Err.asp")
End If
這個(gè)可以去掉。這幾句代碼作用是如果第一次打開(kāi)的葉面不是index.asp的話(huà)就跳轉(zhuǎn)到err.asp葉面