usergrantsave.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 40 行

ASP
40
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
vid = request("uid")

v_sRight = request("sRight")

vid=split(vid,",")
i=ubound(vid)
v_sRight = split(v_sRight,",")
for j=0 to i
v_id = trim(vid(j))
response.Write(j&":="&v_id&"<br>")

sql="select * from user_info where UserID = "&v_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if  not rs.eof  then
rs("Role_ID")=v_sRight(j)
rs.update
end if

rs.close
set rs = nothing
next
conn.close
set  conn = nothing
response.Redirect("manageruser.asp")
%>
<body>

</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?