📄 classlist.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="const.asp" -->
<!-- #include file="char.asp" -->
<%


	dim orders,ordername

	if not isInteger(request("orders")) or request("orders")="" then
		orders=1
	else
		orders=request("orders")
	end if

	select case orders
	case 1
		orders=1
		ordername="班级人气Top10"
	case 2
		orders=2
		ordername="班级成员Top10"
	case 3
		orders=3
		ordername="最新注册班级"
	case 7
		orders=7
		ordername="所有班级列表"
	case else
		orders=1
		ordername="班级人气Top10"
	end select
	
	dim totalPages,currentPage
	currentPage=request.querystring("page")
	stats=ordername
%>
<HTML><HEAD><TITLE><%=SchoolmateName%>——<%=ordername%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">

<META content="MSHTML 5.50.3825.1300" name=GENERATOR>
<script language="JavaScript" src="script/jsfun.js"></script>
</HEAD>
<BODY topmargin="0" leftmargin="0">
<script language="JavaScript" src="script/jsfun.js"></script>
<!--#INCLUDE FILE="script/popup.inc" -->
<br><br>

    <table width=85% bgcolor=<%=TableborderColor%>  cellspacing=0 border=0  align=center>
    	<tr>
	        <td>
        	
<table cellpadding=6 cellspacing=1 border=1 width=100% bgcolor=<%=TableborderColor%> bordercolor=<%=TableborderColor%> bordercolorlight=<%=TablebodyColor1%>  bordercolordark=<%=TablebodyColor1%>>
<form method="POST" action="ClassList.asp"> 
<tr bgcolor=<%=TablebodyColor1%>> 
<td colspan=5 valign=top width=350 align=center>&nbsp;<img src=images/classlist.gif>
<font face=宋体>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;总注册班级数：<%=classes%></font></td>
<td colspan=2 align=right> 
<select name=orders onchange='javascript:submit()'>
<option value=1 <%if orders=1 then%>selected<%end if%>>班级人气Top10</option>
<option value=2 <%if orders=2 then%>selected<%end if%>>班级成员Top10</option>
<option value=3 <%if orders=3 then%>selected<%end if%>>最新注册班级</option>
<option value=7 <%if orders=7 then%>selected<%end if%>>所有班级列表</option>
</select>
</td>
</tr></form>
<tr bgcolor=<%=TabletitleColor%> style=color:<%=TableFontColor%>  bordercolorlight=<%=TabletitleColor%>  bordercolordark=<%=TabletitleColor%>> 
<td align=center><b>班级名</b></td>
<td align=center><b>班级成员</b></td>
<td align=center><b>入学年份</b></td>
<td align=center><b>班级主页</b></td>
<td align=center><b>管理员</td>
<td align=center><b>注册日期</b></td>
<td align=center><b>访问次数</b></td>
</tr>
<%
	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	select case orders
	case 1
		sql="select top 10 classname,homepage,studcount,regdate,visitcount,enyear,admin from [class] order by visitcount desc"
	case 2
		sql="select top 10 classname,homepage,studcount,regdate,visitcount,enyear,admin from [class] order by studcount desc"
	case 3
		sql="select top 10 classname,homepage,studcount,regdate,visitcount,enyear,admin from [class] order by classid desc"

	case 7
		sql="select  classname,homepage,studcount,regdate,visitcount,enyear,admin from [class] order by classid desc"
	case else
		sql="select top 10 classname,homepage,studcount,regdate,visitcount,enyear,admin from [class] order by visitcount desc"
	end select


	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
<tr bgcolor=<%=TableBodyColor2%>> 
<td colspan=9>　　还没有任何用户数据。</td>
</tr>
<%
	else
		rs.pagesize=20
		totalpages=rs.pagecount
		if currentpage="" then currentpage=1
		if not isNumeric(currentpage) then
			currentpage=1
		elseif Cint(currentpage)>totalpages then
			currentpage=totalpages
		end if
		currentpage=Cint(currentpage)
		rs.absolutepage=currentpage

		for i=1 to 20
			if rs.eof then exit for
%>
<tr bgcolor=<%=TablebodyColor2%>> 
<td>&nbsp;<%=htmlencode(rs("classname"))%></td>
<td align=center><%=rs("studcount")%></td>
<td align=center> 

<%=rs("enyear")%> 
</td>
<td align=center> 
<%if rs("homepage")="" or isnull(rs("homepage")) or rs("homepage")="http://" then%>
- 
<%else%>
<a href=<%=htmlencode(rs("homepage"))%> target=_blank  onmouseout="kill()" onmouseover="popup('访问<%=htmlencode(rs("classname"))%>的主页','<%=tablebodycolor1%>')"><img border=0 src=images/homepage.gif>主页</a> 
<%end if%>
</td>
<td>
<%if rs("admin")="" or isnull(rs("admin")) then%>
&nbsp;&nbsp;&nbsp;&nbsp;- 
<%else%>&nbsp;&nbsp;
<a href="profile.asp?name=<%=htmlencode(rs("admin"))%>"  target=_blank  onmouseout="kill()" onmouseover="popup('查看管理员<%=htmlencode(rs("admin"))%>的个人信息','<%=tablebodycolor1%>')"><img src="images/user.gif" border=0 hspace=1><%=htmlencode(rs("admin"))%></a>

<%end if%>

</td>
<td align=center><%=rs("regDate")%></td>
<td align=center> <%=rs("visitcount")%><br>
</td>
</tr>
<%
		rs.movenext
		next
	end if
	rs.close
	set rs=nothing

%>
</table>
</td></tr>
</table>
<table width=85% align="center" >
<tr><td align=right>
<% if currentpage=0 then currentpage=1
response.write "共 "&totalpages&" 页 第 "&currentpage&" 页　"
if currentpage=1 or totalpages=0 then
			response.write "<font color=gray>首页　前页</font>"
		else
			response.write "<a href=?page=1&orders="&orders&">首页</a>　<a href=?page="&currentpage-1&"&orders="&orders&">前页</a>"
		end if
		
		if currentpage=totalpages or totalpages=0 then
			response.write "　<font color=gray>后页　尾页</font>"
		else
			response.write "　<a href=?page="&currentpage+1&"&orders="&orders&">后页</a>　<a href=?page="&totalpages&"&orders="&orders&">尾页</a>"
		end if
%>
</td></tr></table>
<!--#include file="footer.asp"-->
⌨️ 快捷键说明

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