ddlb.inc

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

<%   
      set rs=server.createobject("adodb.recordset")  
set rs=conn.execute("SELECT * FROM class order by classid")   
if not Rs.eof then  
		do while not rs.eof  
%>
<table width="773" border="1" cellpadding="0" cellspacing="1" bgcolor="#3366CC" id="AutoNumber1" style="border-collapse: collapse" align="center">
  <tr align="center" height="25"><td width="60"><font color="#FFFFFF"><b>人 气</b></font></td>
<td width="200"><b><a href="speciallist.asp?Classid=<%=rs("Classid")%>"><font color="#FFFFFF"><%=rs("class")%></a></b></font></td>
<td width="50"><font color="#FFFFFF"><b>人 气</b></font></td>
<td width="200"><b><a href="speciallist.asp?Classid=<%=rs("Classid")%>"><font color="#FFFFFF"><%=rs("class")%></a></b></font></td>
<td width="50"><font color="#FFFFFF"><b>人 气</b></font></td>
<td width="200"><b><a href="speciallist.asp?Classid=<%=rs("Classid")%>"><font color="#FFFFFF"><%=rs("class")%></a></b></font></td>
</tr></tbody></table>
      <table width="773" border="1" style="border-collapse: collapse"  cellpadding="1" cellspacing="0" bgcolor="#000000"  align="center" bordercolor="#330099">
        <tr> 
            <%classid=rs("classid")%>  <%
Set rst=Server.CreateObject("ADODB.RecordSet")
sql="Select * from MusicList where classid="&classid&" and IsGood=False order by id Desc"
rst.open sql,conn,1,1
rst.pagesize=100  '每页显示数目
num=rst.recordcount
pagenum=rst.pagecount
page=request("page")

if rst.eof and rst.bof then
response.Write("此分类没有舞曲")
else

'判断页码开始
If page <> "" then
page = cint(page)
if err.number <> 0 then 
err.clear
page = 1
end if
if page < 1 then 
page = 1
end if 

else
page = 1
End if
if page*rst.pagesize > num and not((page-1)*rst.pagesize < num)then 
page=1
end if
'判断页码结束

rst.absolutepage = page 'absolutepage：设置指针指向某页开头
if page<>pagenum then
for i=1 to rst.pagesize
%>
              <td  width="250" onMouseOver ="this.style.backgroundColor='#000099'" onMouseOut ="this.style.backgroundColor='#3f4042'"> 
                <table width="100%" cellpadding="0" cellspacing="1" class="TableLine" style="border-collapse: collapse">
                  <tr align="center"><td width="50" bgcolor="#800000"><font color="#FFFF00"><%=rst("hits")%></font></td>
                    
                <td width="200"> 
                  <%
                            musictype=rst("musictype")
                              if musictype=1 then
                              %>
                  <a href=songmedia.asp?id=<%=rst("id")%> target=_blank"dj" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),15)%> 
                  <% if len(rst("musicname"))>10 then Response.Write ".." %>
                  </font> </a> 
                  <%else if musictype=2 then%>
                 <a href=songreal.asp?id=<%=rst("id")%> target=_blank"dj" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),15)%> 
                  <% if len(rst("musicname"))>10 then Response.Write ".." %>
                  </font> </a> 
                  <%else if musictype=3 then%>
                  <a href="javascript:open_window('songflash.asp?id=<%=rst("id")%>','Listen','width=306,height=440')" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),15)%> 
                  <% if len(rst("musicname"))>10 then Response.Write "..." %>
                  </font> </a> 
                  <%end if%>
                  <%end if%>
                  <%end if%>
                </td>
                  </tr></table></td>
              <%
if (i mod 3)=0 then response.write "</tr><tr>"
rst.movenext
next
else
for i=1 to num-(page-1)*rst.pagesize
%>
              
          <td width="250" onMouseOver ="this.style.backgroundColor='#000099'" onMouseOut ="this.style.backgroundColor='#3f4042'"> 
          <table width="100%" cellpadding="0" cellspacing="1" class="TableLine" style="border-collapse: collapse">
              <tr align="center"><td width="50" bgcolor="#800000"><font color="#FFFF00"><%=rst("hits")%></font></td>
                <td width="200">
                  <%
                            musictype=rst("musictype")
                              if musictype=1 then
                              %>
                  <a href=songmedia.asp?id=<%=rst("id")%> target=_blank"dj" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),15)%> 
                  <% if len(rst("musicname"))>10 then Response.Write ".." %>
                  </font> </a> 
                  <%else if musictype=2 then%>
                  <a href=songreal.asp?id=<%=rst("id")%> target=_blank"dj" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),15)%> 
                  <% if len(rst("musicname"))>10 then Response.Write ".." %>
                  </font> </a> 
                  <%else if musictype=3 then%>
                  <a href="javascript:open_window('songflash.asp?id=<%=rst("id")%>','Listen','width=306,height=440')" title='<%=rst("musicname")%>'><font color="#FFFFFF"> 
                  <%=left(rst("musicname"),10)%> 
                  <% if len(rst("musicname"))>10 then Response.Write "..." %>
                  </font> </a> 
                  <%end if%>
                  <%end if%>
                  <%end if%>
                </td>
              </tr>
            </table>
          </td>
              <%
							if (i mod 3)=0 then response.write "</tr><tr>"
rst.movenext
next
end if
end if
'rst.close
'Set rst=nothing
%>


          </table>
        <%
sql="select * from class where classid="&classid&""
set rsp=server.createobject("adodb.recordset")
rsp.open sql,conn,1,1
if rsp("xz")=0 then%> <br><a href="<%=rsp("dz")%>" target="_blank"><img src="<%=rsp("tu")%>" border=0 width="<%=rs("kd")%>" height="<%=rs("gd")%>"></a> 
<br><br><%elseif rsp("xz")=1 then%><br>
<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 width=<%=rsp("kd")%> height=<%=rsp("gd")%>>
        <param name=movie value=<%=rsp("tu")%>>
        <param name=quality value=high>
        <embed src=<%=rsp("tu")%> quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=750 height=150>
        </embed> 
      </object> <br>
      <%elseif rsp("xz")=2 then%>
      <%end if%><%                       
		rs.movenext                      
		loop                      
	end if                      
rs.close                      
%></td></tr></table>