mydglist.asp

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

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

sub main()
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from media where incept='"&Request.Cookies("NC")&"' Order By sendtime Desc"
rs.open sql,connm,3,3
if rs.eof and rs.bof then
response.write("<p align=center>")
response.write("无点歌记录 ！<br><br><input type=button value='返 回' onclick='javascript:history.back();'></p>")
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>
<br>
<table cellpadding=4 cellspacing=4 width=96% align=center bordercolor=#fffff border=0> 
<%do while not rs.eof and mypagesize>0
%>
<tr><td><font color=blue><%=rs("sender")%></font>在<%=rs("sendtime")%>给你点了一首[<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='mydglist.asp?page=<%=page-1%>'>上一页</a>
<%
end if
%>
 <%dim j
 if rs.pagecount <= 8 then
for j=1 to rs.pagecount
response.write "[<a href='mydglist.asp?page="&j&"'>"&j&"</a>]"'------------
next
else
for j=1 to 8
response.write "[<a href='mydglist.asp?page="&j&"'>"&j&"</a>]&nbsp;"
next
response.write  "[<a href='mydglist.asp?page="&rs.pagecount&"' title='最后一页'>&gt;&gt;</a>]"
end if
%> 
<%
if page<rs.pagecount   then%>
<a href='mydglist.asp?page=<%=page+1%>'>下一页</a>
<%
end if
end if
rs.close
set rs=nothing
connm.close
set connm=nothing
%></td>
</tr></table>
<%
end sub
%>