📄 showspecial.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="INC/CHAR.INC"-->
<!--#include file="function.asp"-->
<%
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<%
Specialid=request.QueryString("Specialid")
set rs=server.createobject("adodb.recordset")
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.EOF then
errmsg= "<li>服务器出错！请联系管理员</li>"
call error()
Response.End
else
rs("hits")=rs("hits")+1
rs.update
hits=rs("hits")
Classid=rs("Classid")
name=rs("name")
pic=rs("pic")
intro=rs("intro")
dateandtime=DateValue(rs("dateandtime"))
pollot=rs("pollot")
pollots=rs("pollots")
end if
rs.close
%>
<!--#include file="top.asp"-->
<div align="center">
<center>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="773" id="AutoNumber1" height="126">
<tr>
<td width="734" height="116" bgcolor="#30393D"><table width="95%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
<tr>
<td width="200" valign="top">
<%if isNull(Pic) then%>
<img border="0" src="<%=nogif%>" width="90" height="90">
<%else%>
<img src="<%=pic%>" alt="专辑图片" width="90" height="90">
<%end if%>
<br>
<br>
<p>专 辑:<%=name%><br>
点击:<%=hits%><br>
添加时间:<%=dateandtime%><br>
专辑简介:<%if intro="" then%>
<%else%>
<%=htmlencode3(intro)%>
<%end if%>
</td>
<td width="500" valign="top" align="center">
<%
sql="select * from MusicList where Specialid="&cstr(Specialid)
rs.open sql,conn,1,1
if rs.EOF then
response.write "未收录歌曲"
else
MaxPerPage=15
PageUrl="showspecial.asp"
totalPut=rs.recordcount
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
else
currentPage=1
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
end if
end if
end if
rs.close
sub showContent
%>
<table cellpadding="0" cellspacing="1" bgcolor="2E5667" class="TableLine" style="border-collapse: collapse">
<form name="form2" onsubmit="javascript:return lbsong();" target="Listen" action="playsong.asp">
<tr>
<td width="7%" height=22 align=center bgcolor="#30393D">选择</td>
<td width="46%" height=22 align=center bgcolor="#30393D">歌曲名字</td>
<td width="8%" height=22 align=center bgcolor="#30393D">点击</td>
<td width="8%" height=22 align=center bgcolor="#30393D">试听</td>
<td width="8%" height=22 align=center bgcolor="#30393D">点歌</td>
<td width="8%" height=22 align=center bgcolor="#30393D">收藏</td>
</tr>
<%
i=0
do while not rs.eof
i=i+1
%>
<tr>
<td width="7%" align=center bgcolor="#30393D"><input type="checkbox" name="checked" value="#">
</td>
<td width="46%" bgcolor="#30393D"> <%=i%>.
<%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <font color="#FFFFFF"><%=rs("MusicName")%></font></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <font color="#FFFFFF"><%=rs("MusicName")%></font></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <font color="#FFFFFF"><%=rs("MusicName")%></font></a>
<%end if%>
<%end if%>
<%end if%>
</td>
<td width="8%" align=center bgcolor="#30393D"><%=rs("hits")%> </td>
<td width="8%" align=center bgcolor="#30393D">
<%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playreal.gif" border="0" alt="试听 使用RealPlayer播放" ></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playmedia.gif" border="0" alt="试听 使用MediaPlayer播放" ></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playflash.gif" border="0" alt="试听 使用Flash6.0播放" ></a>
<%end if%>
<%end if%>
<%end if%>
</td>
<td width="8%" align=center bgcolor="#30393D"><a href="javascript:open_window('WriteSMusic.asp?id=<%=rs("id")%>','WriteSMusic','width=420,height=145')"> <img src="images/showmusic.gif" border=0 alt="点歌"></a></td>
<td width="8%" align=center bgcolor="#30393D"><a href="UserCollect.asp?action=add&id=<%=rs("id")%>" target="Collect"> <img src="images/heart.gif" border=0 alt="收藏"></a></td>
</tr>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr bgcolor="#30393D">
<td colspan=6 align=center>
<input type="hidden" name="Specialid" value="<%=Specialid%>">
<input type="button" name="chkall" value="全 选" onClick="CheckAll(this.form)" title="选择显示的所有歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="button" name="chkOthers" value="反 选" onClick="CheckOthers(this.form)" title="反向选择歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="submit" name="B1" value="连 播" title="请先选择你想听的歌曲后再点击连播" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
</td>
</tr>
</form>
</table>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
%>
<form method=Post action="<%=filename%>?specialid=<%=specialid%>">
<center>
<p>共<font color="<%=AlertFColor%>"><b><%=totalnumber%></b></font>首舞曲
<%if CurrentPage<2 then%>
首页 上一页
<%else%>
<a href="<%=filename%>?page=1&specialid=<%=specialid%>"><font color="#FFFFFF">首页</font></a> <a href="<%=filename%>?page=<%=CurrentPage-1%>&specialid=<%=specialid%>"> <font color="#FFFFFF">上一页</font></a>
<%
end if
if n-currentpage<1 then
%>
下一页 末页
<%else%>
<a href="<%=filename%>?page=<%=CurrentPage+1%>&specialid=<%=specialid%>"> <font color="#FFFFFF">下一页</font></a> <a href="<%=filename%>?page=<%=n%>&specialid=<%=specialid%>"> <font color="#FFFFFF">末页</font></a>
<%end if%>
页次:<strong><font color="<%=AlertFColor%>"><%=CurrentPage%>/<%=n%></font></strong>页
转到:
<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>
<option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>> 第<%=i%>页</option>
<%next%>
</select>
</p>
</center>
</form>
<center>
<%end function%>
</center>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</center>
</div>
<div align="center">
<!--#include file="friendsite.asp"-->
</div>
<br>
<%
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -