📄 index.asp
字号:
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"
cellSpacing=6 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD class=5><IMG height=30 src="image/left_hot.jpg"
width=160></TD>
</TR>
<TR>
<TD height="300" class=5><DIV align=center>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 2 * from user order by money desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有成员"
else
i=0
do while not rs.eof%>
<a href="datum.asp?username=<%=rs("username")%>"><%=rs("name")%><br>
<%if rs("userphoto")="" then%>
<IMG height=160 src="image/no.jpg" border=0 width=145 alt="真厉害！已经有<%=rs("money")%>元钱了">
<%else%>
<IMG height=160 src="<%=rs("userphoto")%>" border=0 width=145 alt="真厉害！已经有<%=rs("money")%>元钱了">
<%end if%>
</a><br>
<%i=i+1
if i=2 then
exit do
end if
rs.movenext
loop
rs.close
set rs= nothing
end if
%>
</DIV></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="index_files/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 src="image/left_site.jpg" width="160" height="30"></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="90%" align=center
border=0>
<TBODY>
<TR>
<TD vAlign=top height=110>
<%set rs=conn.execute ("select count(*) from bj")%>
<P>○- 班级数目：<FONT color=red><%=rs(0)%></FONT><%rs.close
set rs=conn.execute ("select count(*) from user")%><BR>○- 会员总数：<FONT color=red><%=rs(0)%></FONT><%
set rs=conn.execute ("select count(*) from bbs")
set re=conn.execute ("select count(*) from bbs2")
ll=rs(0)+re(0)%><BR>○- 论坛总贴：<SPAN
class=样式1><%=""&ll&""%></SPAN> <%set rs=conn.execute ("select count(*) from bbs where datediff('d',date,now())=0")
set re=conn.execute ("select count(*) from bbs2 where datediff('d',date,now())=0")
ll=rs(0)+re(0)%><BR>○- 今日新贴：<SPAN
class=样式1><%=""&ll&""%></SPAN><%rs.close
set rs=conn.execute ("select count(*) from photo")%><BR>○- 学校相片：<SPAN class=样式1><%=rs(0)%></SPAN><%rs.close
set rs=conn.execute ("select count(*) from user where datediff('d',lastlogin,now())=0")%><BR>○- 今日登录：<SPAN class=样式1><%=rs(0)%></SPAN><%rs.close
set rs=conn.execute ("select count(*) from online")%><BR>○- 当前在线：<FONT color=red><%=rs(0)%></FONT><BR></P></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="index_files/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="image/m_schoolnews.gif"
width=360 useMap=#Map2 border=0></TD></TR>
<TR>
<TD>
<TABLE width="95%" height="110"
border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><img src="image/Hein007.gif" width="70" height="70"></DIV></TD>
<TD valign="top"><%
school=1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from gg where class = '" &school& "' order by date desc"
rs.open sql,conn,1,1
dim content,title
title=rs("title")
content=rs("content")
if len(title)>15 then
title=left(title,15)&"…"
end if
if len(content)>90 then
content=left(content,90)&"…"
end if
Response.Write("·<font color=blue>"&title&"</font><br>")
Response.Write("<a href=""gg.asp"">"&content&"</a>")
rs.close
set rs= nothing
%></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=8><IMG height=8 alt="" src="index_files/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="image/m_school.gif" width=360
border=0></TD></TR>
<TR>
<TD>
<TABLE width="95%" height="120"
border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><IMG height=70
src="image/m_1.gif" width=70></DIV></TD>
<TD background="image/line1.gif"><%
set rs=Server.CreateObject("Adodb.Recordset")
sql="select top 6 * from news order by date desc"
rs.open sql,conn,1,3
if rs.eof then
Response.Write("还没有新闻呢")
else%><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<%do while not rs.eof%>
<tr>
<td><a href="news.asp"><%=rs("title")%></a></td>
</tr>
<%rs.movenext
loop%>
</table>
<%end if
Rs.close
Set Rs=Nothing%>
</TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=8><IMG height=8 alt="" src="index_files/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="image/m_jxkn.gif" width=360
useMap=#Map3 border=0></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><img src="image/music.gif" width="70" height="70"></DIV></TD>
<TD
background=image/line1.gif>
<%sql="delete from song where passdate<now()"
conn.execute(sql)
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 10 song.*,user.name,user.username from song,user where user.username=song.sender order by date desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("还没有人点歌")
else %>
<marquee direction=up scrollAmount=3 scrollDelay=120 width=260 height=100 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="index_files/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="image/xxly.gif"
width=360 useMap=#Map3 border=0></TD>
</TR>
<TR>
<TD>
<TABLE height=120 cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD width=100>
<DIV align=center><img src="image/m_4.gif" width="70" height="70"></DIV></TD>
<TD background=image/line1.gif>
<%
set rs=Server.CreateObject("Adodb.Recordset")
sql="select top 6 user.*, ly.* from ly,user where user.username=ly.username and class = '1' order by ly.date desc"
rs.open sql,conn,1,3
if rs.eof then
Response.Write("还没有人留言")
else%><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<%do while not rs.eof%>
<tr>
<td><a href="ly.asp"><%=rs("title")%></a></td>
</tr>
<%rs.movenext
loop%></table>
<%end if%></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="96%" align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=8><IMG height=1 alt="" src="index_files/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD>
<TABLE
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -