电影音乐调用

<!-------------------电影音乐 开始------------------->
  <tr><td height=25 align=center>
  <table border=0 cellspacing=0 cellpadding=0 width='98%'>
  <td width='80%'>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr align=center>
  <td width=288 height=26 align=left background='skin/<%response.write joekoe_cms.web_skin%>/bg_td.gif' border=0><b><font color="#FFFFFF"> <img src="skin/skin_1/small/m_forum.gif">   影视中心</font></b></td>
  <td width=2></td>
  <td width=288 height=26 align=left background='skin/<%response.write joekoe_cms.web_skin%>/bg_td.gif' border=0><b><font color="#FFFFFF"> <img src="skin/skin_1/small/m_forum.gif">   音乐地带</font></b></td>
  </tr>
  <tr align=center>
  <td>
    <table border=0 width='100%' class=bg_td>
<%oid=0
sql="select top 1 id,name,types,genre,lang,star,emoney,counter,remark,pic from video where hidden=1 and pic<>'' order by id desc"
set rs=joekoe_cms.exec(sql,1)
id=rs("id")
topic=rs("name")
%>
<tr><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=center>
<td width='35%'><script language=javascript>document.write(pic_fk('<%response.write rs("pic")%>',4,'video_view.asp?id=<%response.write id%>'));</script></td>
<td width='65%'>
<table border=0 width='100%'>
<tr><td><b><a href='video_view.asp?id=<%response.write id%>' alt='<%response.write topic%>'><%response.write joekoe_cms.code_html(topic,1,12)%></a></b></td></tr>
<tr><td>星级：<img src='images/down/star<%response.write int(rs("star"))%>.gif' border=0></td></tr>
<tr><td><%response.write web_dim(9)%>：<font class=red2><%response.write int(rs("emoney"))%></font>　人气：<font class=red><%response.write int(rs("counter"))%></font></td></tr>
</table>
</td>
</tr>
</table>
</td></tr>
<tr><td></td></tr><%
rs.close
%>
</table>
<table border=0 cellspacing=1 cellpadding=0 width='100%' class=bg_td>
<tr height=3><td width='50%'></td><td width='50%'></td></tr>
<%
i=0
sql="select top 8 id,name,types,genre,lang,star,emoney,counter,remark,pic from video where hidden=1 and id<>"&oid&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("name")
if i mod 2=0 then response.write vbcrlf&" <tr>"
%>
<td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=left>
<td width='100%'><img src='images/index/h_video.gif' border=0 align=absMiddle> <a href='video_view.asp?id=<%response.write id%>' alt='<%response.write topic%>'><%response.write joekoe_cms.code_html(topic,1,9)%></a>
</td>
</tr>
</table>
</td>
<%
if i+1 mod 2=0 then response.write vbcrlf&" </tr>"
if i=1 then response.write vbcrlf&" <tr><td height=1></td></tr>"
rs.movenext
i=i+1
loop
rs.close
%>
    </table>
  </td>
  <td width=2></td>
  <td>
    <table border=0 width='100%' class=bg_td>
<%
oid=0
sql="select top 1 specialid,name,nclass,sclassid,nclassid,yuyan,times,intro,hits,pic from mv_special order by specialid desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
  id=rs("specialid")
  oid=id
  topic=rs("name")
%>
<tr><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=center>
<td width='35%'><script language=javascript>document.write(pic_fk('<%response.write rs("pic")%>',4,'music_disk_view.asp?albumid=<%=rs("specialID")%>'));</script></td>
<td width='65%'>
<table border=0 width='100%'>
<tr><td><b><a href='music_disk_view.asp?albumid=<%=rs("specialID")%>' alt='浏览专辑：<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,8)%></a></b></td></tr>
<tr><td>发行：<font class=tims><%=rs("times")%></font></td></tr>
<tr><td>歌手：<a href='music_singer_view.asp?Name=<%=rs("nclass")%>&id=<%=rs("SClassid")%>&artid=<%=rs("NClassid")%>' alt='查看歌手 <%=rs("NClass")%> 的所有专辑'><%response.write joekoe_cms.code_html(rs("nClass"),1,9)%></a>   人气：<font class=red><%response.write int(rs("hits"))%></font></td></tr>
</table>
</td>
</tr>
</table>
</td></tr>
<tr><td></td></tr>
<%
end if
rs.close
%>
</table>
<table border=0 cellspacing=1 cellpadding=0 width='100%' class=bg_td>
<tr height=3><td width='50%'></td><td width='50%'></td></tr>
<%
i=0
sql="select top 8 specialid,name,nclass,sclassid,nclassid,yuyan,hits,pic from mv_special where specialid<>"&oid&" order by specialid desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("specialid")
  topic=rs("name")
  if i mod 2=0 then response.write vbcrlf&"  <tr>"
%>
<td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=left>
<td width='100%'><img src='images/index/s_disk.gif' border=0 align=absMiddle>
<a href='music_disk_view.asp?albumid=<%=rs("specialID")%>' alt='浏览专辑：<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,9)%></a>
</td>
</tr>
</table>
</td>
<%
if i+1 mod 2=0 then response.write vbcrlf&" </tr>"
if i=1 then response.write vbcrlf&" <tr><td height=1></td></tr>"
rs.movenext
i=i+1
loop
rs.close
%>
</table>
  </td>
  </tr>
  </table>
  </td>
    </table>
  </td></tr>
  <tr><td height=8 align=center>
  </td></tr>
<!------------------电影音乐 结束------------------->

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: