📄 index.asp
字号:
currentpage=rs.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#393939" bordercolordark="#cccccc">
<tr bgcolor="#ECF6FB">
<td width="13%" height="20" align="center"><font color="#000000">编号</font></td>
<td width="30%" height="25" align="center">
<p align="left"><font color="#000000">歌 曲 名 字</font></p></td>
<center>
<td width="12%" height="20" align="center"> <font color="#000000">试听</font> </td>
<td width="16%" height="20" align="center"> <font color="#000000">歌手</font> </td>
<td width="11%" height="20" align="center"><font color="#000000">点击</font></td>
<td width="18%" height="20" align="center"><font color="#000000">上传时间</font></td>
</center>
</tr>
<%
i=0
w=1
do while i< maxperpage and not rs.eof
%>
<FORM action=playsong.ASP name=form2
onsubmit="javascript:return lbsong();" target=lbsong>
<tr bgcolor="#FFFFFF">
<td width="13%" height="20" align="center"><font color="#000000"><%=w%></font></td>
<td width="30%" height="25"> <font color="#000000">
<INPUT name=checked
style="BORDER-BOTTOM: 0px solid; BORDER-LEFT: 0px solid; BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; COLOR: #ffffff"
type=checkbox
value=<%=rs("Url")%>>
</font><font color="#000000">
<% if len(rs("name"))>16 then %>
<%=Left(rs("name"),16)%>...
<% else %>
<%=rs("name")%>
<% end if %>
<%if not rs("date") < date then%>
<%end if%>
<%if session("admin")<>"" then%>
<a href="del.asp?id=<%=rs("id")%>">删除</a>
<%end if%>
</font></td>
<td width="12%" height="20" align="center"><font color="#000000"><A HREF="song.asp?id=<%=rs("id")%>" onClick="return newpage(this.href);"><img border="0" src="images/listen.gif"></A></font></td>
<td width="16%" height="20" align="center"><font color="#000000"><%=rs("who")%></font></td>
<td width="11%" height="20" align="center"><font color="#000000"><%=rs("hits")%></font></td>
<td width="18%" height="20" align="center"><font color="#000000"><%=rs("date")%></font></td>
</tr>
<%
i=i+1
w=w+1
rs.movenext
loop
end if
rs.Close
%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6" align="center">
<INPUT name=PageName type=hidden
value=default>
<INPUT name=chkall onclick=CheckAll(this.form) style="BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #000000 1px groove; WIDTH: 50px; COLOR: #000000; BORDER-BOTTOM: #000000 1px groove; HEIGHT: 20px; BACKGROUND-COLOR: ffffff" title=选择显示的所有歌曲 type=button value="全 选">
<INPUT name=chkOthers onclick=CheckOthers(this.form) style="BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #000000 1px groove; WIDTH: 50px; COLOR: #000000; BORDER-BOTTOM: #000000 1px groove; HEIGHT: 20px; BACKGROUND-COLOR: ffffff" title=反向选择歌曲 type=button value="反 选">
<INPUT name=B1 style="BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #000000 1px groove; WIDTH: 50px; COLOR: #000000; BORDER-BOTTOM: #000000 1px groove; HEIGHT: 20px; BACKGROUND-COLOR: ffffff" title=请先选择你想听的歌曲后再点击连播 type=submit value="连 播">
</td>
</tr>
<tr bgcolor="#F5FBFF">
<td height="25" colspan="6" align="center">
<p align="center" class="style1">页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
<a href="index.asp?pageid=1">首页</a> <a href="index.asp?pageid=<%=k-1%>">上一</a>
<%else%>
首页 上一页
<%end if%>
<%if k<>n then%>
<a href="index.asp?pageid=<%=k+1%>">下一</a> <a href="index.asp?pageid=<%=n%>">尾页</a>
<%else%>
下一页 尾页
<%end if%>
共<%=totalput%>首</p></td>
</tr>
</form>
</table>
</div></td>
</tr>
<TBODY>
<TR>
<TD> </TD>
</TR>
</TBODY>
</TABLE> </TD>
<TD rowspan="2" align=right vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=200 bgColor=#FFFFFF border=0>
<TBODY>
<TR>
<TD> </TD>
</TR>
<TR>
<TD align=middle>
<table width="85%" align="center" cellpadding="0" cellspacing="0" bordercolor="#ffffff" bordercolorlight="#393939" bordercolordark="#cccccc">
<%
set rs1=server.createobject("adodb.recordset")
sql="SELECT * from music order by hits desc"
rs1.open sql,conn,1,1
%>
<tr>
<td height="39" align="center"></div>
<IMG
height=39 src="images/t_yyph.gif"
width=162> <div align="center"></div></td>
</tr>
<% do while not rs1.eof %>
<tr>
<td width="100%" height="25" bgcolor="#FFFFFF"><font color="#000000">·</font> <font color="#000000"><A HREF="play.asp?id=<%=rs1("id")%>" onClick="return newpage(this.href);">
<% if len(rs1("name"))>10 then %>
<%=Left(rs1("name"),16)%>...
<% else %>
<%=rs1("name")%>
<% end if %>
</A> </font><font color="#000000">
<%if not rs1("date") < date then%>
<img border="0" src="images/new.gif">
<%end if%>
</font> </td>
</tr>
<%
dim top
top=top+1
rs1.movenext
if top>=10 then exit do
loop
rs1.close
%>
</table></TD>
</TR>
<TR>
<TD align=middle><IMG
height=55 src="images/right_link1.gif"
width=200></TD>
</TR>
<TR>
<TD align=middle><table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="39"></div>
<span class="style2"><IMG
height=39 src="images/t_music_search.gif"
width=162></span></td>
</tr>
<tr>
<td><form action="search.asp" method="post" name="search" target="_blank" >
<div align="center"><br>
<input maxLength="10" name="keyword" onfocus="this.value=''" size="8" style="BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #000000 1px groove; WIDTH: 80px; COLOR: #000000; BORDER-BOTTOM: #000000 1px groove; HEIGHT: 20px; BACKGROUND-COLOR: f5f5f5">
<input type="submit" value="搜索" name="search" style="BORDER-RIGHT: #000000 1px groove; BORDER-TOP: #000000 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #000000 1px groove; WIDTH: 50px; COLOR: #000000; BORDER-BOTTOM: #000000 1px groove; HEIGHT: 20px; BACKGROUND-COLOR: ffffff">
</div>
</form></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=200 border=0>
<TBODY>
<TR>
<TD height="22" bgcolor="#FFFFFF"> <div align="center"><a href="login.asp" target="_blank">管理入口</a></div></TD>
</TR>
<TR>
<TD height="23"><img src="images/right_bottom.gif" width="200" height="45"></TD>
</TR>
</TBODY>
</TABLE> </TD>
</TR>
<TR>
<TD vAlign=top><IMG src="images/homepage_pic3.gif" width="568" height=21></TD>
</TR>
</TBODY>
</TABLE>
<table width="780" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><div align="center">
</div></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">设计制作: <a href='http://cqax.net'>阿建 风格:『翱翔设计』 音乐版</a><a href='http://cqax.net'>V4.0</a></div></td>
</tr>
<tr>
<td colspan="2"><div align="center">Copyright © 2001 - 2008 <a href="http://cqax.net"><font face=Verdana, Arial, Helvetica, sans-serif><b>Www.Cqax<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved.</div></td>
</tr>
<tr>
<td width="450" height="25"><div align="right">页面执行时间：562.500 毫秒
</div></td>
<td width="330"> <SCRIPT language="javascript" src="http://s09.51.La/j/6897.js"></SCRIPT>
<NOSCRIPT><A href="http://www.51.la/?s=9&id=6897" title="51.la Free Site Stats" target="_blank"><IMG src="http://s09.51.La/s.asp?siteid=6897&t=img" border="0"></A></NOSCRIPT> </td>
</tr>
<tr>
<td colspan="2" class="top_nav"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -