不能更新查询，因为它不含可用作键的搜索列

set rs_money=server.CreateObject("adodb.recordset")
sql="select money from love_user where username='"&Session("Current_user")&"'"
rs_money.open sql,conn,2,3
if rs_money.eof then
response.write"您还未登陆 或者 已经 超时退出，请重试!"
response.End()
else
if rs_money("money") < session("sum") then
response.write"对不起！您帐户的余额不足以支付您选购的商品，请充值后再试！"
response.end
else
rs_money("money")=rs_money("money")-session("sum")
rs_money.update
end if
rs_money.close
set rs_money=nothing
end if

若是XP系统，可试用系统还原解决。用它容易见效且不费时间。方法：右键“我的电脑”——属性——系统还原——设置——逐一关闭其它盘——监视C盘——确定。然后点“开始”——程序——附件——系统工具——系统还原。系统会提示你一步步恢复原点而恢复正常的。

select money from 改成 select * from 你试试