dglist.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="connmi.asp"-->
<!--#include file="..\tools.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        Response.write "对不起，您未注册！"
        Response.End
	else
		membername=Request.Cookies("NC")
		if membername <> Application("NC") or (Request.Cookies("NC")="" or Request.Cookies("NC")="访客")then
			master=false
			else
			master=true
		end if
		call main()
end if

sub main()
%>

<%
if (UCase(Request.Cookies("NC")) = UCase(Application("NC"))) then
connm.Execute("delete from media where sendtime <  DATEADD('d',-7,'"&ConvertDateTime(now())&"')")
end if

set rs=server.createobject("adodb.recordset")
sql="select * from media Order By sendtime Desc"
rs.open sql,connm,3,3
if rs.eof and rs.bof then
response.write("<p align=center>")
response.write("无点歌列表！")
else
dim mypagesize,page
'----------------------------------------------
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then

page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 20'------------------每页显示留言数

mypagesize     = rs.pagesize
rs.absolutepage = page
%><link rel=stylesheet type=text/css href=style.css>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="1"><TR><TD width=58% align=right><h3><font color=#21517B>社区点歌台</font></h3></TD><TD align=right><a href=dglist.asp>所有点歌列表&nbsp;<a href=mydglist.asp>我的点歌列表&nbsp;<a href=dg.asp>我要点歌</a></a></td></tr></table>

<table cellpadding=4 cellspacing=4 width=96% align=center bordercolor=#fffff border=0> 
<%do while not rs.eof and mypagesize>0
%>
<tr><td>
<%if membername<>"" and master then%>
<a href=dgdel.asp?id=<%=rs("id")%>><font color=red><b>[删除]</b></font></a>
<%end if%>
<font color=blue><%=rs("sender")%></font>在<%=rs("sendtime")%>为<font color=green><%=rs("incept")%></font>点了一首[<a href=dgbf.asp?url=<%=rs("url")%> target=_blank><%=rs("medianame")%></a>]<br>祝福道：<font color=red><%=rs("content")%><BR></font></td></tr>
<tr><td height=1 background=images/dotline.gif> </td></tr><%mypagesize=mypagesize-1
rs.movenext
loop
%>
</table>
<table border="0" width="577" height="1" cellpadding="0" align="center">
  <tr>
<td width="100%" height="1">
      <p align="center"><br>  
页数：&nbsp;  
<%
if page>1 then%>
<a href='dglist.asp?page=<%=page-1%>'>上一页</a>
<%
end if
%>
 <%dim j
 if rs.pagecount <= 8 then
for j=1 to rs.pagecount
response.write "[<a href='dglist.asp?page="&j&"'>"&j&"</a>]"'------------
next
else
for j=1 to 8
response.write "[<a href='dglist.asp?page="&j&"'>"&j&"</a>]&nbsp;"
next
response.write  "[<a href='dglist.asp?page="&rs.pagecount&"' title='最后一页'>&gt;&gt;</a>]"
end if
%> 
<%
if page<rs.pagecount   then%>
<a href='dglist.asp?page=<%=page+1%>'>下一页</a>
<%
end if
end if
rs.close
set rs=nothing
connm.close
set connm=nothing
%></td>
</tr></table>
<%
end sub
%>