<%
Sub onlineuser()
statid = replace(Request.ServerVariables("REMOTE_HOST"),".","")
session("statid") = statid
filename = request.ServerVariables("SCRIPT_NAME")
postion = InstrRev(fileName,"/")+1
useract = Mid(fileName,postion)
dim act
select case useract
    case "adminthread.asp"
        act = "管理贴子"
    case "allface.asp"
        act = "查看论坛所有头像"
    case "announcement.asp"
        act = "查看论坛公告"
    case "board.asp"
        act = "查看论坛版块"
    case "delpost.asp"
        act = "删除贴子"
    case "delthread.asp"
        act = "删除主题"
    case "editpost.asp"
        act = "编辑贴子"
    case "editthread.asp"
        act = "编辑主题"
    case "faq.asp"
        act = "查看论坛帮助"
    case "index.asp"
        act = "论坛首页"
    case "login.asp"
        act = "登录论坛"
    case "lostpass.asp"
        act = "找回密码"
    case "movethread.asp"
        act = "移动主题"
    case "newreply.asp"
        act = "发布回复"
    case "newthread.asp"
        act = "发布新的主题"
    case "newvote.asp"
        act = "发布新的投票"
    case "onlinelist.asp"
        act = "会员在线状态"
    case "pm.asp"
        act = "使用悄悄话"
    case "register.asp"
        act = "正在注册"
    case "search.asp"
        act = "使用论坛搜索"
    case "showposterip.asp"
        act = "查看用户IP"
    case "showthread.asp"
        act = "浏览贴子"
    case "showvote.asp"
        act = "浏览投票结果"
    case "user.asp"
        act = "查看会员信息"
    case "usercp.asp"
        act = "使用控制面板"
    case "userlist.asp"
        act = "查看会员列表"
    case "logs.asp"
        act = "论坛日志"
End select
'response.Write(act)
userhidden = request.Cookies(JBBMasterCookies)("userhidden")
if userhidden="" or Not(ISnumeric(userhidden)) then userhidden = 0
if BoardID="" then BoardID=0
if threadID="" then threadID=0
thread_title = replace(thread_title,"'","''")
'====================================================
if useronline = true then
    set rs = conn.ExeCute("select userid From JBB_online where userid="&userid)
    if rs.Eof Or rs.Bof then
        sql="insert into JBB_online(uname,times,statid,usergroup,userid,userIP,title,thread_title,threadID,BoardID,act,userhidden) values('"&username&"','"&Now()&"',"&statid&","&usergroup&","&userid&",'"&userIP&"','"&title&"','"&thread_title&"',"&threadID&","&BoardID&",'"&act&"',"&userhidden&")"
    else
        sql="update JBB_online set times='"& Now() &"',statid="& statid &",thread_title='"& thread_title &"',threadID="& threadID &",title='"& title &"',BoardID="& BoardID &",act='"& act &"',userhidden="& userhidden &" where userid="&userid
    End if
    set rs = Nothing
    sql2="update JBB_user set lastactivity='"& Now() &"' where userid="&userid
    conn.execute(sql2)
else   
    set rs = Conn.ExeCute("select statid from JBB_online where statid='"& statid &"' and Uname='游客'")
    if rs.Eof Or rs.Bof then
        sql="insert into JBB_online(uname,times,statid,usergroup,userIP,title,thread_title,threadID,BoardID,act) values('游客','"&Now()&"','"&statid&"',6,'"&userIP&"','"&title&"','"&thread_title&"',"&threadID&","&BoardID&",'"&act&"')"
    else
        sql="update JBB_online set times='"&Now()&"',thread_title='"&thread_title&"',threadID="&threadID&",title='"&title&"',BoardID="&BoardID&",act='"&act&"' where statid='"& statid &"' and Uname='游客'"
    End if
    set rs = Nothing
End if
conn.ExeCute(sql)                    ********** 第91行
'==========================================================
Conn.Execute ("delete from JBB_online where DATEDIFF('s', times, '"& now() &"') > "& BBS_Config(14) &"*60")
End Sub
%>
错误提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
online.asp，行 91
先 谢谢 各位  了