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

缺少 'End'

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

Microsoft JET Database Engine 错误 '80040e57'

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

/bbs/inc/online.asp，行17


dim ComeFrom,actCome,statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
set rs=server.createobject("adodb.recordset")
if membername="" then
if session("userid")="" then
ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
sql="select id from online where id="&statuserid
rs.open sql,conn,0,1
if rs.eof and rs.bof then
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
"("&statuserid&",'客人','客人','"&_
Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
conn.execute(sql)(*错误的地方*)
else
sql="update online set lastimebk=Now(),boardid="&boardid&" where id="&statuserid
conn.execute(sql)
end if
rs.close

很明显是数据库中的字段长度设置小了，而插入的数据太大

把数据库中字段的长度设置足够大就可以了，或者加判断，超过长度就截断

我已经把字段的长度设为255了，
也把字段设为备注了，
两个都还是不行也。。。
还有其他方面的原因吗？

把出错页的全部代码帖上来看看

<%
dim ComeFrom,actCome,statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
set rs=server.createobject("adodb.recordset")
if membername="" then
if session("userid")="" then
ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
sql="select id from online where id="&statuserid
rs.open sql,conn,0,1
if rs.eof and rs.bof then
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
"("&statuserid&",'客人','客人','"&_
Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
conn.execute(sql)
else
sql="update online set lastimebk=Now(),boardid="&boardid&" where id="&statuserid
conn.execute(sql)
end if
rs.close
else
sql="select id from online where id="&cstr(session("userid"))
rs.open sql,conn,1,3
if rs.eof and rs.bof then
ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
"("&statuserid&",'客人','客人','"&_
Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
conn.execute(sql)
else
sql="update online set lastimebk=Now(),boardid="&boardid&" where id="&cstr(session("userid"))
conn.execute(sql)
end if
end if
session("userid")=statuserid
else
sql="select id from online where username='"&membername&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
"("&statuserid&",'"&membername&"','"&memberclass&"','"&_
Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
conn.execute(sql)
else
sql="update online set lastimebk=Now(),boardid="&boardid&" where username='"&membername&"'"
'response.write sql
conn.execute(sql)
end if
rs.close
if session("userid")<>"" then
Conn.Execute("delete from online where id="&session("userid"))
session("userid")=""
end if
end if
set rs=nothing

sql="Delete FROM online WHERE DATEDIFF('s', lastimebk, now()) > "&kicktime&"*60"
Conn.Execute sql
%>

楼主的问题我也碰到过,已解决了,所以特来说出来,因为这问题太头痛了.

我出现问题是用到的更新语句处:
sql="update detail set admin='"&ty&"',office='"&tr&"',flag='"&tu&"',saleman='"&a6&"',time2=now(),shortname='"&a&"',direct='"&i3&"',history1='"&a27&"', letter='"&b&"',followup='"&i2&"',companychi='"&e&"',companyeng='"&c&"',companychieng='"&f&"',address='"&d&"',addresschi='"&d1&"',post='"&u&"',boothnumber='"&i&"',email='"&a0&"',phone='"&a4&"',fax='"&a5&"',website='"&a26&"',country='"&l&"',countrychi='"&l1&"',instreng='"&m&"',instrchi='"&n&"',hall='"&f1&"',zone1='"&h&"',representby='"&e1&"',attached='"&i1&"',new1='"&c1&"'where id1="&yy
myconn.execute sql

运行就出现您那个问题,检查来检查去,都没问题,而且要加备注的地方也都加了,实在是郁闷,后来我就把这语句改成这样:
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from detail where id1="&yy,myconn,3,3
rs("admin")=ty
rs("office")=tr
rs("flag")=tu
rs("saleman")=a6
rs("time2")=now()
rs("shortname")=a
rs("direct")=i3
rs("letter")=b
rs("followup")=i2
rs("history1")=a27
rs("companychi")=e
rs("companyeng")=c
rs("companychieng")=f
rs("address")=d
rs("addresschi")=d1
rs("post")=u
rs("boothnumber")=i
rs("email")=a0
rs("phone")=a4
rs("fax")=a5
rs("website")=a26
rs("country")=l
rs("countrychi")=l1
rs("instreng")=m
rs("instrchi")=n
rs("hall")=f1
rs("zone1")=h
rs("representby")=e1
rs("attached")=i1
rs("new1")=c1
rs.update
rs.close
set rs=nothing
没想到它提示的行是shortname行错误,在数据库里一改,运行成功了.所以啊,建议大家以后写更新语句不要用update语句,一来句子太长,二来出错又只指到这一行,不好检查错误.

我觉得发现这问题太重要了,特向楼主申请加精!!!