<!--#include file="conn.asp"-->
<!--#include file="../inc/noip.asp"-->
<!--#include file="Top11.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/Css.css" rel=stylesheet type=text/css>
<%set rs=conn.execute("select * from [home]")%>
<title><%=rs("homes")%>-免费点歌-点歌列表-<%=rs("url")%></title>
<script language="JavaScript">

  <!-- Funny text script by Bart Jellema
    var hellotext="<%=rs("Description")%>"
    var thetext=""
    var started=false
    var step=0
    var times=1

    function welcometext()
    {
      times--
      if (times==0)
      { 
        if (started==false)
        {
          started = true;
          window.status = hellotext;
          setTimeout("anim()",1); 
        }
        thetext = hellotext;
      }
    }

    function showstatustext(txt)
    {
      thetext = txt;
      setTimeout("welcometext()",4000)
      times++
    }

    function anim()
    {
      step++
      if (step==7) {step=1}
      if (step==1) {window.status='>==='+thetext+'===<'}
      if (step==2) {window.status='=>=='+thetext+'==<='}
      if (step==3) {window.status='>=>='+thetext+'=<=<'}
      if (step==4) {window.status='=>=>'+thetext+'<=<='}
      if (step==5) {window.status='==>='+thetext+'=<=='}
      if (step==6) {window.status='===>'+thetext+'<==='}
      setTimeout("anim()",200);
    }
  // Funny text script by Bart Jellema -->
welcometext()
</script>
<script type="text/javascript">
<!--
var time = 3000;
var numofitems = 7;

//menu constructor
function menu(allitems,thisitem,startstate){ 
  callname= "gl"+thisitem;
  divname="subglobal"+thisitem;  
  this.numberofmenuitems = 7;
  this.caller = document.getElementById(callname);
  this.thediv = document.getElementById(divname);
  this.thediv.style.visibility = startstate;
}

//menu methods
function ehandler(event,theobj){
  for (var i=1; i<= theobj.numberofmenuitems; i++){
    var shutdiv =eval( "menuitem"+i+".thediv");
    shutdiv.style.visibility="hidden";
  }
  theobj.thediv.style.visibility="visible";
}
				
function closesubnav(event){
  if ((event.clientY <48)||(event.clientY > 107)){
    for (var i=1; i<= numofitems; i++){
      var shutdiv =eval('menuitem'+i+'.thediv');
      shutdiv.style.visibility='hidden';
    }
  }
}
// -->
</script>
<script language="javascript">
<!--
function mp(htmlurl){
var
newwin=window.open(htmlurl,"52050004","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=460,height=620");
newwin.focus();
return false;
}
//-->
</script>

</head>




<table width="900" BORDER="0" CELLSPACING="0" CELLPADDING="0" bgcolor="#FFFFFF"> 
    <TBODY>
      <TR>
        <TD background=../img/addr.jpg><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
            <TBODY>
              <TR>
                <TD align=middle width="5%"><IMG height=17 src="../img/arrows2.gif" 
            width=16></TD>
                <TD width="95%">您现在的位置：&nbsp;<A class=LinkPath 
            href="../"><%=rs("homes")%></A>&nbsp;&gt;&gt;&nbsp;点歌台</TD>
              </TR>
            </TBODY>
        </TABLE></TD>
      </TR>
      <TR>
        <TD background=../img/addr_line.jpg height=4></TD>
      </TR>
    </TBODY>
  </TABLE>
  <table border="0" width="901" cellspacing="0" cellpadding="0">
	<tr>
		<td width="157"><img border="0" src="images/TOP1.gif" width="157" height="17"></td>
		<td width="740" background="images/TOP2.gif">　</td>
		<td width="4">　</td>
	</tr>
</table>

<table border="0" width="900" cellspacing="0" cellpadding="2" background="images/top4.gif">
	<tr>
		<td align="center" width="50"><img border="0" src="images/icon1.gif" width="23" height="24"></td>
		<td><%=rs("homes")%>点歌台,送给好友一份最真挚的祝福!</td>
		<td width='40' align='center'><a href="#" onClick="window.open('add1.asp','huanqiu','scrollbars=no,resizable=no,width=170,height=120,menubar=no,top=98,left=68')">
<img src='images/dg.gif' border='0' width='86' height='22' alt='我要点歌'></a></td>
	</tr>
</table>

<table width="899" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFF3F7" bgcolor="#FFFFFF" style="border-collapse: collapse">
	<tr>
		<td bgcolor="#FFF3F7" width="150" align="center" valign="top"><img border="0" src="images/girl.gif" width="150" height="500"></td>
		<td align="center" valign="top">
		<!--右-->

<table border="0" width="98%" cellspacing="0" cellpadding="5">
	<tr>
		<td align="center"><a href="index.asp"><img border="0" src="images/dgt.gif" title=首页 width="350" height="50"></a></td>
	</tr>
</table>  
<table border="0" cellpadding="5" width="98%" cellspacing="0">
   <tr align="center">
     <td width="23%">歌曲名称</td>
     <td width="5%">收听</td>
     <td width="15%">点歌人</td>
     <td width="15%">受赠人</td>
     <td width="12%">点歌时间</td>
     <td width="20%">祝福词</td>
   </tr>
<%
sql="select * from basic order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td colspan='5' align='center'>暂时还没有人点歌,你愿意做第一个吗?</td></tr></table>"
else

     '####开始分页########
pageid = cint(request.querystring("pageid"))
if pageid = "" or pageid =< 1 then
pageid = 1
end if

maxperpage = 30
rs.pagesize = maxperpage
mpage = rs.pagecount       '得到总页数
totalput = rs.recordcount  '得到总记录数
rs.move(pageid-1)*maxperpage

For i = 1 to maxperpage
if rs.EOF then Exit For
id=rs("id")
title=rs("title")
musicid=rs("musicid")
myname=rs("myname")
yourname=rs("yourname")
jtime=rs("jtime")
content=rs("content")
%>
   <tr>
     <td colspan="6" background="images/dbg.gif" height="1"></td>
   </tr>
   <tr>
     <td align="center"><a href="chakan.asp?id=<%=id%>" title=点击查看详细信息><%if len(rs("title")) > 14 then Response.write left(rs("title"),14)&".." else Response.write rs("title") end if%></td>
     <td align="center"><a href="music.asp?id=<%=id%>" title=点击收听 onClick='return mp(this.href);'><img border="0" src="images/st.gif" width="17" height="17"></a></td>
     <td align="center"><%if len(rs("myname")) > 6 then Response.write left(rs("myname"),10)&".." else Response.write rs("myname") end if%></td>
     <td align="center"><%if len(rs("yourname")) > 6 then Response.write left(rs("yourname"),6)&".." else Response.write rs("yourname") end if%></td>
     <td align="center"><%if len(rs("jtime")) > 10 then Response.write left(rs("jtime"),10)&"" else Response.write rs("jtime") end if%></td>
     <td align="center"><%if len(rs("content")) > 8 then Response.write left(rs("content"),8)&".." else Response.write rs("content") end if%></td>
   </tr>
<%
rs.MoveNext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
%> 
</table>
<table border="0" width="98%" cellspacing="0" cellpadding="8">
	<tr>
		<td align="center">
页数：<font color="red"><%=pageid%></font>/<%=mpage%>&nbsp;                              
<%if pageid <> 1 then%>
<a href="?pageid=1">首页</a>         
<a href="?pageid=<%=pageid-1%>">上一页</a>         
<%else%>         
<font color="silver">首页&nbsp;上一页</font>         
<%end if%>                                                                     
<%if pageid <> mpage then%>         
<a href="?pageid=<%=pageid+1%>">下一页</a>         
<a href="?pageid=<%=mpage%>">尾页</a>         
<%else%>         
<font color="silver">下一页&nbsp;尾页</font>         
<%end if%>                                                                     
共有<font color="red"><%=totalput%></font>条(每页<%=maxperpage%>条)         
<select name="select" onChange='javascript:window.open(this.options[this.selectedIndex].value,"_self")'>
<%for i=1 to mpage%>         
<option value="?pageid=<%=i%>" <%if i=pageid then%>selected<%end if%>><%=i%>页</option>
<%next%>
</select>         
		</td>
	</tr>
</table>                                             	
<%end if%>		
		<!--右-->
		</td>
	</tr>
</table>                                                                                                                
<SCRIPT src="../js/bottom.Js"></SCRIPT>                                             
</body>
                                                             
</html>