📄 index.asp
字号:
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="CONN.asp" -->
<!--#include file="CHAR.asp" -->
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
set rs=conn.execute("select classmode from config")
classmode=rs("classmode")
rs.close
set rs=nothing
'当模式为2或3时自动转到登陆页
if session("username")="" and (classmode=2 or classmode=3) then
response.write"<script>alert('对不起，您还没有登录！');location='login.asp'</script>"
response.end
end if
'得到班级成员数
strsql="select count(userid) as userno from [user] where isvalid=true and usergroup>'1'"
set rs=conn.execute(strsql)
userno=rs("userno")
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=classname%>同学录</title>
<link href="css/class.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="js/DrawImage.js"></script>
</head>
<body background="images/1.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="images/top_t.gif" width="776" height="43"></td>
</tr>
<tr>
<td width="138"><img src="images/top_l.gif" width="138" height="39"></td>
<td width="584" align="right" bgcolor="#666B52"><img src="images/toplogo.gif" width="200" height="39"></td>
<td width="54"><img src="images/top_r.gif" width="54" height="39"></td>
</tr>
<tr>
<td colspan="3"><table width="776" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" rowspan="2" valign="top" background="images/left_x.gif"><img src="images/left_img.gif" width="120" height="480"></td>
<td rowspan="2" valign="top" bgcolor="#F2F2EA"> <div align="center">
<!--#include file="top.asp" -->
<table border="0" cellpadding="0" cellspacing="0" width="618">
<tr>
<td> </td>
</tr>
</table>
</div>
<table width="618" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <div align="center"><br>
<!--#include file="left.asp" -->
</div></td>
<td width="10"> </td>
<td width="418" valign="top">
<%
strsql="select * from config"
set rs=conn.execute(strsql)
%>
<%
strsql="select top 5 userid,username,realname from [user] where isvalid=true and usergroup='1' order by regtime desc"
set rs1=conn.execute(strsql)
if not rs1.eof then
do while not rs1.eof
%>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
<br> <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="24"><img src="images/n_t_r.gif" width="24" height="22"></td>
<td width="77"><img src="images/n_t_bjxy.gif" width="77" height="22"></td>
<td width="198"><img src="images/n_t_b.gif" width="198" height="22"></td>
<td width="101"><img src="images/n_t_bjxye.gif" width="101" height="22"></td>
</tr>
<tr>
<td colspan="4"><table width="400" border="0" cellpadding="0" cellspacing="0" background="images/n_bk.gif">
<tr>
<td><img src="images/n_xx.gif" width="400" height="5"></td>
</tr>
<tr>
<td><table width="380" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="500"></td>
</tr>
<tr>
<td style="PADDING-LEFT: 10px; PADDING-TOP: 10px" ><%=ubbcode(trim(rs("classclaim")))%></td>
</tr>
<%rs.close
set rs=nothing%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><img src="images/n_foot.gif" width="400" height="10"></td>
</tr>
</table>
<br> <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="24"><img src="images/n_t_r.gif" width="24" height="22"></td>
<td width="77"><img src="images/n_t_bjxx.gif" width="77" height="22"></td>
<td width="198"><img src="images/n_t_b.gif" width="198" height="22"></td>
<td width="101"><img src="images/n_t_bjxxe.gif" width="101" height="22"></td>
</tr>
<tr>
<td colspan="4"><table width="400" border="0" cellpadding="0" cellspacing="0" background="images/n_bk.gif">
<tr>
<td><img src="images/n_xx.gif" width="400" height="5"></td>
</tr>
<tr>
<td><table width="380" border="0" align="center" cellpadding="2">
<tr>
<td width="190" height="93" valign="top"> <table width="190" border="0" cellpadding="2" cellspacing="0" class="font1">
<%
strsql="select * from config"
set rs=conn.execute(strsql)
%>
<tr>
<td><strong>班级名称</strong>：<%=rs("classname")%></td>
</tr>
<tr>
<td><strong>入学年份</strong>：<%=rs("classtime")%></td>
</tr>
<tr>
<td><strong>成 员 数</strong>：<%=userno%>人</td>
</tr>
<tr>
<td><strong>创 始 人</strong>：<a href="mailto:<%=rs("classemail")%>"><%=rs("classadmin")%></a></td>
</tr>
</table></td>
<td width="229" align="right" valign="top">
<table width="100%" border="0" cellpadding="2" cellspacing="0" class="font1">
<tr>
<td><strong>待批准的同学</strong><br> <font color="#9999CC">(班级正式成员均可批准)</font></td>
</tr>
<%
strsql="select top 5 userid,username,realname from [user] where isvalid=true and usergroup='1' order by regtime desc"
set rs1=conn.execute(strsql)
if not rs1.eof then
do while not rs1.eof
%>
<tr>
<td height="23"><a href="member.asp?id=<%=rs1("username")%>"><font color="#FF0000"><%=rs1("realname")%></font><font color="#FF0000">(<%=rs1("username")%>)</font></a> <a href="checkuser.asp?id=<%=rs1("userid")%>">[我要批准]</a></td>
</tr>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</table>
<div align="right"></div>
<p> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><img src="images/n_foot.gif" width="400" height="10"></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -