📄 index.asp
字号:
<%
set rs=Server.CreateObject("Adodb.Recordset")
sql="select top 5 user.*, ly.* from ly,user where user.username=ly.username and class = '" &Session("clas")& "' order by ly.date desc"
rs.open sql,conn,1,3
if rs.eof then
Response.Write("还没有人留言")
else%><table width="100%" height="94%" border="0" cellpadding="0" cellspacing="0" background=img/line1.gif>
<%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></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/bjxc.gif"
width=360 useMap=#Map4 border=0></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center
border=0>
<TBODY>
<TR><TD>
<DIV align=center>
<%Dim title,maxtitlelen
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select top 3 photo.*,user.username,user.name from photo,user where photo.class='" &Session("clas")& "' and user.username=photo.username order by pubtime desc,picid desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("没有相片呢")
else
%>
<!--#include file="../popup.inc"-->
<table width="360">
<tr>
<%do while not rs.eof
title=rs("title")
if len(title)>8 then title=left(title,6)&"……"%>
<td width="120" height="120" align="center">
<a href="viewphoto.asp?picid=<%=rs("picid")%>">
<%dim altinfo
altinfo="上传:"&rs("name")&"<BR> "&_
"时间:"&rs("pubtime")&"<BR> "&_
"人气:"&rs("dianji")&"<BR> "&_
"大小:"&rs("photosize")&"K"
response.write "<IMG src='../upphoto/"&rs("pic")&"' width=110 height=166 border=0 onmouseout=kill() onmouseover=""popup('"&altinfo&"','#d2e9fe')"">"%>
</a><a href="viewphoto.asp?picid=<%=rs("picid")%>"><%=title%></a>
</td>
<%rs.movenext
loop%>
</tr>
</table>
<%
rs.close
set rs=nothing
end if
%></DIV></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=220>
<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
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=5 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30
src="img/right_zt.gif"
width=188></TD></TR>
<TR>
<TD
height=90> <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bj where bjname = '" &session("clas")& "'"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有简介呢"
else
Response.Write BadWords_Deal(UBBCode(rs("bjjz"),2))
end if
rs.close
set rs= nothing
%></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="95%" align=center border=0>
<TBODY>
<TR>
<TD class=4>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=5 cellPadding=0 width="95%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30
src="img/left_music.gif"
width=160></TD>
</TR>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bysong order by id desc"
rs.open sql,conn,1,3
if rs.eof then
Response.Write("<TR><TD height=80>")
Response.Write("还没有歌曲，让管理员加吧")
Response.Write("</TD></TR>")
else
i=0
%>
<TR>
<TD height=80>
<marquee scrollAmount=3 scrollDelay=120 width="100%" height="80" direction="up" onmouseover='this.stop()' onmouseout='this.start()'>
<table width="100%" border="0">
<%do while not rs.eof
if i=0 then%>
<tr>
<%end if%>
<td><a href="#" onclick="window.open('../play.asp?songhttp=<%=rs("songhttp")%>','110','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')" title="听歌吧"><%=rs("song")%></a></td>
<%if i=1 then
i=-1%>
</tr>
<%end if
i=i+1
rs.movenext
loop%>
</table></marquee></TD>
</TR>
<%end if
rs.close
set rs= nothing
%></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=8 alt="" src="img/stu.htm"
width=1 name=""></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top width=220>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center 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=4><IMG height=30
src="img/left_hot.gif"
width=160></TD></TR>
<TR>
<TD class=4>
<DIV align=center>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 2 * from user where userclass = '" &session("clas")& "' order by money desc"
rs.open sql,conn,1,1
i=0
do while not rs.eof%>
<a href="../datum.asp?username=<%=rs("username")%>"><%=rs("name")%><br>
<%if rs("userphoto")="" then%>
<IMG height=145 src="../image/no.jpg" border=0 width=145 alt="真厉害！已经有<%=rs("money")%>元钱了">
<%else%>
<IMG height=145 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
%></DIV></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<TABLE width="780" align="center">
<TBODY>
<TR>
<TD height=4><IMG height=5 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="100%" align=center bgColor=#ffffff>
<TBODY>
<TR>
<TD><IMG height=30 src="img/m_wzxx.gif"
width=360 border=0></TD></TR>
<TR>
<TD>
<TABLE id=AutoNumber10 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=3 width="98%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top
height=46><p>〖<B>最近登录</B>〗
<%Set rs=conn.execute ("select top 14 username,name,lastlogin from user where userclass = '" &session("clas")& "' order by lastlogin desc")
While not rs.eof%>
<a href="../datum.asp?username=<%=rs("username")%>" title="俺在<%=rs("lastlogin")%>来过"><%=rs("name")%></a>
<%Rs.movenext
Wend
Rs.close
Set Rs=Nothing%>
<BR>
〖<STRONG>最新注册</STRONG>〗
<%Set rs=conn.execute ("select top 14 username,name,joindate from user where userclass = '" &session("clas")& "' order by joindate desc")
While not rs.eof%>
<a href="../datum.asp?username=<%=rs("username")%>" title="俺是在<%=rs("joindate")%>加入的"><%=rs("name")%></a>
<%Rs.movenext
Wend
Rs.close
Set Rs=Nothing%>
<BR>
〖<STRONG>留言排行</STRONG>〗
<%Set rs=conn.execute ("select username,name,lycount from user where userclass = '" &session("clas")& "' order by lycount desc")
i=0
do While not rs.eof%>
<a href="../datum.asp?username=<%=rs("username")%>" title="俺已经写了<%=rs("lycount")%>条留言"><%=rs("name")%></a>
<%i=i+1
Rs.movenext
if i=14 then
exit do
end if
loop
Rs.close
Set Rs=Nothing%>
<BR>
〖<STRONG>在线会员</STRONG>〗<%Set rs=conn.execute ("select user.name,online.* from user,online where user.username=online.sname and user.userclass= '" &session("clas")& "' order by online.newtime desc")
While not rs.eof%>
<a href="datum.asp?username=<%=rs("sname")%>" title="俺是在<%=rs("entertime")%>来的"><%=rs("name")%></a>
<%Rs.movenext
Wend
Rs.close
Set Rs=Nothing%></p>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<STYLE type=text/css>.style1 {
COLOR: #ffffff
}
</STYLE>
<DIV align=center>
<!--#include file="../bottom.asp"--></DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -