请问——这段代码到底那里出了错？

[keke09]

情况：数据库了有数据 user是字段名，我的调试环境是w2000，vbscript
提示：aaa=rs("curvalue")这句有错。（有时还说user=Request.QueryString("user") ）很急，希望得到答案。谢谢。

<%
Set conn = Server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("count.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
user=Request.QueryString("user")

'计数值加1
sql="update counttable set curvalue=curvalue+1 where user='" & user & "'"

set rs=conn.Execute(sql)
sql="select curvalue from counttable where user='" & user & "'"
set rs=conn.Execute(sql)
'定义chgimg函数,将计数值用图形表示

function chgimg(curvalue)
s=curvalue
for i=1 to len(s)
'请注意,在正式使用计数器时,图片的路径一定要使用实际路径
g=g & "<img src=1/" & mid(s,i,1) & ".gif align=bottom>"
next
chgimg=g
end function
'调用chgimg函数(传入计数器值)
aaa=rs("curvalue")
'toimg=chgimg(rs("curvalue"))
toimg=chgimg(aaa)

toimg="document.write(" & "'" & toimg & "')"

''输出
Response.Write(toimg)
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>

[karma]

1. change
where user
to
where [user]

2. make sure
if not rs.eof then
aaa=rs("curvalue")
end if

[tripofdream]

建议在建表时不要使用SQL SERVER保留关键字,例如上面的"uesr",如果使用了这些关键字,在引用时要加上"[]"号.

[keke09]

二位，非常谢谢。
我再说个题外话，我按照二位的说法，改了后，就好用了，之后，我又恢复到原来的情况，也好用。真怪（其实，这段代码，以前也是好用的，不知道怎么的，就突然不好用，经过二位的帮忙又好用，改到原来又好用了）。太奇怪了，转来转去，我自己都迷糊了，真不知道到底是怎么了，系统？还是程序？哈哈