conn.asp

来自「单班同学录 一个非常漂亮的同学录 哦」· ASP 代码 · 共 29 行

<%
'/******************设置Session.Timeout时间参数********************/
session.Timeout=30       '这里的10指的是10分钟
classname="张家港外校04届"
Dim db,conn,connstr
db="data/txl.mdb"    '数据库所在路径
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

conn.open connstr

function formatdate(indate)
	formatdate=year(indate)&"/"&right("0"&month(indate),2)&"/"&right("0"&day(indate),2)   '当前时间设置
end function

function CloseDatabase
	Conn.close
	Set conn = Nothing
End Function

'统计在线用户
conn.execute("update loginfo set isonline=false where isonline=true and logtime<#"&cstr(DateAdd("n",-2,Now()))&"# ")

for each sys in session.Contents
	if sys="username" then
		conn.execute("update loginfo set logtime=now(),isonline=True where loguser='"&Session(sys)&"'")		
	end if
next
%>