📄 global.asa
字号:
<script language="VBscript" runat="Server">
Sub session_onStart
'记录用户主机的IP地址
session("IP")=Request.ServerVariables("Local_ADDR")
'记录用户进入页面的时间
Session("StartTime")=Now()
End sub
Sub session_onEnd
'本次用户访问的相关信息
UserID=session("UserID")
IP=session("IP")
StartTime=session("StartTime")
EndTime=Now()
'设置数据库连接的参数
dsn="dsn=CompMarket;"
uid="uid=sql-write;"
pwd="pwd=qb493;"
'建立数据库连接
set dcnCompMarket=Server.CreateObject("ADODB.Connection")
dcnCompMarket.Open dsn & uid & pwd
'设置当前查询所要操作的表和相应的SQL语句
rsSource="UserAccess"
rsSQL="insert into "&rsSource&" values ('"&_
UserID&"','"&IP&"','"&_
StartTime&"','"&EndTime&"')"
'向记录表中添加本次用户访问记录
set rsUserAccess=Server.CreateObject("ADODB.Recordset")
rsUserAccess.Open rsSQL,dcnCompMarket,1,2,1
End sub
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -