Question

ASP里如何提交表单时自动让ACCESS里的某个值-1

<select name="users" id="users">
<option>请指定访问者</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from users order by userid desc"
rs.open sql,conn,1,1

IF not rs.eof Then
do while Not rs.eof
%>
<option value="<%=rs("username")%>"><%=rs("username")%></option>
<%
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
end if
%> <option value="all">所有用户访问</option>

</select>

</label></td>
</tr>

<tr bgcolor=#eeeeee><td ></td><td><input type=Submit value="发 表" name=Submit>   <input type="reset" name="Submit2" value="清 除"></td></tr>
</form></table>

上面是源代码 ，表users里还有一个字段是shengyu用来记录每个用户的积分，我想实现的是如何在提交表单后可以自动让shengyu这个字段里的值减去1，比如这个用户里的shengyu值为50，提交这个表单后就变为49了，最好可以显示出来，谢谢各位了
说的具体点啊，现在我那个源码只能读出username还读不出shengyu呢

Answer 1

很简单啦，做一个隐藏值域 <input type="hidden" name="shengyu" id="shengyu" value=<%=shengyu%> />，不想隐藏就做个文本框显示积分
然后在提交处理的语句中写入：shengyu=cint(request("shengyu")-1)

给分吧

Answer 2

提交后的代码：

<%
dim username
username = request.form("users")

if username="" or username="请指定访问者" then
response.write("请指定访问者")
response.end
end if

if username="all" then
conn.execute("update users set shengyu=shengyu-1")
else
conn.execute("update users set shengyu=shengyu-1 where username='" & username & "'")
end if

%>

Answer 3

<%
shengyu=shengyu-1
%>
读表的还是你自己弄下吧，要注意表的提交方式