📄 frmuser.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->

<link rel="stylesheet" href="header.css" type="text/css">
<%
	if session("usertype")<>UTP_TEACHER and session("usertype")<>UTP_CLASSADMIN then 
		Response.Redirect "../../system/relogin.asp?Info=你的身份检查，出现错误！"
	end if	
%>

<%
	if Request.QueryString("sql")<>"" then 
		if Request.QueryString("sql")="All" then
			session("sql")=" where TYPE="&UTP_STUDENT&" and ID in (select UID from CLASSUSER where CID="&request("class_id")&")"
		else 
			session("sql")=Request.QueryString("sql")
		end if
		session("AbsolutePage")=1
	end if
	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 ID"
	'Response.Write strSQLALL
	'Response.End 
	
	 resultAll.Open strSQLAll,cn,adOpenStatic 
	 resultAll.PageSize=10
         '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="565" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="46%">
  <tr> 
    <form action="frmuser.asp" method=get id=form2 name=form2 height=30>
      <td width="615" height="28"> 
	  <input type="hidden" name="class_id" value="<%=request("class_id")%>">
	  <input type="hidden" name="class_name" value="<%=request("class_name")%>">
        <div align="right">
		 <b>当前会议室：<%=request("class_name")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b>
		 <nobr> 
          <input maxlength=3 size=3 name="AbsolutePage" id="AbsolutePage">
          页 
          <input type=submit value=" Go " id=submit1 name=submit1 class="font9">
          &nbsp; 
          <%	if session("AbsolutePage")>1 then	%>
          <a href="frmuser.asp?Direction=FirstPage&class_id=<%=request("class_id")%>&class_name=<%=request("class_name")%>">首页</a> <a href="frmuser.asp?Direction=PreviousPage&class_id=<%=request("class_id")%>&class_name=<%=request("class_name")%>">上页</a> 
          <%	else					%>
          首页 上页 
          <%	end if	%>
          <%	if session("AbsolutePage")<ResultAll.PageCount then	%>
          <a href="frmuser.asp?Direction=NextPage&class_id=<%=request("class_id")%>&class_name=<%=request("class_name")%>">下页</a> <a href="frmuser.asp?Direction=LastPage&class_id=<%=request("class_id")%>&class_name=<%=request("class_name")%>">尾页</a> 
          <%	else							%>
          下页 尾页 
          <%	end if							%>
          <%=session("AbsolutePage")%>/<%=ResultAll.PageCount%>页&nbsp; </nobr> 
        </div>
      </td>
    </form>
  </tr>
  <tr> 
    <td width="615" valign="top"> 
      <form method="post" action="delete.asp" name="form1" id="form1" width="100%">
        <table width="98%" border="0" bgcolor="D1D8D0" align="center">
          <tr bgcolor="EFEFEF"> 
            <td width="13%"><b>用户名</b></td>
            <td width="13%"><b>昵称</b></td>
            <td width="10%"><b>用户类型</b></td>
            <td width="6%"><b>性别</b></td>
            <td width="24%"><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=0 to resultAll.PageSize			
			 if resultAll.EOF then exit for	%>
          <tr bgcolor="EFEFEF"> 
            <td width="13%">&nbsp;<a href ="detail.asp?user_id=<% =resultAll("ID")%>" title="详细资料"><%=resultAll("USERNAME")%></a></td>
            <td width="13%">&nbsp;<%=resultAll("NICKNAME")%></td>
            <td width="10%">&nbsp;<%=NameFromID(cn, "DIC_USERTYPE","ID","NAME", resultAll("TYPE"))%></td>
            <td width="6%">&nbsp;<%=NameFromID(cn, "DIC_SEX","ID","NAME", resultAll("SEX"))%></td>
            <td width="24%">&nbsp;<%=resultAll("MailAdd")%></td>
            <td width="11%"><a href="frmUserCourseLog.asp?class_id=<%=request("class_id")%>&class_name=<%=request("class_name")%>&user_id=<%=resultAll("ID")%>&user_name=<%=resultAll("USERNAME")%>">查看</a></td>
          </tr>
          <%resultall.movenext
        next%>
        </table>
        <p align="center">&nbsp;</p>
      </form>
    </td>
  </tr>
</table>


</BODY>
</HTML>
⌨️ 快捷键说明

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