isadminno.asp

来自「测试上除办公系统综合办公系统办公系统办公系统」· ASP 代码 · 共 44 行

ASP

44 行

<!--#include file="conn.asp"-->
 <%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%><html>


<%
  paperno=request("paperno")
 flag=request("flag")
kcid=request("kcid")
username=request("username")
  sql="SELECT * from tbuser where username='"&username&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2

 userid=rs("userid")

sql1="SELECT  * from tbscore  where username='"&username&"'   and kcid="&kcid&" and  paperno="&paperno
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

do while  not rs1.eof 

 
   rs1("isadmin")=0
 
 
    rs1.update

rs1.movenext

loop

 
if flag=1 then
   response.redirect "adminscoretype1.asp?userid="&userid&"&kcid="&kcid&"&paperno="&paperno
else
    response.redirect "adminscoreedit.asp?userid="&userid&"&paperno="&paperno

 end if
%>

isadminno.asp - 源码说明

本页面展示了「测试上除办公系统综合办公系统办公系统办公系统」中的 isadminno.asp 源码文件，采用 ASP 编程语言编写，共 44 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与测试相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?