dj100.asp

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

<!--#include file="dgconn.asp"-->
<table bgcolor=white border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=<%=c1%> width=98%  align=center>
<tr>
<th background=pic/<%=sp%>3.gif align=center bgcolor=<%=c1%> id=tabletitlelink height=23>
<b><font color=white>≡点歌祝福栏≡&nbsp;&nbsp;| </font><a href=dglistme.asp><font color=white>我的点歌单</font></a><font color=white> | </font><a href=dgwrite.asp><font color=white>我要点歌</a> | &nbsp;&nbsp;</font></b><a href=http://search.sogua.com/search/search.asp target=_blank><font color=white>∝歌曲搜索>>></font></a>
</th>
</tr>
<tr>
<td height=80 width="100%" background=pic/<%=sp%>bg.gif>
<%
membername=request.cookies(cn)("lgname")
dim page_count,Pcount,totalrec,mytotalrec,totalPages,currentPage
dim abgcolor,username	
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=80 onmouseover=this.stop(); onmouseout=this.start();>
<%
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
%>
&nbsp;<img src=pic/tl.gif border=0 height=11> <a href=userinfo.asp?name=<%=rs("sender")%> target=_blank><font color=blue><%=rs("sender")%></font></a> 于<%=rs("sendtime")%>为 <%if trim(rs("incept"))=membername then%><a href=userinfo.asp?name=<%=rs("incept")%> target=_blank><font color=#CC66FF><%=rs("incept")%></font></a><%else%><font color=olive><%=rs("incept")%></font><%end if%> 点了一首 <a href='dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=_blank><font color=red>『<%=rs("medianame")%>』</font></a> 并祝福说：<font color=orange><B><%=kbbs(rs("content"))%></B></font><a href=dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><br>
<%else%>
&nbsp;<img src=pic/tl.gif border=0 height=11> <a href=userinfo.asp?name=<%=rs("sender")%> target=_blank><font color=blue><%=rs("sender")%></font></a> 于<%=rs("sendtime")%>为 <a href=userinfo.asp?name=<%=rs("incept")%> target=_blank><font color=green><%=rs("incept")%></font></a> 点了一首<a href='dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%>' target=_blank><font color=red>『<%=rs("medianame")%>』</font></a>并祝福说：<font color=orange>******已经隐藏******</font><a href=dgdel.asp?id=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">[删除]</a><br>
<%end if
page_count = page_count + 1
rs.movenext
wend
end if%>
</table>