注册 登录
编程论坛 ASP技术论坛

有些IEl浏览器打开我的论坛时提示有错误信息,求助

joss1982 发布于 2007-05-23 14:26, 692 次点击

有些浏览器访问我得论坛时会出现以下错误,请问有没有解决方法阿?


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft JET Database Engine 错误 '80040e57'

字段太小而不能接受所要添加的数据的数量。试着插入或粘贴较少的数据。

/nb/bbs/inc/char.asp,行292

以下是281行-292行的代码:
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)



5 回复
#2
shdyh9772007-05-23 14:45
你的程序明显最后少了 end if

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)

rs.close
end if
#3
joss19822007-05-23 15:38
回复:(joss1982)有些IEl浏览器打开我的论坛时提示有...
我加了呀但是还是不行。
#4
lq73506842007-05-24 09:08

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 or 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)
end if

这样试试.

#5
joss19822007-08-28 16:03

这个问题已经解决,是数据库存储浏览器信息的字段对于使用繁体的IE7.0的用户太短,把字段加长就好了。谢谢楼上两位的答复。

#6
论坛元老2008-04-02 14:34
路过,顶一下
1