📄 singerlist.asp
字号:
<!--#include file="conn.asp"-->
<%
Dim SClassID,stats,SClass_rs
SClassID=request.QueryString("id")
If SClassID="" or not IsNumeric(SClassID) Then
Response.Write ("访问错误!")
Response.End
End If
Set SClass_rs=conn.execute("select SClass from [SClass] where SClassid="&Cint(SClassID))
If SClass_rs.eof Then
Response.Write ("参数错误!可能已经删除")
Response.End
End If
SClassName=SClass_rs(0)
SClass_rs.close
Set SClass_rs=NOTHING
stats=SClassName
%>
<!--#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%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top5.gif" width="188" height="29"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="45" align="center" bgcolor="#FFFFFF">
<!--#include file="inc/list_special_new.inc"-->
</td>
</tr>
</table>
<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="3%"> </td>
<td width="97%" valign="bottom"><%=SClassName%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="116" bgcolor="#FFFFFF">
<table width="579" height="116" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="1" height="116" 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 height="22" bgcolor="#FFFFFF">
<%
Dim NClass,thislist
Set NClass_rs=conn.execute("select NClassID,NClass,Abcd from [NClass] where SClassid="&Cint(SClassID)&" order by Abcd")
DO While Not NClass_rs.eof
i=i+1
If thislist <> NClass_rs("Abcd") Then
'If NClass_rs("Abcd")="B" Then Exit Do
thislist = NClass_rs("Abcd")
i=1
j=j+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center"> <font color="#990000" size="4"><strong><%=thislist%></strong></font>
</td>
</tr>
<tr>
<td><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></td>
</tr>
<% End If
If i mod 2 <>0 Then
bgcolor="F7F7F7"
Else
bgcolor="FFFFFF"
End If
If (i-1) mod 3 = 0 Then
%>
<tr>
<td bgcolor="<%=bgcolor%>"><table width="99%" height="22" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%End If%>
<td width="31%"><a href="special.asp?id=<%=NClass_rs(0)%>"><%=NClass_rs(1)%></a></td>
<%
NClass_rs.movenext
If NClass_rs.eof Then%>
</tr>
</table></td>
</tr>
<tr>
<td><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></td>
</tr>
</table>
<%If j=1 Then %>
</td>
</tr>
</table>
<%end if%>
<%ElseIf i mod 3 = 0 Then
Response.Write ("</tr></table></td></tr><tr><td><TABLE width=100% height=2 border=0 align=center cellPadding=0 cellSpacing=0 background=images/txwm_line_1.gif><TBODY><TR><TD height=2><IMG height=2 src=img/dot.gif width=10></TD></TR></TBODY></TABLE></td></tr>")
If thislist <> NClass_rs("Abcd") and j=1 Then
Response.Write("</table>")
If j=1 Then Response.Write ("</td></tr></table>")
ElseIf thislist <> NClass_rs("Abcd") Then
Response.Write("</table>")
End If
ElseIf thislist <> NClass_rs("Abcd") Then
Response.Write ("</tr></table></td></tr><tr><td><TABLE width=100% height=2 border=0 align=center cellPadding=0 cellSpacing=0 background=images/txwm_line_1.gif><TBODY><TR><TD height=2><IMG height=2 src=img/dot.gif width=10></TD></TR></TBODY></TABLE></td></tr></table>")
If j=1 Then Response.Write ("</td></tr></table>")
End If
Loop
NClass_rs.close
Set NClass_rs=NOTHING
%>
</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/music_02.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 + -