z_dglistme.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!--#include file="z_dgconn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Char.asp" -->
<!--#include file="inc/ubbcode.asp"--> 
<%
'---------------------
' write by fisher
' 本插件经由 fisher 修改适应岩岩电子同学录，并加入点歌收费
'---------------------
	
	dim abgcolor

	stats="我的祝福列表"
	
	if not founduser then
		errmsg=errmsg+"<br>"+"<li>客人不可以查阅点歌列表"
		errmsg=errmsg+"<br>"+"<li>请先<a href=login.asp><font color=blue>登录</font></a>,还没有<a href=reg.asp><font color=blue>注册</font></a>"
		founderr=true
	end if
	
	if founderr then
	   call head()
	   call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	   call txl_error()
        else
	   call head()
	   call head_var("点歌祝福","Z_dglistall.asp")
        if founderr then
		call txl_error()
	 else
		call main()
		if founderr then call txl_error()
	        end if
        end if
        call foot()

        sub main()
        abgcolor="tablebody2"
	
	
	
	

		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		
	%>	
		<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1 width=<%=txl_body(19)%>>
			<tr>
				<th><a href=z_dglistall.asp><font color=white><b>所有点歌列表</b></font></a></th>
				<th><a href=z_dglistme.asp><font color=white><b>我的点歌列表</b></font></a></th>
				<th><a href=z_dgwrite.asp><font color=white><b>我要点歌</b></font></a></th>
			</tr>
			<tr>
				<td class=tablebody2 align=center valign=middle colspan="3">你的祝福清单共有[<font color=red><b><%=mytotalrec%></b></font>]个，<a href=z_dglistall.asp><b>论坛总点歌列表</b></a>清单共有[<font color=red><b><%=totalrec%></b></font>]个。<font color=green><直接点击歌名欣赏></font></td>
			</tr>			
		</table>
		<br>
		<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1 width=<%=txl_body(19)%>>
			<tr>
				<th width=80>点歌人</th><th width=80>对方姓名</th>
    <th width=120>歌名</th>
    <th width=120>时间</th><th width=*>祝福语</th><th width=40>操作</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 class=tablebody2 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 supermaster then
%>
				<tr>
					<td class=tablebody2 align=center valign=middle><a href=javascript:openScript('userinfo.asp?name=<%=rs("sender")%>',650,500)><font color=blue><%=rs("sender")%></font></a></td>
					<td class=tablebody1 align=center valign=middle><%if trim(rs("incept"))<>"全体同学" then%><a href=javascript:openScript('userinfo.asp?name=<%=rs("incept")%>',650,500)><font color=green><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%></td>
					<td class=tablebody2 align=center valign=middle><a href=z_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><%=rs("content")%></font></td>
					<td class=tablebody2 align=center valign=middle><a href=z_dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a></td>					
				</tr>
<%		
			else
%>
				<tr>
					<td class=tablebody2 align=center valign=middle><a href=javascript:openScript('userinfo.asp?name=<%=rs("sender")%>',650,500)><font color=blue><%=rs("sender")%></font></a></td>
					<td class=tablebody1 align=center valign=middle><%if trim(rs("incept"))<>"全体同学" then%><a href=javascript:openScript('userinfo.asp?name=<%=rs("incept")%>',650,500)><font color=green><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%></td>
					<td class=tablebody2 align=center valign=middle><a href=z_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><%=rs("content")%></font></td>
			                <td class=tablebody1 align=center valign=middle><font color=gray>[删除]</font></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="&txl_body(19)&" 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=#ce0000>["&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 class=tableborder1 width=<%=txl_body(19)%>>
			<tr>
				<th><font color=white>--== 论坛点歌台-我的祝福列表 ==--</font></th>
			</tr>
		</table>


<%
call CloseDB()
end sub
%>