check_str = request("check_str")
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编辑过]

where .. in 帮我解释下
这是专门用于数组的吗???
如果不是
那就有漏洞了

我没用过where ... in 不要笑哈

谁能告诉我 where ...in  语句的适用范围

sql="update text set check=0 where id in(" & "41,42,43" & ")"
conn.execute(sql)
response.write "成功"

刚才自己做了个实验试了下where ... in 语句,更本不行啊!

我晕,搞半天 check 是关键字 , 搞了我几个小时了!!!!!!!!!!!!!!


我 ()%*$%&()))^%^&*(()(*&*……&$

对了,望了感谢楼上的各位版主大人了
谢谢!