<!--#include file="z_dgconn.asp" -->
<!--#include file="inc/dv_ubbcode.asp"-->
<!--#include file="inc/dv_loadcache.asp"-->
<%
If Not IsObject(Conn) Then ConnectionDatabase
dim sql,rs,founderr,i,errmsg
founderr=false
'Dvbbs.LoadTemplates("")

'---------------------
' write by 绿水青山
' 本插件经由 cyp2 修改适应DVBBS7.0.0
'---------------------
dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage,abgcolor
'定义显示点歌列表
Sub list
set rs=server.createobject("adodb.recordset")
sql="select * from media Order By sendtime Desc"
rs.open sql,connDG,3,3				
if rs.eof or rs.bof then
%>	
.....:::当前没有点歌列表:::.........:::赶快给你的朋友或全体会员点歌吧！还有祝福哦！！:::....
<%else%>
<marquee scrollamount=1 direction=up height=40 onmouseover=this.stop(); onmouseout=this.start();>
<%
currentPage=request.querystring("page")
			if currentpage="" or isNumeric(currentpage) = 0 then 
				currentpage=1
			else
				currentpage=clng(currentpage)
				if err then
					currentpage=1
					err.clear
				end if
			end if

		rs.PageSize = 10
		rs.AbsolutePage=currentpage
		page_count=0
      	totalrec=rs.recordcount
		while (not rs.eof) and (not page_count = rs.PageSize)
%>
<img src=images/dglb.gif border=0 hight=13>
					<a href=javascript:openScript('dispuser.asp?username=<%=rs("sender")%>')><font color=blue><%=rs("sender")%></font></a>
					于<%=rs("sendtime")%>为
					<%if trim(rs("incept"))<>"全体会员" then%><a href=javascript:openScript('dispuser.asp?username=<%=rs("incept")%>')><font color=#CC66FF><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%>
					点了一首
					<a href='z_dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=play><font color=red>『<%=rs("medianame")%>』</font></a>
					并祝福说：<img src= http://un.baidu.com/images/st.gif?tn=chinanet width=0 height=0>
					<font color=orange><B><%=rs("content")%></B></font>
					<%if trim(rs("sender"))=dvbbs.membername or dvbbs.master then%>
					<a href=z_dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><%end if%><br>
<%
	  	page_count = page_count + 1
		rs.movenext
		wend
end if
end Sub
%>