Question

asp 数据库更新不进去

代码如下：
tid =request("tid")
if tid <> "" then
field1=array("xm","xb","sr","jg","mz","gzsj","zzmm","xl","drsj","ygxs","hyzk","jkzk","ryfl","da","sfz","xxzz","sf","lxdh","zp")
value1=array(xm,xb,sr,jg,mz,gzsj,zzmm,xl,drsj,ygxs,hyzk,jkzk,ryfl,da,sfz,xxzz,sf,lxdh,zp)
sql1="UPDATE rensi_base SET "

for i=0 to ubound(field1)
sql1 = sql1 & field1(i) & "='" & replace(value1(i),"'","''") & "'"
if i <> ubound(field1) then
sql1=sql1 & ","
else
sql1=sql & " where tid=" & tid
end if
next

field2=array("study","working","fanly")
value2=array(study,working,fanly)
sql2="UPDATE study_working_fanly SET "
for i=0 to ubound(field2)
sql2 = sql2 & field2(i) & "='" & replace(value2(i),"'","''") & "'"
if i <> ubound(field2) then
sql2=sql2 & ","
else
sql2=sql2 & " where tid=" & tid
end if
next

field3=array("wy","slcd","jsjsp","ah","jcjl","gwbdjl","bz")
value3=array(wy,slcd,jsjsp,ah,jcjl,gwbdjl,bz)
sql3="UPDATE rensi_other SET "

for i=0 to ubound(field3)
sql3 = sql3 & field3(i) & "='" & replace(value3(i),"'","''") & "'"
if i <> ubound(field3) then
sql3=sql3 & ","
else
sql3=sql3 & " where tid=" & tid
end if
next
end if

conn.Execute sql1
conn.Execute sql2
conn.Execute sql3

前两句SQL 都能进数据库，但是sql3不能进，求指教
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e57'
[Microsoft][ODBC SQL Server Driver][SQL Server]将截断字符串或二进制数据。
/myrenshi/rensi_base_edit.asp，行 109

报错这个

Answer 1

1. 建议你在调试网页时，先将
on error resume next
去掉，因为你在第三行加了这句，导致你的网页错误信息被掩盖，所以出了错都找不到原因。

2. 去掉后看看网页上的错误提示，再对症下药就解决了。
初步判断，应该是 SQL 语法错误，其中多了一个逗号，将它去掉，即改成：
conn.execute "insert into fan (username) values('" & username & "')"

username 后的逗号要去掉！

________________________________________________________________

建议将conn.open connstr,1,3
修改成
conn.open connstr, 3, 3