 |
 |
<%
dim i
i=0
page = request.querystring("Hits_Page")
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where IsGood=1 order by id desc"
rs.open sql,conn,1,1
if rs.EOF then
response.write "未收录歌曲 "
else
rs.pagesize = "12"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if
do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if
%>  /<%=md5("263"&rs("id")&"play")%>.Html target=_blank''c''><%=left(rs("musicname"),7)%> |
<% if i mod 4 =0 then%><%
end if
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
%>
|
 |