当前位置: 首页 > 图文教程 > 网络编程 > ASP > 取得浏览者的离开时间

ASP
把HTML表单提交的数据转化成XML文件
全球IP地址查询完整版
一个把WORD转换成HTML的程序
天气预报的小偷,可以偷到全国24小时城市天气预报.
显示页面show.asp--基于web的QQ程序1
接收信息页面inform.asp--基于web的QQ程序2
发送信息页面send.asp--基于web的QQ程序3
关于客户端用ASP参生报表
关于客户端用ASP参生报表(高级篇)
利用ASP在线维护数据库
使用JScript.NET创建asp.net页面(一)
使用JScript.NET创建asp.net页面(二)
使用JScript.NET创建asp.net页面(三)
使用JScript.NET创建asp.net页面(四)
使用JScript.NET创建asp.net页面(五)
使用JScript.NET创建asp.net页面(六)
使用JScript.NET创建asp.net页面(七)
创建一个Web投票系统
W3 Jmail中文使用说明
bbs的数据结构和存储过程(一)

ASP 中的 取得浏览者的离开时间


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 143 ::
收藏到网摘: n/a

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

sub Application_OnStart

Application("conn")="dsn=;uid=;pwd="

end sub

Sub session_onstart

session("ip")=Request.ServerVariables("REMOTE_ADDR")
session("stime")=now()

application.Lock
if application("clicks")="" then
application("clicks")=0
end if
application("clicks")=application("clicks")+1

application.UnLock


End Sub

Sub Session_Onend

application.Lock

StrSQL="dsn=;uid=;pwd="
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL

SQL = "insert into client(c_date,stime,etime,ip) values('"&date()&"','"&session("stime")&"','"&now()&"','"&session("ip")&"')"

conn.Execute(sql)

conn.Close
set conn=nothing

application.UnLock

End Sub