📄 bjindex.asp
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<%bid=clng(request("bid"))
if bid="" or bid<1 then ShowError("访问的班级不存在")
rs.open "select * from bj where id="&bid&"",conn,1,1
If Rs.eof Then ShowError("访问的班级不存在")
bjname=rs("bjname")
first=rs("first")
adminid=rs("adminid")
adminid2=rs("adminid2")
sir=rs("sir")
bjjz=rs("bjjz")
bjdate=rs("date")
rs.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
<title><%=Sitename%>-<%=bjname%></title>
<SCRIPT language="JavaScript" type="text/javascript">
function vote(vote)
{
url = 'vote.asp?stype=view&bid=<%=bid%>';
window.open(url,vote,"width=500,height=280,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
function test(thefrm)
{
for (var i=0 ;i<thefrm.Options.length;i++){
tempobj=thefrm.Options[i]
if (tempobj.checked==true){
result=tempobj.value
break;
}
}
var url2= 'vote.asp?bid=<%=bid%>&options='+result;
window.open(url2,'vote',"width=500,height=280,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
</script>
</head>
<body>
<%call bjhead(bid,bjname)%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border3">
<tr>
<td width="182" height="545" valign="top"><table width="99%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td><img src="skins/1/left1.gif" width="179" height="36"></td>
</tr>
<tr>
<td height="79">
<%if session("xyluser")="" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="login.asp?action=go" method="post" name="form1"><tr>
<td height="25"><div align="center">帐号：
<input name="xyluser" type="text" class="formtext" id="xyluser" maxlength="15">
</div></td>
</tr>
<tr>
<td height="25"><div align="center">密码：
<input name="xylpwd" type="password" class="formtext" id="xylpwd" maxlength="20">
</div></td>
</tr>
<tr>
<td height="25"><div align="center">
<input name="imageField" type="image" src="skins/1/submit.gif" width="59" height="23" border="0">
<a href="reg.asp"><img src="skins/1/reg.gif" width="54" height="21" border="0"></a></div></td>
</tr>
<tr>
<td height="20"><div align="center">[<a href="findid.asp">忘了我的密码</a>]</div></td>
</tr>
<tr>
<td height="20"><div align="center">[<a href="records.asp">查看登录记录</a>]</div></td>
</tr></form>
</table>
<%else
rs.open "select realname,bjid,bbsjob,sitemoney,newmail from [user] where id="&session("xyluserid")&"",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="27%" height="18"><div align="right">姓名：</div></td>
<td width="73%"><%=rs("realname")%> [<a href="login.asp?action=out"><font color=red>退出</font></a>]</td>
</tr>
<tr>
<td height="18"><div align="right">级别：</div></td>
<td><%if session("sitejob")=3 then response.write "网站管理员" else response.write rs("bbsjob") end if%></td>
</tr>
<tr>
<td height="18"><div align="right">积分：</div></td>
<td><%=rs("sitemoney")%></td>
</tr>
<tr>
<td height="18"><div align="right">班级：</div></td>
<td><select name="select" size="1" class="border" onchange="location=this.options[this.selectedIndex].value">
<%if isnull(rs("bjid")) then
response.write "<option value=''>没有加入班级</option>"
else
response.write "<option value=''>选择班级</option>"
bjid=Split(rs("bjid"),",")
upnun=ubound(bjid)
Set rs2 = Server.CreateObject("Adodb.Recordset")
for StartID=0 to upnun
rs2.open "select bjname from [bj] where id="&bjid(StartID)&"",conn,1,1
if not rs2.eof then
response.write "<option value='bjindex.asp?bid="&bjid(StartID)&"'>"&right(rs2(0),8)&"</option>"
end if
rs2.close
next
end if
%>
</select></td>
</tr>
<tr>
<td height="20" colspan="2"><table width="100%" cellpadding="0" cellspacing="0" bgcolor="#FFEBDE" class="border">
<tr>
<td height="20"><div align="center"><a href="note.asp">记事本</a></div></td>
<td><div align="center"><a href="mail.asp">站内信箱<%if rs("newmail")>0 then response.write "(<font color='#FF0000'>"&rs("newmail")&"</font>)<bgsound balance=0 src='image/mail.wav' loop=1> " end if%></a></div></td>
</tr>
<tr>
<td height="20"><div align="center"><a href="edit.asp">编辑资料</a></div></td>
<td><div align="center"><a href="grphoto.asp?id=<%=session("xyluserid")%>">个人相册</a></div></td>
</tr>
</table></td>
</tr>
</table>
<%rs.close
end if%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
<table width="99%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td><img src="skins/1/left2.gif" width="179" height="33"></td>
</tr>
<tr>
<td height="160" valign="top">
<marquee scrollamount='1' height="160" scrolldelay='10' behavior='loop' direction='up' onmouseover='this.stop()' onmouseout='this.start()'>
<%set rs=conn.execute("select realname,bjid from user where instr(','&bjid&',' ,',"&bid&",')>0 and datepart('m',birthday)=datepart('m',now) and datepart('d',birthday)=datepart('d',now)")
while not rs.eof
tmpstr=tmpstr&rs(0)&" "
rs.movenext
wend
rs.close
if tmpstr="" then
response.write "今天没有同学生日!"
else
response.write "今天是"&tmpstr&"的生日，本站代表全体同学祝他(她)生日快乐!"
end if%>
</marquee></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
<table width="99%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td><img src="skins/1/bjleft4.gif" width="181" height="32"></td>
</tr>
<tr>
<td height="130" valign="middle">
○- 辅导员：<%=sir%><BR>
○- 创建人：<A href="datum.asp?userid=<%=first%>"><%=obj.getname(first,1,SiteDatabase)%></a><BR>
○- 主管理员：<A href="datum.asp?userid=<%=adminid%>"><%=obj.getname(adminid,1,SiteDatabase)%></a><BR>
○- 副管理员：<A href="datum.asp?userid=<%=adminid2%>"><%=obj.getname(adminid2,1,SiteDatabase)%></a><BR>
<%set rs=conn.execute ("select count(id) from user where instr(','&bjid&',' ,',"&bid&",')>0")%> ○- 会员总数：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from ly where bjid="&bid&"")%><BR> ○- 班级留言：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from photo where bjid="&bid&"")%><BR> ○- 相片数目：<%=rs(0)%><BR>
○- 创建日期：<%=bjdate%><BR>
</td>
</tr>
</table>
</td>
<td width="392" valign="top"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td colspan="2"><img src="skins/1/bjz1.gif" width="162" height="31"></td>
</tr>
<tr>
<td width="290" height="120" valign="top">
<%rs.close
rs.open "select top 1 * from gg where bjid="&bid&" order by id desc",conn,1,1
If Rs.eof and Rs.bof Then
Response.Write("暂无公告")
else%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20">公告：<b><%=left(rs(1),20)%></b></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -