📄 bjhead.asp
字号:
<!--#include file="../conn2.asp"-->
<!--#include file="../UbbCode.asp"-->
<HTML><HEAD>
<TITLE><%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select sitename from siteinfo"
rs.open sql,conn,1,1
response.write rs(0)%></TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="../image/index.css" rel=stylesheet>
<SCRIPT language=JavaScript1.2>
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</SCRIPT>
<STYLE type=text/css>
BODY {
MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px
}
.样式1 {color: #FFFFFF}
.style4 {color: #CC3300}
</STYLE>
<STYLE type=TEXT/CSS>
A {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0000CC; TEXT-DECORATION: underline
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
TH {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
BODY {
FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
#mnu {
FILTER: revealTrans(Duration=1.5,Transition=12) visibility:hide
}
.style3 {color: #FFFFFF}
.style5 {color: #CC3300}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<SCRIPT>
function set_mnu()
{
if (mnu.style.visibility=="hidden")
{
//产生效果和把图层显示
mnu.filters.revealTrans.apply();
mnu.style.visibility="visible";
mnu.filters.revealTrans.play();
}
else{
//隐藏图层和停止效果播放
mnu.filters.revealTrans.stop();
mnu.style.visibility="hidden" ;
}
}
</SCRIPT>
<script language="JavaScript1.2" src="../image/mm_menu.js"></script>
</HEAD>
<BODY background="" topMargin=0 marginheight="0">
<div id=mnu style="LEFT: 692px; POSITION: absolute; TOP: 23px; VISIBILITY: hidden; Z-INDEX: 1">
<TABLE width="70" border=1 cellPadding=0 cellSpacing=1 bordercolor="#000000">
<TBODY>
<TR >
<TD align="center" solid #000000"><a href="../note.asp"><font color="#000000">记事本</font></a></TD>
</TR>
<TR >
<TD align="center" solid #000000"><a href="../editreg.asp"><font color="#000000">编辑资料</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="../mail.asp"><font color="#000000">我的信箱</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="../bj/ly.asp?type2=cz&type3=username&key=<%=session("wzname")%>&bj=<%=session("userclass")%>"><font color="#000000">我的留言</font></a></TD></TR>
<TR >
<TD align="center" solid #000000"><a href="../grphoto.asp?mmm=0&photocx=<%=session("wzname")%>"><font color="#000000">我的相册</font></a></TD></TR>
</TBODY>
</TABLE></div>
<DIV align=center>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFCF84">
<tr>
<td height="27"><div align="center"><a href="../index.asp">首页</a></div></td>
<td><div align="center"><a href="../gg.asp">公告</a></div></td>
<td><div align="center"><a href="../news.asp">新闻</a></div></td>
<td><div align="center"><a href="../ly.asp">留言</a></div></td>
<td><div align="center"><a href="../photo.asp">相册</a></div></td>
<td><div align="center"><a href="../bbs/index.asp">论坛</a></div></td>
<td><div align="center"><a href="../bj.asp">班级</a></div></td>
<td><div align="center"><a href="../xy.asp">校友</a></div></td>
<td><div align="center"><a href="../wishindex.asp">许愿</a></div></td>
<td><div align="center"><a href="../game.asp">商场</a></div></td>
<td><div align="center"><a href="javascript:set_mnu(mnu);">个人面板</a></div></td>
<td><div align="center"><a href="../reg.asp">注册</a></div></td>
<td><div align="center"><a href="../logout.ASP">退出</a></div></td>
</tr>
</table>
</DIV>
<% dim bj,clas
bj=Request.QueryString("bj")
if bj<>"" then
session("clas")=bj
end if
if session("clas")="" then
response.redirect "err.asp"
end if
%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#FEEB82 border=0>
<TBODY>
<TR>
<TD width="170" bgColor=#FEE247><span class="style4"><%=session("clas")%>班欢迎你!</span></SPAN></TD>
<TD width=617 bgColor=#FEEB82>
<TABLE width="100%" border=0
cellPadding=0 cellSpacing=0 bgcolor="#FEEB82" id=AutoNumber2 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<FORM name=user action=chklogin.asp method=post>
<TD height=26 align=left valign="top" bgcolor="#FEE247">
<%if Session("wzname")="" then%>
<SPAN class=style1 style4><span class="style4">请登录</span> <span class="style4">用户名</span></SPAN> <span class="style4">
<INPUT
style="FONT-SIZE: 12px; HEIGHT: 16px" size=10 name=username
face="宋体" font> 密 码</span> <INPUT
name=userpassword type=password id="userpassword"
style="FONT-SIZE: 12px; HEIGHT: 16px" size=14 face="宋体" font>
<input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置">
<span class="style4">
<%else%>
<%dim sex,ql
set rs=server.createobject("adodb.recordset")
ql="select * from user where username='"&Session("wzname")&"'"
rs.open ql,conn,1,3%>
<marquee scrollAmount=3 scrollDelay=100 width="320">
欢迎<%=rs("name")%>
<%if rs("usersex")="男" then%>
先生
<%else%>
小姐
</marquee>
</span><SPAN class=style1><marquee scrollAmount=3 scrollDelay=100 width="320">
<span class="style4">
<%end if%>
的第<%=rs("userlogins")%>次光临,你是我校<%=rs("userclass")%>的
<%if rs("usertype")="1" then%>
老师
<%else%>
学生</span>
<%end if%></marquee></SPAN> <a href="logout.ASP"><span class="style4">退出</span></a>
<%Dim usermsgnum
usermsgnum=getmsgnum(Trim(session("wzname")))
if usermsgnum>0 Then
Response.Write "<a href='../mail.ASP'><font color=white>信箱(<font color=red>"&usermsgnum&"</font>新)</a></font>"
Response.Write "<bgsound balance=0 src='../image/mail.wav' loop=1> "
Else
Response.Write "<a href='../mail.ASP'><font color=white>信箱(0新)</a></font>"
End if%>
<%end if
dim cl
cl=session("userclass")%>
<a href="index.asp?bj=<%=cl%>"><span class="style4">我的班级</span></a>
<select name="select" id="select" onchange="location=this.options[this.selectedIndex].value">
<option selected>学校班级</option>
<%dim rt
Set rt = Server.CreateObject("ADODB.Recordset")
sql="select bjname from bj order by bjname"
rt.open sql,conn,1,1
do while not rt.eof%>
<option value="index.asp?bj=<%=rt("bjname")%>"><%=rt("bjname")%></option>
<%rt.movenext
loop
rt.close
set rt= nothing%>
</select></TD>
</FORM>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top height=79> <DIV align=center><div id="Layer1" style="position:absolute; width:200px; height:104px; z-index:1; left: 125px; top: 54px;">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="755" height="100">
<param name="movie" value="../in1.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="../in1.swf" width="755" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object></div><IMG src="img/top2.jpg" width=778 height=115 border="0" usemap="#Map"> </DIV></TD></TR></TBODY></TABLE>
<map name="Map">
<area shape="rect" coords="94,100,169,114" href="index.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="177,101,256,118" href="gg.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="261,100,335,116" href="ly.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="348,100,421,115" href="photo.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="436,100,510,117" href="xy.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="518,99,593,116" href="song.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="604,100,680,115" href="adminbj.asp?bj=<%=Session("clas")%>">
</map>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -