<%
qxsetid=session("qxid") ‘获取用户ID
rc = Request.Form("chkAll").Count ’复选框记录数
if rc>=2 then
'删除会员原有的所有权限
sql="delete from tbAuthorization where UserId="&qxsetid
rs.open sql,conn,1,3
rs.close
set rs=nothing
for i = 1 to rc
'取到选中项的个数
rv = Request.Form("chkAll")(i)
session(i)=rv
session("LX"&(i))=Split(session(i),":")(0) ‘权限类型值
session("zhi"&(i))=Split(session(i),":")(1) ’菜单分类ID值
next
i = 1
set rs=server.CreateObject("adodb.recordset")
sql="Select * from tbAuthorization"
rs.open sql,conn,3,2
for i = 1 to rc
rs.addnew
rs("UserId")=qxsetid
rs("ColumnId")= session("zhi"&(i))
if session("LX"&(i))="r" then rs("canRead")=-1
elseif session("LX"&(i))="w" then rs("canWrite")=-1
elseif session("LX"&(i))="m" then rs("canModify")=-1
elseif session("LX"&(i))="d" then rs("canDelete")=-1
elseif session("LX"&(i))="c" then rs("canCheck")=-1
end if
rs.update
next
rs.close
set rs=nothing
end if
%>
怎么不能写入数据库,那里出错?
ASP读取复选框 chkAll 的值,写入数据库。
答案:2 悬赏:70 手机版
解决时间 2021-04-06 21:21
- 提问者网友:一抹荒凉废墟
- 2021-04-06 02:55
最佳答案
- 五星知识达人网友:不想翻身的咸鱼
- 2021-04-06 03:18
rs.open sql,conn,3,2 游标为什么不改成
rs.open sql,conn,1 ,3呢??没提示什么错误码??数据库有没有给定权限呢?还不行,那你就一步一步打印值看看,是不是从哪里开始就没有执行了
rs.open sql,conn,1 ,3呢??没提示什么错误码??数据库有没有给定权限呢?还不行,那你就一步一步打印值看看,是不是从哪里开始就没有执行了
全部回答
- 1楼网友:北方的南先生
- 2021-04-06 04:29
你说呢...
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯