dglistme.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<!--#include file="dgconn.asp"-->
<!--#include file="ubbcode.asp"--> 
<%dim abgcolor,username
 membername=request.cookies(cn)("lgname")
if membername="" then%>
<script language="vbscript">
 msgbox"客人不可以查阅点歌列表,请先登陆或注册"
 location.href = "login.asp"
</script>
<% else
 dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage   
  set rs=server.createobject("adodb.recordset")
  set rs=connDG.execute("select count(sender) from media")
   totalrec=rs(0)
  rs.close 
  set rs=connDG.execute("select count(sender) from media where incept='"&membername&"' or incept='全体会员'")
   mytotalrec=rs(0)
  rs.close  
 %> 
  <br><table cellpadding=3 cellspacing=1 border=0 align=center >
   <tr>
    <th><a href=dglistall.asp><font color=blue><b>所有点歌列表</b></font></a></th>
    <th><a href=dglistme.asp><font color=blue><b>我的点歌列表</b></font></a></th>
    <th><a href=dgwrite.asp><font color=blue><b>我要点歌</b></font></a></th>
   </tr>
   <tr>
    <td  align=center valign=middle colspan="3">你的祝福清单共有[<font color=red><b><%=mytotalrec%></b></font>]个，<a href=dglistall.asp><b>论坛总点歌列表</b></a>清单共有[<font color=red><b><%=totalrec%></b></font>]个。<font color=green><直接点击歌名欣赏></font></td>
   </tr>   
  </table>
  <br>
  <table bgcolor=white cellpadding=0 cellspacing=0 border=1 color=<%=c1%> align=center style='border-collapse: collapse'>
   <tr>
    <th width=80>点歌人</th><th width=80>对方姓名</th><th width=220>歌名</th><th width=120>时间</th><th width=*>祝福语</th><th width=50>操作</th> 
   </tr> 
 <%
  sql="select * from media where incept='"&membername&"' or incept='全体会员' Order By sendtime Desc"
  rs.open sql,connDG,3,3    
  if rs.eof and rs.bof then
   currentpage=0
 %>  
   <tr><td  valign=middle colspan=6>当前没有点歌列表</td></tr>
 <%  
  else
         currentPage=request.querystring("page")
   if currentpage="" or not isInteger(currentpage) 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)
%> <tr><td  align=center valign=middle><a href=userinfo.asp?name=<%=rs("sender")%>><font color=blue><%=rs("sender")%></font></a></td>
     <td class=tablebody1 align=center valign=middle><%if trim(rs("incept"))<>"全体会员" then%><a href=userinfo.asp?name=<%=rs("incept")%>><font color=green><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%></td>
     <td  align=center valign=middle><a href=dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%> target=_blank><%=rs("medianame")%></a></td>
     <td class=tablebody1 align=center valign=middle><%=rs("sendtime")%></td>
     <td class=tablebody1 align=left valign=middle><font color=red><%=kbbs(rs("content"))%></font></td>
     <td  align=center valign=middle><a href=dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a></td>     
    </tr>
<%
    page_count = page_count + 1
  rs.movenext
  wend
 end if
%>
</table>
<%
 dim endpage
 Pcount=rs.PageCount
 response.write "<table border=0 cellpadding=0 cellspacing=3 width='94%' align=center>"&_
   "<tr><td valign=middle nowrap>"&_
   "页次：<b>"&currentpage&"</b>/<b>"&Pcount&"</b>页"&_
   " 每页<b>10</b>条 共有<b>"&totalrec&"</b>条点歌</td>"&_
   "<td valign=middle nowrap><div align=right><p>分页： "
 if currentpage > 4 then
  response.write "<a href=""?page=1"">[1]</a> ..."
 end if
 if Pcount>currentpage+3 then
 endpage=currentpage+3
 else
 endpage=Pcount
 end if
 for i=currentpage-3 to endpage
 if not i<1 then
  if i = clng(currentpage) then
        response.write " <font color="&c1&">["&i&"]</font>"
  else
        response.write " <a href=""?page="&i&""">["&i&"]</a>"
  end if
 end if
 next
 if currentpage+3 < Pcount then 
 response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
 end if
 response.write "</p></div></font></td></tr></table>"
 rs.close
 set rs=nothing
'=========================
%>
  <table cellpadding=3 cellspacing=1 border=0 align=center >
   <tr>
    <th>--== 论坛点歌台-我的祝福列表 ==--</th>
   </tr>
  </table>
<%  
 end if
%>
<!--#include file="down.asp"-->