<%If request("submitok")="zj" then

conn.execute"update main set grade=grade+1 where username='"&request.form("username")&"'"

其中的grade，我想限定一个最大值，不想在每次操作的时候都增长，比如最大值定为5，那么我该怎么加语句呢？

如果前面没有打开过main数据库，是不是还set...open...main啊？
我使用的 if request("grade")<5 then 放前面不管用，还是不受 5 限制。

请大家帮忙，谢谢

可以前面读取一下进行判断
或者加个函数比如
<%If request("submitok")="zj" then
Function IsMaxGrade(UsName)
Dim rsIMG
Set rsIMG=conn.Execute("select grade from [main] where username='"&UsName&"'")
IF rsIMG("grade")>5 Then
IsMaxGrade=True
Else
IsMaxGrade=False
End IF
End Function
IF IsMaxGrade(request.form("username"))=False Then
conn.Execute"update main set grade=grade+1 where username='"&request.form("username")&"'"
End IF

有点复杂哦，好的，我试试看。不过请问，我这么写为什么不对呢？
<%If request("submitok")="zj" Then
set rs1=Server.CreateObject("ADODB.recordset")
rs1.open "select grade from love_main where username='"&username&"'",conn,1,1
if request("grade")<5 then
conn.execute"update love_main set grade=grade+1 where username='"&request.form("username")&"'"
else
conn.execute"update love_main set grade='5' where username='"&request.form("username")&"'"
end if

request("grade") 是 GET 方式的表单值，并非 rs1.Open... 得到的值
应改成 rs1("grade")

grade是数字类型吗
这样
conn.execute"update love_main set grade=5 where username='"&request.form("username")&"'"

这样好像不行

后来我这样写了

conn.execute"update love_main set grade=grade+1 where username='"&request.form("username")&"' and grade<5"

现在还有什么问题吗?