看看这样修改语句有没有错

[yuren5340468]

set rs5=server.createobject("adodb.recordset")
rs5.supports adupdate
sql5="update project set status=1 where id="&request("pro_id")"
rs5.open sql5,conn,1,1

[shines77]

首先检查是否包含了
<!--#include file="adovbs.inc"-->

如果没有，则自己定义
Const adUpdate = &H01008000

还有，rs5.supports adupdate是检测rs5是否支持更新，而且你还没有open就执行这句是没有意义的，其实这句在这里没有什么用，如果你真的要检测的话应该是这样的。

dim bSupportUpdate

dim pro_id
pro_id=request("pro_id")

'你要防止pro_id参数为空，一般id是不会有0的，如果是主键的话
if pro_id="" then pro_id="0"

set rs5=server.createobject("adodb.recordset")
sql5="update project set status=1 where id="&pro_id
rs5.open sql5,conn,1,1
'改用rs5.execute(sql5)更好

'bSupportUpdate=true 表示支持update，等于false表示不支持
bSupportUpdate=rs5.supports adupdate

[shines77]

错了，最后一句应该是：
bSupportUpdate=rs5.supports(adupdate)

[chenxingbai]

set rs5=server.createobject("adodb.recordset")
rs5.supports adupdate
sql5="update project set status=1 where id="&request("pro_id")"
rs5.open sql5,conn,1,1

那么复杂
直接用
sql5="update project set status=1 where id="&request("pro_id")"
conn.execute sql5
就行了