|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<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 返回类别: 教程 上一教程: ASP 3.0高级编程(三十四) 下一教程: ASP 3.0高级编程(十八) 您可以阅读与"取得浏览者的离开时间"相关的教程: · 无刷新随时取得当前服务器时间用户登陆时间,在线时间,空闲时间并自动退出的例子 · 判定访问者的浏览器是否支持JAVASCRIPT和COOKIES · 计算文件的下载时间 · 利用ASP实现对表的分页浏览(上) · ASP取得图片大小代码 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |