📄 list.asp
字号:
<!--#include file="conn.asp"-->
<%
Dim action
action=trim(request.QueryString("action"))
If action="best" Then
stats="全部推荐专辑"
Else
stats="全部专辑列表"
End If
%>
<!--#include file="home.asp"-->
<head>
<style>body,td{font-size:12px}</style></head>
<table width="779" height="570" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" height="570" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
<td width="186" valign="top"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="top"><img src="images/amusic_0a11.gif" width="188" height="25"></td>
</tr>
</table>
<!--#include file="inc/login.inc" -->
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32"><img src="images/amusic_0a13.gif" width="188" height="25"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top0.gif" width="188" height="29"></td>
</tr>
</table>
<!--#include file="inc/links.inc" -->
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23"><img src="images/0394_top1.gif" width="188" height="29"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<!--#include file="inc/list_music_hot.inc"-->
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top2.gif" width="188" height="29"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<!--#include file="inc/list_special_hot.inc"-->
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top3.gif" width="188" height="29"></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="45"> <div align="center"><img src="images/WMP9series_Free.gif" width="120" height="32"></div></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="45"> <div align="center"><img src="images/real.gif" width="121" height="34"></div></td>
</tr>
</table></td>
<td width="1" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
<td width="590" valign="top"><table width="589" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="314" height="18"> <div align="center">
<!--#include file="inc/top_count.inc" -->
</div></td>
<td width="24"><img src="images/fink.gif" width="25" height="23"></td>
<td width="251">
<!-- 导航歌曲搜索 开始 -->
<table width="250" border="0" cellspacing="0" cellpadding="4" align="center" height="17">
<form action="search.asp" method="get">
<tr align="center">
<td width="71" height="2"> <input name="key_keyword" class=input onFocus="this.value=''" value="关键字" size="10" maxlength="30" ></td>
<td width="79"> <select size="1" name="key_type" class=input >
<option selected value="music">歌曲名称</option>
<option value="singer">歌手名称</option>
<option value="special">专辑名称</option>
</select></td>
<td width="42"> <input type="submit" value="搜索" class=input name="submit"></td>
<td width="42"> <input type="reset" value="清除" class=input name="submit2"></td>
</tr>
</form>
</table>
<!-- 导航歌曲搜索 结束 -->
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/0394_list1.gif" bgcolor="#FFFFFF"><table width="100%" height="29" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"> </td>
<td width="96%" valign="bottom"><%=stats%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="227" bgcolor="#FFFFFF">
<table width="579" height="227" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="1" height="227" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
<td width="550" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"> <table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="left"><a href="index.asp"><%=HOST_NAME%></a> - <%=stats%></div></td>
</tr>
</table></td>
</tr>
</table>
<TABLE width=575 height=1
border=0 align="center" cellPadding=0 cellSpacing=0
background="images/txwm_line_1.gif">
<TBODY>
<TR>
<TD height=1><img src="images/b.gif" width="1" height="1"></TD>
</TR>
</TBODY>
</TABLE>
<%
Dim pagesize,curpage,Special_rs
pagesize=27 '设置每页显示 3的倍数
If Request.QueryString("page")="" or not IsNumeric(Request.QueryString("page")) Then
curpage = 1
Else
curpage = cint(Request.QueryString("page"))
End If
If action="best" Then
sql = "select SpecialID,name,Yuyan,NClass,pic,NClassID from [Special] where isgood=true ORDER BY SpecialID desc"
Else
sql = "select SpecialID,name,Yuyan,NClass,pic,NClassID from [Special] ORDER BY SpecialID desc"
End If
Set Special_rs = Server.CreateObject("ADODB.Recordset")
Special_rs.open sql, conn, 1, 1
If Special_rs.eof Then
Response.Write("还没有专辑呢!~ 谢谢你的支持!~")
End If
Special_rs.pagesize = pagesize
Special_rs.absolutepage = curpage
%>
<table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%
If curpage = 1 Then
Response.Write ("首页 上一页")
Else%>
<a href='?page=1&action=<%=action%>'>首页</a> <a href='?page=<%=cint(curpage-1)%>&action=<%=action%>'>上一页</a>
<%
End If
If curpage = Special_rs.pagecount Then
Response.Write (" 下一页 尾页")
Else%>
<a href='?page=<%=cint(curpage+1)%>&action=<%=action%>'>下一页</a> <a href='?page=<%=cint(Special_rs.pagecount)%>&action=<%=action%>'>尾页</a>
<%End If%>
页次：<STRONG><%=curpage%>/<%=Special_rs.pagecount%></STRONG>页
共<b><%=Special_rs.recordcount%></b>张专辑 每页<B><%=pagesize%></B>张 </td>
</tr>
</table>
<div align="center">
<%
For i=1 To pagesize
If (i-1) mod 3 = 0 Then
j=j+1
%>
<table width="575" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<% End If
If i mod 2<>0 Then
bgcolor="f7f7f7"
Else
bgcolor="ffffff"
End If
pic=Special_rs(4)
if instr(pic,"/pic/")>0 then
pic="http://www.9520.cn/"&pic
end if
%>
<td width="11%" bgcolor="<%=bgcolor%>"><a href="show.asp?specialid=<%=Special_rs(0)%>" target="_blank"><img src="<%=pic%>" width="60" height="70" border="0" style="border: 1 solid #000000"></a></td>
<td width="22%" valign="top" bgcolor="<%=bgcolor%>">
<table width="120" border="0" cellspacing="0" cellpadding="2">
<tr valign="top">
<td height="22"><font color="#FF6600"><font color="#000000"><img src="images/om_icon10_yes.gif" alt="专 辑" width="14" height="14"></font></font></td>
<td height="22"><a href="show.asp?specialid=<%=Special_rs(0)%>" target="_blank"><u><font color="#FF6600"><%=Special_rs(1)%></font></u></a></td>
</tr>
<tr valign="top">
<td width="17" height="22"><font color="#FF6600"><font color="#FF6600"><img src="images/bull_voice_ok.gif" alt="歌 手" width="15" height="14"><font color="#000000"></font></font><font color="#000000">
</font></font></td>
<td width="95"><font color="#FF6600"><font color="#000000"><a href="special.asp?id=<%=Special_rs(5)%>" target="_blank"><%=Special_rs(3)%></a></font></font></td>
</tr>
<tr valign="top">
<td height="22"><img src="images/036.gif" alt="语 言" width="15" height="16"></td>
<td><%=Special_rs(2)%></td>
</tr>
</table>
<%
Special_rs.movenext
If (i mod 3 = 0) or Special_rs.eof or i=pagesize Then
%>
</tr>
</table>
<TABLE width=575 height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif">
<TBODY>
<TR>
<TD height=1><img src="images/b.gif" width="1" height="1"></TD>
</TR>
</TBODY>
</TABLE>
<%
End If
If Special_rs.eof Then Exit For
Next
%>
<br>
<table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%
If curpage = 1 Then
Response.Write ("首页 上一页")
Else%>
<a href='?page=1&action=<%=action%>'>首页</a> <a href='?page=<%=cint(curpage-1)%>&action=<%=action%>'>上一页</a>
<%
End If
If curpage = Special_rs.pagecount Then
Response.Write (" 下一页 尾页")
Else%>
<a href='?page=<%=cint(curpage+1)%>&action=<%=action%>'>下一页</a> <a href='?page=<%=cint(Special_rs.pagecount)%>&action=<%=action%>'>尾页</a>
<%End If%>
页次：<STRONG><%=curpage%>/<%=Special_rs.pagecount%></STRONG>页
共<b><%=Special_rs.recordcount%></b>张专辑 每页<B><%=pagesize%></B>张
<%Special_rs.close
Set Special_rs=NOTHING
%>
</td>
</tr>
</table>
</td>
<td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
</tr>
</table></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394log.gif" width="589" height="30"></td>
</tr>
</table></td>
<td width="1" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
</tr>
</table>
<!--#include file="box.asp"-->
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -