数据更新的问题?谢谢了!!!!!!!!

[xuwei214]

Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/renzi/answer.asp, line 64, column 13
Update adver set adv_money=monerycount WHERE id = &"edit_id"
---------------------------------------------------------------------------
就是要修改表adver中第一条记录的adv_money的值(每次减1)源代码如下:
<%
adv.movefirst
dim edit_id
edit_id=adv.fields.item("id").value

dim monerycount
monerycount=adv.fields.item("adv_money").value
monerycount=monerycount - 1
Update adver set adv_money=monerycount WHERE id = &"edit_id"
Response.write (adv.fields.item("adv_money").value)
%>

[一把编程的菜刀]

Update adver set adv_money=monerycount WHERE id = &"edit_id"
改成
Update adver set adv_money=monerycount WHERE id = &"edit_id

[sy_binbin]

Update adver set adv_money=monerycount WHERE id = &"edit_id&"

或

Update adver set adv_money=monerycount WHERE id = &"edit_id

[一把编程的菜刀]

Update adver set adv_money=monerycount WHERE id = &"edit_id"
改成
Update adver set adv_money=monerycount WHERE id ="&edit_id

晕，注意看了下，你这个是用的什么更新的？

什么写法哦？

[sy_binbin]

呵呵！

Update adver set adv_money="&monerycount&" WHERE id ="&edit_id

[xuwei214]

很遗憾的告诉大家,各位的答案都不对,而且错误都相同:语句没有结束.而且每次都在这个line 61,column 13位置.
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/renzi/answer.asp, line 61, column 13
Update adver set adv_money="&monerycount&" WHERE id ="&edit_id
------------^

请大家好好想想.谢谢

[sy_binbin]

<%
adv.movefirst
dim edit_id
edit_id=adv.fields.item("id").value

dim monerycount
monerycount=adv.fields.item("adv_money").value
monerycount=monerycount - 1
sql = "Update adver set adv_money=monerycount WHERE id = &"edit_id" "


Response.write (adv.fields.item("adv_money").value)
%>

[Anlige]

sql="Update adver set adv_money=adv_money-1 WHERE id = &"edit_id
conn.execute sql

[jhwcd]

sql="Update adver set adv_money=monerycount WHERE id = &"edit_id"改成
sql="Update adver set adv_money=monerycount WHERE id = "&edit_id

[bingo_]

<%
adv.movefirst
dim edit_id
edit_id=adv.fields.item("id").value

dim monerycount
monerycount=adv.fields.item("adv_money").value
monerycount=monerycount - 1
Conn.Execute("Update adver set adv_money="&monerycount&" WHERE id = &"edit_id )
'Conn对应改为你的Connection
Response.write (adv.fields.item("adv_money").value)
%>

[xuwei214]

谢谢楼上的,可是还是报错.

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/renzi/answer.asp, line 35, column 71
adver.Execute("Update adver set adv_money="&monerycount&" WHERE id = &"edit_id )
----------------------------------------------------------------------^
还请各位再想想.