📄 list.asp
字号:
<!--#include file="../../System/Const.asp"-->
<%
if session("usertype")<>UTP_ASADMIN and session("usertype")<>UTP_ADMIN then
Response.Redirect "../../system/relogin.asp?Info=你的身份检查，出现错误！"
end if
%>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#CDC8CF" leftmargin="0" topmargin="10" >
<!--下面包含头文件-->
<!--#include file="Header.asp"-->
<!--下面包含显示所有用户的列表-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" bgcolor="#EFEFEF" height="20" valign="bottom"> 你现在的位置：公司管理－所有公司列表</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="15"></td>
<td width="764" height="15"> </td>
<td bgcolor="#8C9A8C" width="3" height="15"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" valign="top">
<form method="post" name="formDelete" id="formDelete">
<table class=unnamed1 border=0 cellspacing="1" cellpadding="5" bgcolor="C1C8C1" align="center" width="716" >
<tr valign=center bgcolor="#E3E3E3">
<td width="176" class="unnamed1"><b>公司名</b></td>
<td width="72" class="unnamed1"><b>公司管理员</b></td>
<td width="140" class="unnamed1"><b>已开/最大会议室数</b></td>
<td width="168" class="unnamed1"><b>已有/最大会员数</b></td>
<td width="44" class="unnamed1">
<div align="center"><b>修改 </b></div>
</td>
<td width="49" class="unnamed1">
<div align="center"><b>删除 </b></div>
</td>
<td width="49" class="unnamed1"><b>管理</b></td>
</tr>
<%
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set rsTemp=server.CreateObject("ADODB.recordset")
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from SCHOOL where ID in (select SID from TBL_ASADMIN_SCHOOL where UID="&session("userid")&") order by name",cn
while not rs.eof
rsTemp.Open "select ID from "&TBL_USER&" where SCHOOLID="&rs("ID")&"", cn,adOpenStatic
count_su=rsTemp.RecordCount
rsTemp.Close
rsTemp.Open "select ID from CLASS where SCHOOLID="&rs("ID")&"", cn,adOpenStatic
count_sc=rsTemp.RecordCount
rsTemp.Close
%>
<tr bgcolor="EFEFEF">
<td width="176" class="unnamed1"><%=rs("name")%></td>
<%
NameFromID=NA
rsTemp.Open "Select * from "&TBL_USER&" where ID="&rs("SAID")&" and TYPE="&UTP_SCHOOLADMIN&"",cn
if not rsTemp.EOF then
NameFromID=rsTemp("USERNAME")+"("+rsTemp("NICKNAME")+")"
sa_username=rsTemp("USERNAME")
sa_password=rsTemp("PASSWORD")
end if
rsTemp.Close
%>
<td width="72" class="unnamed1"><%=NameFromID%></td>
<td width="140" class="unnamed1"><%=count_sc%>/<%=rs("MAX_CLASS")%></td>
<td width="168" class="unnamed1"><%=count_su%>/<%=rs("MAX_USER")%></td>
<td width="44" class="unnamed1">
<div align="center"><a href="edit.asp?School_ID=<%=rs("ID")%>">修改</a>
</div>
</td>
<td width="49" class="unnamed1">
<div align="center"><a href=# onClick="jscript:OnDelete('delete.asp?School_ID=<%=rs("ID")%>')">删除</a>
</div>
</td>
<td width="49" class="unnamed1"><a href="../../SchoolAdmin/default2.asp?school_id=<%=rs("ID")%>" target="blank">管理</a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
</form>
</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
<td width="764" bgcolor="EFEFEF" height="21">
<div align="center"><%=COMPANY%></div>
</td>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
<tr>
<td height="4"></td>
</tr>
</table>
<script language=jscript>
function OnDelete(action)
{
var ret=showModalDialog("dlgyesno.asp","真要删除公司吗？","dialogWidth:300px;dialogHeight:120px;status:0;");
if (ret == "YES")
{
formDelete.action=action;
dodelete=true;
}
}
function timer()
{
if (dodelete)
formDelete.submit();
else
timer_id = setTimeout("timer()", 200); // every 200ms
}
timer_id = setTimeout("timer()", 200); // every 200ms
dodelete=false;
</script>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -