各位大哥好,我分了好久都都还没分出来,谁能帮帮我分一下页谢谢了。
<!--#include file="musiclm.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<div align="center">
<%
dim i
gs_id = request.QueryString("id")
if gs_id<>"" then
set rs=conn.execute("SELECT * FROM music where gs_id="&gs_id&" order by hits desc")
if rs.eof and rs.bof then
response.Write("暂时没有歌曲")
else
%>
<table width="50%" height="130" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="18%" height="112"><div align="center"><img name="" src="<%=rs("gs_img")%>" width="122" height="111" alt=""></div></td>
<td width="82%"><div align="center"><%=rs("gs_baby")%></div></td>
</tr>
<tr>
<td height="15" colspan="2"><div align="center">
</div></td>
</tr>
</table>
<table width="50%" height="25" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="40%"><div align="center">歌曲</div></td>
<td width="22%"><div align="center">试听</div></td>
<td width="20%"><div align="center">人气</div></td>
<td width="18%"><div align="center">下载</div></td>
</tr>
</table>
<%
if not rs.eof then
i=0
do while not rs.eof
i=i+1
%>
<table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="40%"><div align="center"><%=rs("musicname")%></div></td>
<td width="22%"><div align="center"><a href="play.asp?id=<%=rs("id")%>" & <%=rs("map")%> target="_blank">试听</a></div></td>
<td width="20%"><div align="center"><%=rs("hits")%></div></td>
<td width="18%"><div align="center"><a href="<%=rs("map")%>"><img src="images/106.gif" width="19" height="20"></a></div></td>
<% if i mod 3 =0 then%>
<%
end if
rs.movenext
loop
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</tr>
</table>
</div>
</body>
</html>
<!--#include file="dibu.asp" -->
[求助]分页出现问题