dg.asp

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

<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<tr>
   <td height="5"></td>
</tr>
<tr>
<td>
<table width="740" border="0" align="center" cellspacing="1" class="b4" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse">
<tr>
 <td width="730" height="26" class="a4" align="center">
<b>≡点歌祝福栏≡&nbsp;&nbsp;| <a href=dglistall.asp target=_blank>点歌列表</a> | <a href=dglistme.asp target=_blank>我的点歌单</a> | <a href=dgwrite.asp target=_blank>我要点歌</a> |&nbsp;&nbsp;<a href=http://search.sogua.com/search/search.asp target=_blank>∝歌曲搜索>>></a>
</td>
</tr>
<tr>
<td height=80 width="740">
<%
if isnull(userid) or UserLogined<>True then 
%>
<table width=730 border="0" cellspacing="0" cellspacing='0' style='border-collapse: collapse'>
<tr><td height=80 width="100%" align="middle">
请您先 <B>注册</b> 或 <B>登陆</b> 后查看点歌祝福！
</td>
</tr></table></td>
<%
else
	dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage,formuser,touser
	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
	%>	
			<div align="center">当前没有点歌列表</div>
<%else%>
<marquee scrollamount=1 direction=up height=80 onmouseover=this.stop(); onmouseout=this.start();>
<%
currentPage=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 = 20
		rs.AbsolutePage=currentpage
		page_count=0
      	        totalrec=rs.recordcount
		while (not rs.eof) and (not page_count = rs.PageSize)
if trim(rs("sender"))=ckuname or trim(rs("incept"))=ckuname or trim(rs("incept"))="全体会员" or checkadmin(ckuname)>=3 then
%>
<img src=pic/dglb.gif border=0><font color=blue><%=rs("sender")%></font>
					于<%=rs("sendtime")%>为
					<%if trim(rs("incept"))=ckuname then%><font color=#CC66FF><%=rs("incept")%></font><%else%><font color=olive><%=rs("incept")%></font><%end if%>
					点了一首
					<a href='dgplay.asp?id=<%=rs("id")%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=_blank><font color=red>『<%=htmlcoder(rs("medianame"))%>』</font></a>
					并祝福说：
					<font color=orange><B><%=htmlcoder(rs("content"))%></B></font>
					<a href=dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><br>
<%		
else%>
					<img src=pic/dglb.gif border=0><font color=blue><%=rs("sender")%></font>
					于<%=rs("sendtime")%>为
					<font color=green><%=rs("incept")%></font>
					点了一首
					<a href='dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=_blank><font color=red>『<%=htmlcoder(rs("medianame"))%>』</font></a>
					并祝福说：
					<font color=orange>******已经隐藏******</font>
					<br>
<%
		end if
	  	page_count = page_count + 1
		rs.movenext
		wend
	end if
end if 
%>
</table>
   </td>
</tr>
<tr>
   <td height="5"></td>
</tr>
</table>