请高手帮忙做个管理权限无法单个写入数据库例如：
原有权限为：011000000000000000000000001110
我写入后第五个为1：011010000000000000000000001110
可是写入后变：000010000000000000000000000000
写入数据第五个是为1，可是其它变为0了，能写入第五个其它不要变吗？请高手帮忙，先谢谢！
for i = 1 to 30
if Request("Qdiyc" & i) = "1" then
Qdiyc = Qdiyc & "1"
else
Qdiyc = Qdiyc & "0"
end if
next
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From [user] Where Account='"&ID&"'",conn,3,2
rs("Qdiyc") = Qdiyc
s.Update
s.Close

275101203 专职代码开发，网站维护

for i = 1 to 30
if Request("Qdiyc" & i) = "1" then
Qdiyc = Qdiyc & "1"
else
Qdiyc = Qdiyc & "0"
end if
next
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From [user] Where Account='"&ID&"'",conn,3,2
rs.update("Qdiyc") = Qdiyc
's.Update
s.Close

对不起是这样的，谢谢！
for i = 1 to 30
if Request("Qdiyc" & i) = "1" then
Qdiyc = Qdiyc & "1"
else
Qdiyc = Qdiyc & "0"
end if
next
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From [user] Where Account='"&ID&"'",conn,3,2
rs.update("Qdiyc") = Qdiyc
rs.Update
rs.Close
谁能帮忙写出asp：
要求原有数据库是：000010000000000000000000000000
我要单独修改成为这个：000010000000000000000000000100
原有第五位1不变提交数据修改二十八位为1。自己想不出怎样写，请问这样能不能写出请高手帮忙。

谢谢！自己写好解决！