<font face=\"宋体\" size=\"2\">[原创]在线情况维护程序
\'====================================================================
\'= Copyright (c) 2003,NB联盟 =
\'= All rights reserved. =
\'=------------------------------------------------------------------=
\'= 文件名称:Online.asp =
\'= 摘 要:在线情况维护文件 =
\'=------------------------------------------------------------------=
\'= 最后更新:eason007 =
\'= 最后日期:2004-03-31 =
\'====================================================================
Option Explicit
Response.Buffer=True
<font face=\"宋体\" size=\"2\">Const TimeOver=20
Dim Conn
Dim Rs,SQL
Dim UserId,SessionId,IP
Dim Tag,Key
<font face=\"宋体\" size=\"2\">Set Rs=server.CreateObject("adodb.recordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath("Online.mdb")
<font face=\"宋体\" size=\"2\">Randomize Timer
Key = "NB" & (1+int(Rnd*1000000000))
<font face=\"宋体\" size=\"2\">Response.Cookies("Key").Path="" \'this set cookies\'path
Response.Cookies("Key").Expires = DateAdd("n",TimeOver,Now())
<font face=\"宋体\" size=\"2\">Tag=0
UserId=12
\'UserId=Request.Cookies ("UserId")
If UserId="" Then UserId=0 \' 0=Guest
If Request.Cookies ("Key")="" Then
Response.Cookies("Key")=Key
SessionId=key
Else
SessionId=Request.Cookies ("Key")
End If
If Request.ServerVariables("HTTP_X_ForWARDED_For")="" Then
IP= Request.ServerVariables("REMOTE_ADDR")
Else
IP=Request.ServerVariables("HTTP_X_ForWARDED_For")
End If
<font face=\"宋体\" size=\"2\">\'清理在线记录
\'....
<font face=\"宋体\" size=\"2\">SQL="select UserId,SessionId,IP from Online where IP=\'"&IP&"\' and UserId="&UserId&" and SessionId=\'"&SessionId&"\'"
Set Rs=Conn.Execute(SQL)
If Rs.EOF And Rs.BOF Then
SQL="select UserId from Online where IP=\'"&IP&"\'"
Set Rs=Conn.Execute(SQL)
If Rs.EOF and Rs.BOF Then Tag=Tag+1
SQL="select UserId from Online where UserId="&UserId
Set Rs=Conn.Execute(SQL)
If Rs.EOF and Rs.BOF Then Tag=Tag+3
SQL="select UserId from Online where SessionId=\'"&SessionId&"\'"
Set Rs=Conn.Execute(SQL)
If Rs.EOF and Rs.BOF Then Tag=Tag+5
Select Case Tag
Case 0
If UserId<>0 Then SQL="update online set ltime=\'"&now()&"\',SessionId=\'"&SessionId&"\',IP=\'"&IP&"\' where UserId="&UserId
Case 1
SQL="update online set IP=\'"&IP&"\' where UserId="&user&" and SessionId=\'"&SessionId&"\'"
Case 3
If UserId=0 Then
SQL="insert into online (UserId,IP,SessionId) values ("&UserId&",\'"&IP&"\',\'"&SessionId&"\')"
Else
SQL="update online set UserId="&UserId&" where SessionId=\'"&SessionId&"\' and IP=\'"&IP&"\'"
End If
Case 5
If UserId=0 Then
SQL="insert into online (UserId,IP,SessionId) values ("&UserId&",\'"&IP&"\',\'"&SessionId&"\')"
Else
SQL="update online set SessionId=\'"&SessionId&"\',IP=\'"&IP&"\' where UserId="&UserId
End If
Case 4
SQL="update online set IP=\'"&IP&"\',UserId="&UserId&" where SessionId="&SessionId
Case 6
If UserId=0 Then
SQL="insert into online (UserId,IP,SessionId) values ("&UserId&",\'"&IP&"\',\'"&SessionId&"\')"
Else
SQL="update online set SessionId=\'"&SessionId&"\',IP=\'"&IP&"\' where UserId="&UserId
End If
Case 8
SQL="insert into online (UserId,IP,SessionId) values ("&UserId&",\'"&IP&"\',\'"&SessionId&"\')"
Case 9
SQL="insert into online (UserId,IP,SessionId) values ("&UserId&",\'"&IP&"\',\'"&SessionId&"\')"
End Select
Else
SQL="update online set ltime=\'"&now()&"\' where IP=\'"&IP&"\' and UserId="&UserId&" and SessionId=\'"&SessionId&"\'"
End If
\'Response.Write SQL&"
"
Conn.Execute(SQL)
<font face=\"宋体\" size=\"2\">SQL="select UserId,IP,SessionId from online"
Set Rs=Conn.Execute(SQL)
Do While Not rs.eof
Response.Write rs(0)&"---->"
Response.Write rs(1)&"---->"
Response.Write rs(2)&"---->
"
rs.movenext
Loop
[
点击查看详细]
分享到:
相关推荐
海康威视DS-7816NB-K1/C 升级程序包版本号:V3.4.107 build 190912 海康固件升级包DS-7816NB-K1/C版本号:V3.4.107 build 190912 海康固件升级刷机包DS-7816NB-K1/C版本号:V3.4.107 build 190912在官方没出升级...
DS-78 88NB-Kx系列V3.4.110 build 200108程序包 软件名称:DS-78 88NB-Kx系列新版程序包 程序包适用于以下型号: DS-78xxNB-K1、DS-78xxNB-K1/C、DS-78xxNB-K2 DS-88xxNB-K8、DS-78xxNB-K1/xP、DS-78xxNB-K2/xP ...
中国电信物联网NB-IoT模块测试方法 PCT RRM RF DP 本标准按照GB/T 1.1-2009给出的规则起草。 本测试方法是中国电信NB-IoT模块系列测试方法之一,该系列测试方法包括但不限于: 中国电信物联网NB-IoT模块测试...
vue-print-nb 兼容低版本浏览器 import Print from '@/lib/vue-print-nb/print.umd.min'Vue.use(Print)
热处理对Ti-44Al-4Nb-4Zr-1B合金组织和性能的影响,孙红亮,黄泽文,研究了不同的热处理工艺对铸造Ti-44Al-4Nb-4Zr-1B合金的片层晶团尺寸的细化作用。结果表明:铸造Ti-44Al-4Nb-4Zr-1B合金的700℃高温强度比室温
程序包适用于以下型号: DS-78xxNB-K1、DS-78xxNB-K1/C、DS-78xxNB-K2 DS-88xxNB-K8、DS-78xxNB-K1/xP、DS-78xxNB-K2/xP 特别声明: 版本号:V4.30.060_201228 设备升级有风险,请确认是否一定要升级设备。...
基于libopencore-amrnb的音频转换库, 适用于ObjectiveC语言, iOS. 提供wave转amr格式, amr格式转wave, 可开关bitcode编译选项.
iOS语音开发libopencore-amrwb和libopencore-amrnb最新适用库,该版本支持x86_64、i386、armv7、armv7s、arm64cpu架构 使用方法:拖入项目 方便自己下载,想用各位老铁也下吧
程序包适用于以下型号:DS-7800NB-K1、DS-7800NB-K1/C、DS-7800NB-K1/xP、DS-7800NB-K2、DS-7800NB-K2/xP、DS-8800NB-K8 特别声明: 版本号:V4.30.096 build 221220 设备升级有风险,请确认是否一定要升级...
程序包适用于以下型号: DS-7800NB-K1/W、DS-1100WB、DS-7800N-F1/W、DS-1100W 特别声明: 版本号:V4.30.100 Build 221130 设备升级有风险,请确认是否一定要升级设备。请确认升级程序包是否适用于您的设备。...
最新版7816NB-K2固件升级包 V3.4.104_190417,程序包适用于以下型号: DS-78xxNB-K1、DS-78xxNB-K1/C、DS-78xxNB-K2
海康DS-7816NB-K2/16P解除萤石云绑定专用解绑包,在海康硬盘录像机上解绑萤石云下载DS-7816NB-K2/16P后对硬盘录像机升级就可以解绑海康萤石云的绑定,解绑后使用你自己的手机在绑定萤石云。解绑时保持DS-7816NB-K2/...
libopencore-amrnb.a是针对8kHZ采样速率的,并提供了encode和decode的方法 libopencore-amrwb.a是针对16Khz采样速率的,不过只提供了decode的方法
固件所有权归海康威视所有 版本号为:V3.4.102 build 180906 适用于以下型号:DS-78xxNB-K1、DS-78xxNB-K1/C、DS-78xxNB-K2
窄带物联网(Narrow Band Internet of Things, NB‐IoT)是由3GPP(《第三代伙伴计划协议》)标准化组织定义的一种技术标准,是一种专为物联网设计的窄带 射频技术,
本白皮书描述了 NB-IoT 终端开发所涉及的技术要点,着重对 NB-IoT 终端硬件设计、软件设计、通信能力、功耗优化和安全要求等提出了设计建议。使 NB-IoT 终端产品在设计开发阶段就与网络通信特征紧密适配。可作为 NB-...
强烈推荐,NB-IoT物联网精品资料合集,包含NB-IoT系列技术、白皮书及行业分析等资料,共36份。 NB_IoT 白皮书-罗德施瓦茨 NB-IoT 商业化案例研究 NB-IOT 在智慧道路照明的应用与实践 NB-IoT 智慧照明解决方案白皮书...
物联网NB_IoT开发与实践_PPT.zip
移远 NB-IoT BC95 开发手册
jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-8u171-nb-8_2-windows-x64jdk-...