dj_body.asp

不错的asp论坛,大家可以看看啊和呵呵.

<%sub dj_body()
sql="select * from djcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<TABLE bgcolor="black" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td height="24" align="right">
<%do while not rs.eof%>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="dj.asp?djcat_id=<%=rs("djcat_id")%>"><%=rs("djcat_name")%></a><%rs.movenext
loop
if rs.bof and rs.eof then%>当前没有分类<%end if%>
&nbsp;</TD>         
</TR>
<TR>
<TD width="760" background="img/menu_bg2.gif" height="4"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=204 align=left vAlign=top background=img/left_bg.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41, 11, 67, 24" href="book.asp" title="留言本"><area shape="rect" coords="106, 8, 169, 30" href="../ryxs/Default.asp" title="流星情缘纯文学网站"></map></td></tr>
</table>
<TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<td align=center height="24" background="img/title.jpg"><strong><font color="#008000">流星情缘</font></strong><font color="#008000"><strong>排行榜</strong></font></td>     
</tr>
<TR>
<td>
<font color="#008000">
<%
sql="SELECT top 10 * FROM dj ORDER by dj_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="点击次数：<%=rs("dj_count")%><br>视听评价：<%=rs("dj_desc")%><br>更新时间：<%=rs("dj_date")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br><%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有流星情缘视听资源         
<%end if%>
</font>
</td>
</tr>
<TR>
<td align=center height="24" background="img/title.jpg"><strong><font color="#008000">流星情缘推荐</font></strong></td> 
</tr>
<TR>
<td>
<font color="#008000">
<%
sql="SELECT top 10 * FROM dj where isbest = 1 order by dj_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="点击次数：<%=rs("dj_count")%><br>视听评价：<%=rs("dj_desc")%><br>更新时间：<%=rs("dj_date")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br>
<%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有流星情缘视听资源         
<%end if%>
</font>
</td>
</tr>
<TR>
<td align=center height="34" background="img/left01.gif"><strong><font color="#008000">流星情缘音乐</font></strong></td>
</tr>
<TR>
<td><font color="#008000"><%call br%>&nbsp;&nbsp;&nbsp;     
  也许你曾孤独的太久，已经习惯于一个人默默的赶路；也许你曾一千次向你心中的圣殿踏进，却又一千零一次的跌倒；也许你对现实不再抱有幻想。但是，亲爱的朋友，千万不要吹熄心中的热火，困了，累了，听听流星情缘为你推荐的音乐，你也会找到你的第七感觉！<%call br%><%call br%></font></td>
</tr>
</table>
</TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=top bgcolor="black"><%call br%>
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from dj order by dj_id DESC"
if request.querystring("djcat_id")<>"" then
sql="select * from dj where djcat_id="&request.querystring("djcat_id")&" order by dj_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width='530' height="25" border='0' align="center" cellpadding='2' cellspacing='0' background="img/mainbg.gif">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;         
            共有<span><%=totalcs%></span>个〖流星情缘〗视听资源</td>
</tr>
</table>
<table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="black" bordercolor="#ocococ" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#333333" width="63%" align="center" height="22">音乐列表</td>
          <td bgcolor="#333333" width="10%" align="center">点击</td>
          <td bgcolor="#333333" width="27%" align="center">更新时间</td></tr>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=djperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   if currentpage<>1 then
       if (currentpage-1)*djperpage<totalcs then
	       rs.move(currentpage-1)*djperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod djperpage)=0 then
      totalpages=totalcs\djperpage
   else
      totalpages=totalcs\djperpage+1
   end if
i=0
do while not rs.eof and i<djperpage
%><TR><TD>&nbsp;<img src=img/none.gif border=0><img src=img/i2.gif border='0'>&nbsp;
<a target="_blank" title="舞曲评价:<%=rs("dj_desc")%>" href="play.asp?dj_id=<%=rs("dj_id")%>">
<%=rs("dj_name")%></a></td><TD align="center"><%=rs("dj_count")%></TD><TD align="center"><%=rs("dj_date")%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td nowrap height="30" colSpan=3>当前没有视听资源！</td></tr>
<%end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="dj.asp?djcat_id=<%=request.querystring("djcat_id")%>">
<tr> 
<td align="right" bgcolor="#333333" colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> 共[<font color="#66ffff"><%=totalcs%></font>]个作品　分[<font color="#66ffff"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle bgcolor="#333333"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=dj.asp?page=1&djcat_id="&request.querystring("djcat_id")&">首页</a> "
response.write "<a href=dj.asp?page="&CurrentPage-1&"&djcat_id="&request.querystring("djcat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=dj.asp?page="&CurrentPage+1&"&djcat_id="&request.querystring("djcat_id")
response.write ">下一页</a> <a href=dj.asp?page="&totalpages&"&djcat_id="&request.querystring("djcat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/gt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM>
</TABLE>          
</td>
          </tr>
        </form>
      </table>
      <%end if%>
<%call br%><%call br%>
</TD></TR></TBODY></TABLE><%
rs.close
set rs=nothing
end sub%>