conn.asp

程序功能: /// 多人即时聊天 新信息声音提示 用户自主选择表情和颜色 管理员删除信息/踢出用户 高强度管理密码

<%
'聊天室配置
dim admins:         admins="admin,admin1"                               '管理员用户,可自行配置,每个管理员以英文逗号(,)分割
dim pwd:            pwd="f1a84a9d774006fa8331accff1a84a9d4812215a"      '管理密码,所有管理员使用一个密码!本密码经MD5加密
dim adminToFront:   adminToFront=false                                  '管理员登录后是否显示到前台(注意,如果选择true,则登录后台的同时登录前台,前台无需再用另一账号),建议设置为false
dim msgExpires:     msgExpires=300                                      '信息过期时间,以分钟为单位
dim userExpires:    userExpires=20                                      '用户过期时间,以分钟为单位
'结束配置

dim conn,rs,connstr,sql
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("data/data.asp")
err.clear
conn.open(connstr)
if err then
	set conn=nothing
	response.write "数据库连接错误!"
	response.end
end if

function isOnline(byval usern)
    sql="select * from [online] where [User]='" & usern & "'"
    set tempRs=server.CreateObject("adodb.recordset")
    tempRs.Open sql,conn,1,1
    if tempRs.EOF and temprs.BOF then
        isOnline=false
    else
        isOnline=true
    end if
    temprs.Close
    set temprs=nothing
end function
%>