<%
Dim pagesize,curpage,Music_rs
pagesize=30 '设置每页显示数
If Request.QueryString("page")="" or not IsNumeric(Request.QueryString("page")) Then
curpage = 1
Else
curpage = cint(Request.QueryString("page"))
End If
If action="all" Then
sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] ORDER BY ID desc"
ElseIf action="hot" Then
sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] ORDER BY hits desc"
ElseIf action="om" Then
sql1="select sclassid from ylmv_sclass where sclass like '%欧美%'"
sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where sclassid in ("&sql1&") ORDER BY ID desc"
ElseIf action="rh" Then
sql1="select sclassid from ylmv_sclass where sclass like '%日%' or sclass like '%韩%'"
sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where sclassid in ("&sql1&") ORDER BY ID desc"
Else
sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where IsGood=true ORDER BY ID desc"
End If
Set Music_rs = Server.CreateObject("ADODB.Recordset")
Music_rs.open sql, conn, 1, 1
If Music_rs.eof Then
Response.Write("还没有推荐歌曲呢, 谢谢你的支持!")
End If
Music_rs.pagesize = pagesize
Music_rs.absolutepage = curpage
If curpage = 1 Then
Response.Write ("首页 上一页")
Else%>
首页 上一页
<%
End If
If curpage = Music_rs.pagecount Then
Response.Write (" 下一页 尾页")
Else%>
下一页 尾页
<%End If%>
页次:<%=curpage%>/<%=Music_rs.pagecount%>页
共<%=Music_rs.recordcount%>首推荐歌曲 每页<%=pagesize%>首
|