📄 frmuser.asp
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<link rel="stylesheet" href="header.css" type="text/css">
<%
if session("usertype")<>UTP_SCHOOLADMIN and session("usertype")<>UTP_ASADMIN and session("usertype")<>UTP_ADMIN then
Response.Redirect "../system/relogin.asp?Info=你的身份检查，出现错误！"
end if
%>
<%
if request("class_id")<>"" then session("class_id")=request("class_id")
if request("class_name")<>"" then session("class_name")=request("class_name")
if request("owner_status")<>"" then session("owner_status")=request("owner_status")
if request("class_createbyadmin")<>"" then session("class_createbyadmin")=request("class_createbyadmin")
if Request("sql")="All" then
session("sql")=""
if session("class_id")=0 and session("owner_status")=0 then session("sql")="where ID not in (select UID from ClassUser)"
if session("class_id")=0 and session("owner_status")=1 then session("sql")="where ID in (select UID from ClassUser)"
if session("class_id")<>0 and session("owner_status")=0 then session("sql")="where ID not in (select UID from ClassUser where CID="&session("class_id")&")"
if session("class_id")<>0 and session("owner_status")=1 then session("sql")="where ID in (select UID from ClassUser where CID="&session("class_id")&")"
session("sql") = session("sql")+" and (TYPE<>"&UTP_ADMIN&" and TYPE<>"&UTP_TEACHER&") and SCHOOLID="&session("school_id")&""
session("AbsolutePage")=1
end if
if request("PageSize") <> "" then session("PageSize") = clng(request("PageSize"))
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set resultAll=server.CreateObject("ADODB.recordset")
strSQLAll="select * from "&TBL_USER&" " + session("sql")
strSQLAll=strSQLAll+" order by username"
'Response.Write strSQLALL
'Response.End
resultAll.Open strSQLAll,cn,adOpenStatic
resultAll.PageSize=session("PageSize")
'Response.Write resultAll.PageCount
' if resultall.RecordCount =0 then
' Response.Write "<p align=center>该会议室没有用户。</p>"
' Response.Write "<p align=right><a href='vbscript:history.back'>返回</a></p>"
' response.end
' end if
'Response.Write AbsolutePage
if isnumeric(trim(Request.QueryString("AbsolutePage"))) then
session("AbsolutePage")=clng(trim(Request.QueryString("AbsolutePage")))
else
select case Request.QueryString("Direction")
case "FirstPage": session("AbsolutePage")=1
case "PreviousPage": session("AbsolutePage")=session("AbsolutePage")-1
case "NextPage": session("AbsolutePage")=session("AbsolutePage")+1
case "LastPage": session("AbsolutePage")=ResultAll.PageCount
case else:
end select
end if
if resultAll.PageCount<session("AbsolutePage") then
session("AbsolutePage")=resultAll.PageCount
else
if session("AbsolutePage")<1 then session("AbsolutePage")=1
end if
%>
<HTML>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="10" >
<!--下面包含头文件-->
<!--下面包含显示所有用户的列表-->
<table width="570" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<form action="frmUser.asp" method=get id=form2 name=form2 height=30>
<td width="665" height="28">
<%select case session("owner_status")
case 0: owner_statusname="无会议权限用户"
case 1: owner_statusname="有会议权限用户"
case 2: owner_statusname="申请选课用户"
end select%>
<div align="right"><b><%=session("class_name")+"("+owner_statusname+")"%><br></b>
每页最多显示
<input maxlength=3 size=3 name="pagesize" id="pagesize" value=<%=session("pagesize")%>>
条记录(点击"Go"生效！)
<input maxlength=3 size=3 name="AbsolutePage" id="AbsolutePage">
页
<input type=submit value=" Go " id=submit1 name=submit1 class="font9">
<% if session("AbsolutePage")>1 then %>
<a href="frmUser.asp?Direction=FirstPage">首页</a> <a href="frmUser.asp?Direction=PreviousPage">上页</a>
<% else %>
首页 上页
<% end if %>
<% if session("AbsolutePage")<ResultAll.PageCount then %>
<a href="frmUser.asp?Direction=NextPage">下页</a> <a href="frmUser.asp?Direction=LastPage">尾页</a>
<% else %>
下页 尾页
<% end if %>
<%=session("AbsolutePage")%>/<%=ResultAll.PageCount%>页
</div>
</td>
</form>
</tr>
<tr>
<td width="665" valign="top">
<%if session("owner_status")=1 then
owner_action=0
owner_actionname="取消开会权限"
else
owner_action=1
owner_actionname="允许参加会议"
end if %>
<form method="post" action="setowner.asp?owner_action=<%=owner_action%>&class_id=<%=session("class_id")%>" name="formSetOwner" id="formSetOwner" width="100%">
<table width="98%" border="0" bgcolor="D1D8D0" align="center">
<tr bgcolor="EFEFEF">
<td width="9%">
<input type="button" name="btSelAll" value="全选" onClick=Jscript:SelectAll()>
</td>
<td width="11%"><b>用户名</b></td>
<td width="12%"><b>昵称</b></td>
<td width="13%"><b>用户类型</b></td>
<td width="13%"><b>密码</b></td>
<td width="6%"><b>性别</b></td>
<td width="25%"><b>E-Mail</b></td>
<td width="11%"><b>开会状态</b></td>
</tr>
<% if session("AbsolutePage")>0 and resultAll.PageCount<>0 then resultAll.AbsolutePage=session("AbsolutePage")
for i=1 to resultAll.PageSize
if resultAll.EOF then exit for %>
<tr bgcolor="EFEFEF">
<td width="9%">
<input type="checkbox" value="<%=resultAll("id")%>" name="SelectedUser">
</td>
<td width="11%"> <%=resultAll("USERNAME")%></td>
<td width="12%"> <%=resultAll("NICKNAME")%></td>
<td width="13%"> <%=NameFromID(cn, "DIC_USERTYPE","ID","NAME", resultAll("TYPE"))%></td>
<td width="13%"> <%=resultAll("PASSWORD")%></td>
<td width="6%"> <%=NameFromID(cn, "DIC_SEX","ID","NAME", resultAll("SEX"))%></td>
<td width="25%"> <%=resultAll("MailAdd")%></td>
<td width="11%">
<%if session("owner_status")=0 then
status="未选"
else
status="已选"
end if
%>
<%=status%>
</td>
</tr>
<%resultall.movenext
next%>
</table>
<%if session("class_id")<>0 then %>
<p align="center">
<%if session("class_createbyadmin")="False" then %>
<input type="button" value="<%=owner_actionname%>" id="setowner" name="setowner" onclick="jscript:OnSetOwner()">
<%end if%>
</p>
<%end if%>
</form>
</td>
</tr>
</table>
<script language=jscript>
var isChecked
ischecked=true;
function SelectAll()
{
var i;
var a = document.all.item("SelectedUser");
if (a != null)
{
if (a.length!=null)
{
for (i=0; i<a.length; i++)
a(i).checked=ischecked;
}
else
{
a.checked=ischecked;
}
if (ischecked)
ischecked=false;
else
ischecked=true;
}
}
function OnSetOwner()
{
var a = document.all.item("SelectedUser");
if (a != null)
document.formSetOwner.submit();
}
</script>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -