- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]下面是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=(有效期的分鐘數)
推薦資訊 總人氣榜
最新教程 本月人氣
- 1小米手機好用嗎？
- 2小米盒子有什么用？
- 3小米好不好？
- 4電腦很卡是什么因素？
- 5小米電視機如何？
- 6電腦出現藍屏如何辦？
- 7像素是什么意思？
- 8電動牙刷如何用？
- 9北京地鐵如何買票？
- 10現在什么手機性價比最高？
- 11現在什么手機好用？
- 12單反相機是什么？
- 1豆瓣app下載地址 豆瓣app官方版下載
- 2防范PPTV網絡電視偷跑P2P流量的方法_pptv網絡電視_下載之家
- 317app如何注冊 17app注冊方法流程
- 4Cool Edit提示：resample.xfm文件失去怎么辦？
- 5愛奇藝會員號共享（更新日期：2016年9月28日）
- 6用XML與ASP完成購物車
- 7remoteview如何用？remoteview使用方法
- 8百度搶票寶驗證碼不顯示如何辦？百度搶票不顯示驗證碼處理方法
- 9人生日歷搶票如何用？人生日歷搶票插件使用圖文說明教程
- 10柚子相機如何用？柚子相機使用方法
- 11搜狗輸入法如何設置快捷鍵？搜狗輸入法設置快捷鍵圖文說明教程
- 12隨星播如何直播？隨星播直播圖文說明教程
相關文章
