z_dgshow.asp

此文件为一个电子同学录

<!--#include file="z_dgconn.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/chkinput.asp" -->
<!--
'---------------------
' write by 绿水青山
' 本插件经由 chkp1 修改适应岩岩电子同学录，并加入点歌收费
'---------------------
-->

<%dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
'定义显示点歌列表
Call list
Sub list
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
%>	
			当前没有点歌列表
<%else%>
<marquee scrollamount=1 direction=up height=100 onmouseover=this.stop(); onmouseout=this.start();>
<%
currentPage=request.querystring("page")
			if currentpage="" or not dvbbs.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)
%>
					<img src=pic/dglb.gif border=0 hight=13>
					<a href=javascript:openScript('dispuser.asp?name=<%=rs("sender")%>')><font color=blue><%=rs("sender")%></font></a>
					于<%=rs("sendtime")%>为
					<%if trim(rs("incept"))<>"全体会员" then%><a href=javascript:openScript('dispuser.asp?name=<%=rs("incept")%>')><font color=#CC66FF><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%>
					点了一首
					<a href='z_dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=play><font color=red>『<%=rs("medianame")%>』</font></a>
					并祝福说：
					<font color=orange><B><%=rs("content")%></B></font>
					<%if trim(rs("sender"))=membername or supermaster then%>
					<a href=z_dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><%end if%><br>
<%
	  	page_count = page_count + 1
		rs.movenext
		wend
end if
end Sub
%>
<br>