<br>
<!--#include file="z_dgconn.asp"--> 
<table cellSpacing="1" cellPadding="1" width=97% align="center" border="0" class=a2>
  <tr height="25"> 
    <td vAlign="center" class=a1 align="middle" width="11%"> ■<b></b><b> </b>点歌祝福栏</td>
    <td width="89%" align="left" vAlign="center" class=a1>&nbsp;|<a href="z_dgwrite.asp" >我要点歌</a>| &nbsp;|<a href="z_dglistme.asp">我的点歌列表</a>| &nbsp;|<a href="z_dglistall.asp">所有点歌列表</a>|  
    </td>
  </tr>
  <tr> 
    <td colSpan="2" height="25" bgcolor="#FFFFFF"> 
      <table width="100%" align="center" cellpadding=0 cellspacing=0 class=a3>
        <p></p>
        <tr> 
          <td class=tablebody1 height=80 width="100%"> 
<%
    dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
	dim abgcolor,username	
	set rsdg=server.createobject("adodb.recordset")
		sql1="select * from media Order By sendtime Desc"
		rsdg.open sql1,connDG,3,3				
		if rsdg.eof and rsdg.bof then
%>
            当前没有点歌列表 
            <%else%>
            <marquee scrollamount=1 direction=up height=80 onmouseover=this.stop(); onmouseout=this.start();>
            <%currentPage=1
			if currentpage=""  then
				currentpage=1
			else
				currentpage=clng(currentpage)
				if err then
					currentpage=1
					err.clear
				end if
			end if

		rsdg.PageSize = 10
		rsdg.AbsolutePage=currentpage
		page_count=0
      	totalrec=rsdg.recordcount
		while (not rsdg.eof) and (not page_count = rsdg.PageSize)
			if trim(rsdg("incept"))=membername or trim(rsdg("incept"))="全体会员" then
%>
            <a href=profile.asp?username=<%=rsdg("sender")%> target="_blank" ><font color=blue><%=rsdg("sender")%></font></a> 
            于<%=rsdg("sendtime")%>为 
            <%if trim(rsdg("incept"))=membername then%>
            <a href=profile.asp?username=<%=rsdg("incept")%> target="_blank" ><font color=#CC66FF><%=rsdg("incept")%></font></a> 
            <%else%>
            <font color=olive><%=rsdg("incept")%></font> 
            <%end if%>
            点了一首 <a href='z_dgplay.asp?url=<%=replace(rsdg("url"),chr(32),"%20",1)%>&medianame=<%=replace(rsdg("medianame"),chr(32),"%20")%>' target=_blank><font color=red>[<%=rsdg("medianame")%>]</font></a> 
            并祝福到： <font color=orange><B><%=rsdg("content")%></B></font> 
            <a href=z_dgdel.asp?id=<%=rsdg("id")%>  onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><br>
            <%else%>
            <a href=profile.asp?username=<%=rsdg("sender")%>><font color=blue><%=rsdg("sender")%></font></a> 
            于<%=rsdg("sendtime")%>为 <a href=profile.asp?username=<%=rsdg("incept")%> target="_blank" ><font color=green><%=rsdg("incept")%></font></a> 
            点了一首 <a href='Z_dgplay.asp?url=<%=replace(rsdg("url"),chr(32),"%20",1)%>&medianame=<%=replace(rsdg("medianame"),chr(32),"%20")%>' target=_blank><font color=red>[<%=rsdg("medianame")%>]</font></a> 
            并祝福到： <font color=orange>******已经隐藏******</font> <a href=z_dgdel.asp?id=<%=rsdg("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><br>
            <%
end if
page_count = page_count + 1
rsdg.movenext
wend
end if
%>
            </marquee> 
      </table>
    </td>
  </tr>
</table>

