dglistall.asp

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

<!--#include file="up.asp"-->
<!--#include file="dgconn.asp"-->
<!--#include file="ubbcode.asp"-->
<%dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
 dim abgcolor,username
 membername=request.cookies(cn)("lgname")
 if membername="" then%>
<script language="vbscript">
 msgbox"客人不可以查阅点歌列表,请先登陆或注册"
 location.href = "login.asp"
</script>
<%else 
  totalrec=connDG.execute("select count(id) from media")(0)
  mytotalrec=connDG.execute("select count(id) from media where incept='"&membername&"' or incept='全体会员'")(0)
%><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"><a href=dglistall.asp><b>论坛总点歌列表</b></a>清单共有[<font color=red><b><%=totalrec%></b></font>]个,其中<a href=dglistme.asp><font color=green>[<b><%=membername%></b>]</font></a>的祝福清单共有[<font color=red><b><%=mytotalrec%></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> 
   
 <% 
  set rs=server.createobject("adodb.recordset")
  sql="select * from media 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)
   if trim(rs("incept"))=membername or trim(rs("incept"))="全体会员" then
%>
    <tr>
     <td  align=center valign=middle><a href=userinfo.asp?name=<%=rs("sender")%>><font color=blue><%=rs("sender")%></font></a></td>
     <td  align=center valign=middle><%if trim(rs("incept"))=membername then%><a href=userinfo.asp?name=<%=rs("incept")%>><font color=#CC66FF><%=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  align=center valign=middle><%=rs("sendtime")%></td>
     <td  align=left valign=middle><font color=navy><%=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>  
<%  
   else
%>
    <tr>
     <td class=tablebody1 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><a href=userinfo.asp?name=<%=rs("incept")%>><font color=green><%=rs("incept")%></font></a></td>
     <td class=tablebody1 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=gray>******已经隐藏******</font></td>
     <td class=tablebody1 align=center valign=middle><a href=dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a></td>
    </tr>
<%
   end if
    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>"&_
   "<font color='#000000'>页次：<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=red>["&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><font color=black>--== 论坛点歌台-所有点歌列表 ==--</font></th>
   </tr>
  </table>  
<%
 end if
%>
<!--#include file="down.asp"-->