dglistall.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 135 行

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<!--#include file="inc/incpage.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/ubbcode.asp"--> 
<%
start="所有点歌列表"
call bbs_top()%>
<table cellpadding=3 cellspacing=1 border=0 align=center width=760 bgcolor=#FFFFFF class="table-hx66s">
<TR><TD>
<%
dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage,sql,formuser,touser
if UserLogined<>True then%>
<script language="vbscript">
	msgbox"客人不可以查阅点歌列表,请先登陆或注册"
location.href = "default.asp"
</script>
<%else	
totalrec=conn.execute("select count(id) from media")(0)
mytotalrec=conn.execute("select count(id) from media where incept='"&ckuname&"' or incept='全体会员'")(0)
%><table cellpadding=3 cellspacing=1 border=0 align=center>
			<tr>
				<td align=center><a href=dglistall.asp><b>所有点歌列表</b></a></td>
				<td align=center><a href=dglistme.asp><b>我的点歌列表</b></a></td>
				<td align=center><a href=dgwrite.asp><b>我要点歌</b></a></td>
			</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><%=ckuname%></b>]</font></a>的祝福清单共有[<font color=red><b><%=mytotalrec%></b></font>]个。<font color=green><直接点击歌名欣赏></font></td>
			</tr>
		</table>	
		<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
				<tr align="Center">
					<td width=80 height=28>点歌人</td><td width=80>对方姓名</td><td width=150>歌名</td><td width=120>时间</td><td width=*>祝福语</td><th width=50>操作</th> 
				</tr>	
			
	<%	
		set rs=server.createobject("adodb.recordset")
		sql="select * from media Order By sendtime Desc"
		rs.open sql,conn,3,3				
		if rs.eof and rs.bof then
		currentpage=0
	%><tr><td  valign=middle colspan=6>当前没有点歌列表</td></tr>
	<%else
		  currentPage=checknum(request.querystring("page"))
		  if currentpage="" then
				currentpage=1
			else
				currentpage=clng(currentpage)
				if not IsNumeric(currentpage) and currentpage="" then 
					currentpage=1
			        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"))=ckuname or trim(rs("incept"))="全体会员" or checkadmin(ckuname)>=3 then
%>
				<tr>
					<td  align=center valign=middle height=25><font color=blue><%=rs("sender")%></font></td>
					<td  align=center valign=middle><%if trim(rs("incept"))=ckuname then%><font color=#CC66FF><%=rs("incept")%></font><%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><%=htmlcoder(rs("medianame"))%></a></td>
					<td  align=center valign=middle><%=rs("sendtime")%></td>
					<td  align=left valign=middle><font color=navy>&nbsp;<%=ubbcode(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 align=center valign=middle><font color=blue><%=rs("sender")%></font></td>
					<td align=center valign=middle><font color=green><%=rs("incept")%></font></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><%=htmlcoder(rs("medianame"))%></a></td>
					<td align=center valign=middle><%=rs("sendtime")%></td>
					<td align=left valign=middle><font color=gray>&nbsp;******已经隐藏******</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>
<%
			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=740 bgcolor=#FFFFFF  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>
				<td align=center>--== 论坛点歌台-所有点歌列表 ==--</td>
			</tr>
			<tr>
				<td align=center><a href=default.asp>返回论坛</a>&nbsp;&nbsp;&nbsp;<a href="javascript:window.close()">关闭此页面</a></td>
			</tr>
		</table><br>

<%
	end if
%>
</td>
</tr>
</table>
<%call bbs_foot()%>