<SCRIPT language=javascript>
<!--
function window.onload() { setTimeout("fillup()",800); }
var sliderwidth=300;
var sliderheight=1130;
var slidespeed=2;
var slidebgcolor='#999999';
var leftrightslide=new Array();
var finalslide='';
var copyspeed=slidespeed;
var iedom=document.all||document.getElementById;
var actualheight='';
var cross_slide, ns_slide;
function fillup(){
if (iedom){
cross_slide=document.getElementById("_slide2");
cross_slide2=document.getElementById("_slide3");
actualheight=cross_slide.offsetHeight;
cross_slide2.style.top=actualheight;
}
else{
alert("请用IE6.0浏览本站!");
}
directionTime=setInterval("slidetop()",40);
}
function slidetop(){
if (iedom){
if (parseInt(cross_slide.style.top)>(actualheight*(-1)))
cross_slide.style.top=parseInt(cross_slide.style.top)-copyspeed;
else
cross_slide.style.top=parseInt(cross_slide2.style.top)+actualheight-3;
<%
sql = "select top 15 nickname,u.userid,photo,age,sex,province from userinfo as u,point as p where photo <> '没有相片' and "
sql = sql + "u.userid = p.userid and (photo is null or photo <> ' ') order by sort desc,total desc"
Set rst = conn.Execute(sql)
%>
<div style="Z-INDEX: 2; LEFT: 0px; OVERFLOW: hidden; WIDTH: 300px; POSITION: relative; HEIGHT: 1130px">
<div onMouseOver=copyspeed=0 style="LEFT: 0px; WIDTH: 300px; POSITION: absolute; HEIGHT: 1130px" onMouseOut=copyspeed=slidespeed>
<div id=_slide2 style="Z-INDEX: 2; LEFT: 0px; POSITION: absolute; TOP: 0px">
<table width="300" border="0" cellpadding="0" cellspacing="0">
<%
myi = 1
while not rst.EOF
if myi = 0 then
mycolor = "#90A9E5"
else
mycolor = "#CBD7F3"
end if
userid = Trim(rst("userid"))
photo = Trim(rst("photo"))
nickname = Trim(rst("nickname"))
%>
<tr>
<td height="100">
<table width="100%" height="50" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0" class="indextable">
<tr>
<td bgcolor="<%=mycolor%>"> </td>
</tr>
</table></td>
<td><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="99"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100" rowspan="5" align="center"><a href="memberinfo.asp?userid=<%=userid%>" target="_top"><img src="userphoto/<%=photo%>" width="90" height="90" border="0"></a></td>
<td height="25" colspan="2"> </td>
</tr>
<tr>
<td height="25" colspan="2">来自<font color="#FF9900"><%=Trim(rst("province"))%></font>的 <b><a href="memberinfo.asp?userid=<%=userid%>" target="_blank"><%=nickname%></a></b></td>
</tr>
<tr>
<td width="87" height="25">性别:<%=Trim(rst("sex"))%></td>
<td width="87" height="25">年龄:<%=Trim(rst("age"))%></td>
</tr>
<%
sqlindex = "select top 1 title,skim,songid from usersong where userid="&Trim(rst("userid"))&" and title like '%本人推荐%' order by skim desc"
set rs = conn.execute(sqlindex)
if rs.EOF then
sqlindex = "select top 1 title,skim,songid from usersong where userid="&Trim(rst("userid"))&" order by skim desc"
Set rs = conn.Execute(sqlindex)
end if
if not rs.EOF then
title = Trim(rs("title"))
songid = Trim(rs("songid"))
Call CheckLen(title,16)
else
title = "没有歌曲"
songid = ""
end if
rs.Close
%>
<tr>
<td height="25" colspan="2">最红歌曲:<A onclick="MM_openBrWindow('play.asp?songid=<%=songid%>','','width=450,height=350')" href="#"><%=title%></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="1" bgcolor="#90A9E5"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<%
rst.movenext
myi = 1 - myi
wend
%>
</table>
</div>
<div id=_slide3 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px">
<table width="300" border="0" cellpadding="0" cellspacing="0">
<%
rst.movefirst
myi = 1
while not rst.EOF
if myi = 0 then
mycolor = "#90A9E5"
else
mycolor = "#CBD7F3"
end if
userid = Trim(rst("userid"))
photo = Trim(rst("photo"))
nickname = Trim(rst("nickname"))
%>
<tr>
<td height="100"><table width="100%" height="50" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0" class="indextable">
<tr>
<td bgcolor="<%=mycolor%>"> </td>
</tr>
</table></td>
<td><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="99"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100" rowspan="5" align="center"><a href="memberinfo.asp?userid=<%=userid%>" target="_top"><img src="userphoto/<%=photo%>" width="90" height="90" border="0"></a></td>
<td height="25" colspan="2"> </td>
</tr>
<tr>
<td height="25" colspan="2">来自<font color="#FF9900"><%=Trim(rst("province"))%></font>的 <b><a href="memberinfo.asp?userid=<%=userid%>" target="_blank"><%=nickname%></a></b></td>
</tr>
<tr>
<td width="87" height="25">性别:<%=Trim(rst("sex"))%></td>
<td width="87" height="25">年龄:<%=Trim(rst("age"))%></td>
</tr>
<%
sqlindex = "select top 1 title,skim,songid from usersong where userid="&Trim(rst("userid"))&" and title like '%本人推荐%' order by skim desc"
set rs = conn.execute(sqlindex)
if rs.EOF then
sqlindex = "select top 1 title,skim,songid from usersong where userid="&Trim(rst("userid"))&" order by skim desc"
Set rs = conn.Execute(sqlindex)
end if
if not rs.EOF then
title = Trim(rs("title"))
songid = Trim(rs("songid"))
Call CheckLen(title,16)
else
title = "没有歌曲"
songid = ""
end if
rs.Close
%>
<tr>
<td height="25" colspan="2">最红歌曲:<A onclick="MM_openBrWindow('play.asp?songid=<%=songid%>','','width=450,height=350')" href="#"><%=title%></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="1" bgcolor="#90A9E5"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<%
rst.movenext
myi = 1 - myi
wend
rst.Close
Set rst = nothing
Set rs = nothing
conn.Close
Set conn = nothing
%>
</table>
</div>
</div>
</div>
<table width='100%' cellSpacing='5'>
<% set rs4=server.CreateObject("adodb.recordset")
sql="select top 7 * from pub order by ID DESC"
rs4.open sql,conn,1,1
if rs4.eof or rs4.bof then
%>
<font color="#000000">暂无公告</font>
<%
end if
do while not rs4.eof
%>
<TR>
<TD width=340 height=17 valign="top" class=text-0> <img