多选投票怎么做啊？我怎么做都不对啊

[charkie]

这是显示投票选项的语句：

for ItemSerial=1 to ItemCnt '//对每个选项
response.write "<input type=checkbox name=cb_"&CStr(rsItem("ItemID"))&" value=on>"&rsItem("ItemLabel")&"<br>"
’//显示，名称为cb_加上它在数据库中选项的ID
rsItem.moveNext()
next


这是提交的语句：

Do While NOT rsItem.EOF//////逐个检查选项
vItem="cb_"&CStr(rsItem("ItemID"))
if request(vItem)="ON" then////////如果勾选
/////////如果写为request("vItem")效果是一样的
vItemCount=rsItem("ItemCount")+1将该选项的票数加1
sql="Update VoteItem SET ItemCount="&vItemCount&" WHERE ItemID="&vItem
response.write sql/////////显示sql语句以检查
conn.Execute sql
end if
rsItem.MoveNext()
LOOP

这样进行之后，sql语句没有显示
请大家帮忙分析一下，到底错在哪里？

[jarraytan]

呵呵。有个简单的错误。

if request(vItem)="ON" then////////如果勾选

"))&" value=on>"&

看到没？前面选中后value是on,所以这里应该用 if request(vItem)="on" then

其他有没错误没看。先改了这个看看吧。

[charkie]

改了和没改一模一样

[位流]

vitem = request(vItem)
vitem = replace(vitem," ","")
while instr(vitem, ",,")>0
vitem = replace(vitem, ",,", ",")
wend
if left(vitem,1)="," then
vitem = right(vitem,len(vitem)-1)
end if
if right(vitem,1)="," then
vitem = left(vitem,len(vitem)-1)
end if
sql="Update VoteItem SET ItemCount="& vItemCount & " WHERE ItemID in (" & vItem & ")"
conn.execute sql


这样就搞掂了.

如果有什么不明白，请访问http://www.eob.cn/bbs

[位流]

sql="Update VoteItem SET ItemCount="& vItemCount & " WHERE ItemID in (" & vItem & ")"

这句改一改

sql="Update VoteItem SET ItemCount=ItemCount+1 WHERE ItemID in (" & vItem & ")"