📄 listclassuser.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<link rel="stylesheet" href="header.css" type="text/css">

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS

	set resultAll=server.CreateObject("ADODB.recordset")
	strSQLAll="select * from "&TBL_USER&" where ID in (select UID from CLASSUSER where CID="&request("class_id")&")" 
	strSQLAll=strSQLAll+" order by TYPE,USERNAME"
	'Response.Write strSQLALL
	'Response.End 
	resultAll.Open strSQLAll,cn
%>	

<HTML>
<BODY bgcolor="#CDC8CF" leftmargin="0" topmargin="10" >
<!--下面包含头文件-->
<!--下面包含显示所有用户的列表--><br>
<table width="82%" border="0" bgcolor="#000000" align="center" cellspacing="1" height="73" cellpadding="2">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="6" height="34"><b>公司：</b> 
      <%school_id=NameFromID(cn, "CLASS", "ID", "SCHOOLID", clng(request("class_id")))%>
      <%=NameFromID(cn, "SCHOOL", "ID", "NAME", school_id)%> <b>会议室：</b><%=NameFromID(cn, "CLASS", "ID", "NAME", clng(request("class_id")))%> 
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="22%" height="19"><b>用户名</b></td>
    <td width="21%" height="19"><b>昵称</b></td>
    <td width="12%" height="19"><b>用户类型</b></td>
    <td width="14%" height="19"><b>密码</b></td>
    <td width="7%" height="19"><b>性别</b></td>
    <td width="24%" height="19"><b>E-Mail</b></td>
  </tr>
  <% while not resultAll.EOF %>
  <tr bgcolor="#FFFFFF"> 
    <td width="22%" height="17">&nbsp;<%=resultAll("USERNAME")%></td>
    <td width="21%" height="17">&nbsp;<%=resultAll("NICKNAME")%></td>
    <td width="12%" height="17">&nbsp;<%=NameFromID(cn, "DIC_USERTYPE","ID","NAME", resultAll("TYPE"))%></td>
    <td width="14%" height="17">&nbsp;<%=resultAll("PASSWORD")%></td>
    <td width="7%" height="17">&nbsp;<%=NameFromID(cn, "DIC_SEX","ID","NAME", resultAll("SEX"))%></td>
    <td width="24%" height="17">&nbsp;<%=resultAll("MailAdd")%></td>
  </tr>
  <%resultall.movenext
        wend%>
</table>
<br>
</BODY>
</HTML>
⌨️ 快捷键说明

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