📄 index.asp
字号:
<%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 height=79 vAlign=top bgcolor="#FFE061"><div id="Layer1" style="position:absolute; width:200px; height:104px; z-index:1; left: 108px; top: 57px;">
<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>
<DIV align=center><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="348,100,421,115" href="photo.asp?bj=<%=Session("clas")%>">
<area shape="rect" coords="602,100,677,115" href="adminbj.asp">
<area shape="rect" coords="514,99,591,115" href="#">
<area shape="rect" coords="435,99,509,114" href="xy.asp?clas=<%=Session("clas")%>">
<area shape="rect" coords="347,123,422,140" href="photo.asp?clas=<%=Session("clas")%>">
<area shape="rect" coords="266,102,339,118" href="ly.asp?clas=<%=Session("clas")%>">
<area shape="rect" coords="179,103,255,116" href="gg.asp?clas=<%=Session("clas")%>">
<area shape="rect" coords="98,98,167,116" href="index.asp?clas=<%=Session("clas")%>">
</map>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#f4f4f4 border=0>
<TBODY>
<TR>
<TD vAlign=top width=180 rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=8 alt="" src="img/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
height=100 cellSpacing=6 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD align=middle><IMG height=30
src="img/left_notice.gif"
width=160></TD></TR>
<TR>
<TD align=middle>
<SCRIPT language=JavaScript>marquee1();</SCRIPT>
<%
dim tmpstr,outstr
set rs=conn.execute ("select user.name from user where datepart('m',userbirthday)=datepart('m',now) and datepart('d',userbirthday)=datepart('d',now) and userclass='"&Session("clas")&"'")
tmpstr=""
while not rs.eof
tmpstr=tmpstr&rs(0)&" "
rs.movenext
wend
rs.close
set rs=nothing
if tmpstr="" then
outstr="今天没有同学过生日!"
Response.write outstr
Response.Flush
else%>
<DIV align=center><img src="../image/0206.jpg" border=0></DIV><br> 今天是<%=tmpstr%>的生日，本站代表全体同学祝他(她)生日快乐!
<%end if%>
<SCRIPT language=JavaScript>marquee2();</SCRIPT>
</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=8 alt="" src="img/stu.htm"
width=1 name=""></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
height=88 cellSpacing=6 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD align=middle height=30><IMG height=30
src="img/left_grmb.gif"
width=160></TD></TR>
<TR>
<TD> <a href="../editreg.asp">我的资料</a> <a href="../grphoto.asp?mmm=0&photocx=<%=session("wzname")%>">我的照片</a><BR>
<a href="../mail.asp">我的信箱</a> <a href="ly.asp?type2=cz&type3=username&key=<%=session("wzname")%>&bj=<%=session("userclass")%>">我的留言</a><BR>
<a href="../note.asp">记事本</a></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=8 alt="" src="img/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=6 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30
src="img/left_site.gif"
width=160></TD></TR>
<TR>
<TD height=100>
<TABLE cellSpacing=0 cellPadding=0 width="90%" align=center
border=0>
<TBODY>
<TR>
<TD vAlign=top height=88>
<%set rs=conn.execute ("select * from bj where bjname = '" &Session("clas")& "'")%>
<P>○- 班级名称：<FONT color=red><%=rs("bjname")%></FONT><BR>○- 班主任：<FONT
color=red><%=rs("sir")%></FONT><BR>○- 班级管理：<FONT color=red><%set rt=conn.execute ("select name from [user] where username='"&rs("adminname")&"'")
response.write rt(0)
rt.close:set rt=nothing%></FONT><BR>○- 班级人数:
<%rs.close
set rs=conn.execute ("select count(*) from user where userclass = '" &Session("clas")& "'")%>
<FONT color=red><%=rs(0)%></FONT><BR>○- 班级留言：<%rs.close
set rs=conn.execute ("select count(*) from ly where class = '" &Session("clas")& "'")%><FONT color=red><%=rs(0)%></FONT><BR>
<%rs.close
set rs=conn.execute ("select count(*) from photo where class = '" &Session("clas")& "'")%>
○- 班级相片：<FONT color=red><%=rs(0)%></FONT><%rs.close%><BR></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
<TBODY>
<TR>
<TD><IMG height=8 alt="" src="img/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD class=4>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
<TBODY>
<TR>
<TD align=middle width="90%">
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=2 cellPadding=2 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD align=middle><IMG height=30
src="img/bjdc.gif"
width=160></TD></TR>
<TR>
<TD align=middle> <!--#include file="voteindex.asp"--></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top bgColor=#f4f4f4 rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=8><IMG height=8 alt=""
src="img/stu.htm" width=1 name=""></TD></TR>
<TR>
<TD>
<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="96%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30 src="img/bjgg.gif"
width=360 useMap=#Map border=0></TD></TR>
<TR>
<TD>
<TABLE height=100 cellSpacing=0 cellPadding=0 width="95%"
align=center border=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><IMG height=80
src="img/m_1.gif"
width=80></DIV></TD>
<TD>
<P><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from gg where class = '" &session("clas")& "' order by date desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有公告"
else
dim content,adddate
content=rs("content")
adddate=month(rs("date"))&"."&day(rs("date"))
if len(content)>90 then
content=left(content,90)&"…"
end if
Response.Write("·<font color=blue>["&adddate&"]</font>")
Response.Write("<a href=""gg.asp"">"&content&"</a>")
end if
rs.close
set rs= nothing
%><BR>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=8><IMG height=8 alt=""
src="img/stu.htm" width=1 name=""></TD></TR>
<TR>
<TD>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
height=130 cellSpacing=0 cellPadding=0 width="96%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30 src="img/bjdg.gif"
width=360 useMap=#Map2 border=0></TD></TR>
<TR>
<TD>
<TABLE height=110 cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><IMG height=80
src="img/m_2.gif"
width=80></DIV></TD>
<TD
background=img/line1.gif>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select song.*,user.name,user.username from song,user where song.class='"&session("clas")&"' and user.username=song.sender order by date desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("还没有人点歌")
else %><marquee scrollAmount=3 scrollDelay=120 width="260" height="100" direction="up" onmouseover='this.stop()' onmouseout='this.start()'><%While not rs.eof%><font color="#FF0000"><%=rs("name")%></font>为<font color="#FF0000"><%=rs("accept")%></font>点了首〖<a href="#" onclick="window.open('../songplay.asp?songaddr=<%=rs("songaddr")%>','110','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')" title="听歌吧"><font color="#FF0000"><%=rs("songname")%></font></a>〗歌<br>
<%rs.movenext
Wend%></marquee>
<%rs.close
set rs= nothing
end if%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=8><IMG height=8 alt=""
src="img/stu.htm" width=1 name=""></TD></TR>
<TR>
<TD>
<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="96%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30 src="img/bjly.gif"
width=360 useMap=#Map3 border=0></TD></TR>
<TR>
<TD>
<TABLE height=110 cellSpacing=0 cellPadding=0 width="95%"
align=center border=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><IMG height=80
src="img/m_3.gif"
width=80></DIV></TD>
<TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -