arr = Split(check_str,",")
n=ubound(arr)
'response.Write n
dim sh_str
sh_str=""
for i=0 to n
sh_str=arr(i)
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select check from p_news where id=" & sh_str
rs1.open sql1,conn,1,1
if not rs1.bof or rs1.eof then
sql2="update p_news set check=1 where id=" & sh_str
else
response.write "<Script language=javascript>" & chr(13) & "alert('数据库出错!');" & "history.back()" & "</Script>"
end if
conn.execute(sql2) '这行错误
rs1.close
set rs1=nothing
set sql1=nothing
set sql2=nothing
next
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。
[此贴子已经被作者于2007-3-28 11:05:44编辑过]