showsmusic.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<table border="0" width="100%" cellspacing="0" class="TableLine" bordercolor="#333333" bordercolordark="#D5D5D5" style="border-collapse: collapse" cellpadding="0">
  <%
set rs=conn.execute("SELECT * from SendMusic order by id desc;")
Totalcount =INT(RS.recordcount)
if rs.eof then
%>
  <tr> 
    <td colspan=2>尚未有人点歌</td>
  </tr>
  <%	
else
	k=0
	do while not rs.eof
		FromUser=rs("FromUser")
		ForUser=rs("ForUser")
		MusicName=rs("MusicName")
		MusicId=rs("MusicId")
		Words=rs("Words")
		DateAndTime=rs("DateAndTime")
		IsNew=rs("IsNew")
		k=k+1
%>
  <tr> 
    <td><font color="#FF0000">[点歌]</font><font color="#006600"><%=FromUser%></font>为<font color="#3366CC"><%=ForUser%></font>点播[<a href="javascript:open_window('ShowMusic.asp?id=<%=MusicId%>','Listen0','width=366,height=100')"><%=MusicName%></a>].<font color="#FF6600"><br>
    附言:<%=Words%></font></td>
  </tr>
  <% 
		if k>=6 then
%>
<tr>  
               <td width="100%" align="right">  
               <a href=MoreSMusic.asp target="_blank">更多点歌</a>               </td>
             </tr>
  <%
			exit do
		end if
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%>
</table>