savespower.asp

来自「一套在线考试系统」· ASP 代码 · 共 36 行

<!--#include file="conn.asp"-->
<%
Dim userid
Dim i
Dim diresu
Dim j

userid=request("userid")
userid=split(userid,",")
i=ubound(userid)

for j=0 to i
  sql="select * from cadre_info where userid="& cint(userid(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs("spower")=""
  rs.update
  rs.close
  end if
next
diresu=request("diresu")
diresu=split(diresu,",")
i=ubound(diresu)
for j=0 to i
  sql="select * from cadre_info where userid="& cint(diresu(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs("spower")="A"
  rs.update
  rs.close
  end if
next
response.redirect "adminspower.asp"
%>