近来老是遇到的问题..

[k2y1982]

本页无法显示
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 tgamesky.vicp.net 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80004005)
/bbs/inc/char.asp, 第 236 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)

页：
GET /bbs/index.asp

时间：
2004年3月31日, 17:03:15


详细信息：
Microsoft 支持

----------------------------------------------------------------------

请帮我啊

[jiffer]

把代码贴出来看看

[zrla]

/bbs/index.asp 里有语法错误
bbs/inc/char.asp, 第 236 行－－有数据操作错误

[sxsgssgs]

有可能是数据库权限设置，还有IIS没有设置正确。
你重新设置一下，最好设成读取,写入

[vvfish119]

以上两种说法都有可能，但是还是把代码贴出来看看吧

[k2y1982]

Rem 用户在线
sub activeonline()
dim ComeFrom,actCome,statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
if not founduser then
session("userid")=statuserid
sql="select id,boardid from online where id="&cstr(session("userid"))
set rs=conn.execute(sql)
if rs.eof and rs.bof then
ComeFrom=""
actCome=""
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,UserGroupID,actCome,userhidden) values ("&statuserid&",'客人','客人','"&Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&replace(stats,"'","")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"',7,'"&actCome&"',"&userhidden&")"
else
sql="update online set lastimebk=Now(),boardid="&boardid&",stats='"&replace(stats,"'","")&"' where id="&cstr(session("userid"))
end if
conn.execute(sql) <----236行 请问这是不是指的sql的关闭数据库
else

----------------------------------------------------------
我的数据库应该是 access 的啊

[pyonline]

你在
conn.execute(sql)
前加上
response.write(sql)
response.end()

然后将得到的SQL语句到ACCESS里执行一下看出错在哪

好象那个now()这样不行吧,应该为'"&now()&"'