六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

控制用戶登陸到網站與顯示在線用戶下文

發表時間：2024-01-26 來源：明輝站整理相關軟件相關文章人氣：

[摘要]下面是global.asa的內容： Sub Application_OnStart ' Delete all saved session information, in case of a crash set objADO = Server.CreateObject("ADODB...

下面是global.asa的內容：

Sub Application_OnStart
' Delete all saved session information, in case of a crash
set objADO = Server.CreateObject("ADODB.Connection")
sDatabasePath = Server.MapPath("/databases")
sConnection
= "filedsn="&sDatabasePath&"\readwrite.dsn;DBQ="&sDatabasePath&"\sessi
ons.mdb;"
objADO.Open(sConnection)

sUpdateCmd = "delete * from session;"
objADO.Execute(sUpdateCmd)
' Close the database down again
objADO.close
set objADO=Nothing

' Now store the DSN connection string away, so we don't have to look
it up again
Application("sessionDSN") = sConnection

End Sub

Sub Session_OnStart

' Write the session information away into the session database
set session_objADO = Server.CreateObject("ADODB.Connection")
session_objADO.Open(Application("sessionDSN"))
session_sUpdateCmd = "insert into session values
("&Session.SessionID&","
session_sUpdateCmd = session_sUpdateCmd & "'"&Request.ServerVariables
("REMOTE_ADDR")& "',"
session_sUpdateCmd = session_sUpdateCmd & "'"&Request.ServerVariables
("HTTP_USER_AGENT")&"');"
session_objADO.Execute(session_sUpdateCmd)
' Close the database down again
session_objADO.close
set session_objADO=Nothing

End Sub

Sub Session_OnEnd

' Delete the session information from the session database
set session_objADO = Server.CreateObject("ADODB.Connection")
session_sConnection = Application("sessionDSN")
session_objADO.Open(session_sConnection)
session_sUpdateCmd = "delete * from session where
SessionID="&Session.SessionID&";"
session_objADO.Execute(session_sUpdateCmd)
' Close the database down again
session_objADO.close
set session_objADO=Nothing

End Sub

下面是實現功能的一個例子：

<% OPTION EXPLICIT

' currentusers.asp V1.0
' Copyright 1998/99 Bann Consultants [email protected]
' Created 03/11/98 Modified 03/11/98
' On-line documentation at http://www.bann.co.uk/asp/
'
' COPYRIGHT NOTICE
' Copyright 1998-1999 Barry Dorrans All Rights Reserved.
'
' CurrentUsers may be used and modified free of charge by anyone so
long
' as this copyright notice and the comments above remain intact. By
using
' this code you agree to indemnify Barry Dorrans from any liability
that
' might arise from its use.
'
' Selling the code for this program without prior written consent is
' expressly forbidden. In other words, please ask first before you
try and
' make money off of my program.
'
' Obtain permission before redistributing this software over the
Internet or
' in any other medium. In all cases copyright and header must remain
intact
%>
<html>
<title>Current User report</title>
<body bgcolor="#fffaf0">

<h1> Current User Report </h1>

<br>
<table border=0>
<tr><td><p><b>Remote Host</b></td>
<td><p><b>Browser</b></td></tr>
<%

DIM objADO, sDatabasePath, sConnection, sessionRecords
DIM userCount

userCount = 0

SET objADO = Server.CreateObject("ADODB.Connection")
sDatabasePath = Server.MapPath("/databases")
sConnection
= "filedsn="&sDatabasePath&"\readonly.dsn;DBQ="&sDatabasePath&"\sessio
ns.mdb;"
objADO.Open(sConnection)

SET sessionRecords = objADO.execute("select * from session;")

DO WHILE NOT sessionRecords.EOF
userCount = userCount + 1
%>
<tr><td><p><%=sessionRecords("Host")%></td>
<td><p><%=sessionRecords("BrowserType")%></td></tr>
<% sessionRecords.MoveNext
LOOP

sessionRecords.Close
objADO.close
SET sessionRecords = Nothing
SET objADO=Nothing

%>


Session變量的有效期默認為20分鐘，可以通過下面來改變它的默認有效期：
Session.Timeout=(有效期的分鐘數)



主站蜘蛛池模板： 日韩久草 | 小草社区在线观看播放 | 四虎永久在线精品 | 色先锋影音资源 | 全黄性高视频 | 青草青视频在线观看 | 亚洲图区综合网 | 欧美一级成人 | 三级精品视频在线播放 | 三级黄色片日韩 | 日韩美女免费线视频网址 | 色免费视频| 日本爽爽爽爽爽爽在线观看免 | 日本高清视频色www在线观看 | 午夜国产福利在线 | 日产精品久久久一区二区 | 亚洲一区二区三区在线播放 | 一级做a爱片特黄在线观看 一级做a爱片久久蜜桃 | 日韩一卡2卡3卡新区网站 | 最好免费高清视频观看韩国 | 日本黄色免费网址 | 午夜一级精品免费毛片 | 午夜激爽毛片在线看 | 日本免费黄视频 | 婷婷综合久久中文字幕一本 | 日本黄色免费在线 | 思思99re66在线精品免费观看 | 午夜视频免费看 | 亚洲一区网站 | 欧美特黄a级高清免费大片 欧美桃色视频 | 青青草原在线免费观看 | 日日碰碰视频播放 | 天堂网www天堂在线资源链接 | 婷婷视频网站 | 青娱乐在线视频观看 | 又大又硬又爽免费视频 | 日本在线观看视频网站 | 日本激情网站 | 亚洲a毛片 | 四虎永久在线日韩精品观看 | 青草青青视频在线观看 |