遇到从没见过的麻烦中！！！

[ELement_DG]

无法对数据库中的值进行更新，不知道原因在哪里，请高手帮忙！！！

表 userb 字段 status

第一个页面 temp.asp 通过javascript语句进行跳转 ====>> User_AddStatus.asp 中

temp.asp 中 把用户名保存在cookies中

response.Cookies("Tem")("temp_username")=rs("username")

跳转到User_AddStatus中后 把值取出来了

===========================================================
<%
'获取当前用户名
dim Username,id,stats,sql
Username = request.Cookies("Tem")("temp_Username")

'对数据库进行查找操作
set rs_findByUsername = server.CreateObject("adodb.recordset")
rs_findByUsername.open "select * from [userb] where username='"&Username&"'",conn,1,1
id=rs_findByUsername("id") '把用户索引获取出来
stats=rs_findByUsername("status") '把用户当前状态值获取出来，状态status字段是整型

'对用户状态值进行判断
set rs_updateStatus = server.CreateObject("adodb.recordset")
rs_updateStatus.open sql,conn,3,3
if stats = 0 then
sql = "select * from [userb] where id = "&id&" order by id desc"
'对数据值进行修改操作
rs_updateStatus("status")=1
end if
if stats = 1 then
sql = "select * from [userb] where id = "&id&" order by id desc"
rs_updateStatus("status")=2
end if
if stats = 2 then
sql = "select * from [userb] where id = "&id&" order by id desc"
rs_updateStatus("status")=3
end if
rs_updateStatus.update
rs_updateStatus.close
set rs_updateStatus = Nothing
rs_findByUsername.close
set rs_findByUsername = Nothing
==================================================

之后对数据库进行查看，发现status值并没有被修改，我不知道问题出哪里了，数据库连接肯定没有问题，

[ELement_DG]

我是个初手，所以希望大家能帮帮忙

[凡夫与俗子]

'对用户状态值进行判断 
if stats = 0 then 
	sql = "update [userb] set status=0 where id = "&id&" order by id desc" 
end if  
if stats = 1 then 
	sql = "update [userb] set status=1 where id = "&id&" order by id desc" 
end if 
if stats = 2 then 
	sql = "update [userb] set status=2 where id = "&id&" order by id desc" 
end if 
conn.execute(sql)

'如果后面没有数据库操作就关闭连接
conn.close
set conn=nothing

[凡夫与俗子]

当然要考虑你的数据库连接是不是conn.open。。

[hookee]

<% 
'获取当前用户名 
dim Username,id,stats,sql  
Username = request.Cookies("Tem")("temp_Username") 

Response.Write Username

'对数据库进行查找操作 
set rs_findByUsername = server.CreateObject("adodb.recordset")  
rs_findByUsername.open "select * from [userb] where username='" & Username & "'",conn,1,3 
If rs_findByUsername.BOF And rs_findByUsername.EOF Then
    Response.Write "没有找到用户名"
    Response.End
Else
    id = rs_findByUsername("id")  '把用户索引获取出来 
    stats = rs_findByUsername("status").value    '把用户当前状态值获取出来，状态status字段是整型 
    If IsNumeric(stats) Then 
        stats = Cint(stats)
       Select Case stats
          Case 0 rs_findByUsername("status") = 1
          Case 1 rs_findByUsername("status") = 2
          Case 2 rs_findByUsername("status") = 3
       End Select
        rs_findByUsername.update 
    Else
       Response.Write "status is null"
    End If
End If
rs_findByUsername.close  
set rs_findByUsername = Nothing 
conn.Close
%>

[toury]

看看数据库所在的文件夹是不是没放开WEB用户的修改权限？