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>