逆风音乐插件 图文调用

sub main_center_music(cs_tnum,cs_cnum)
  dim tmp1,tmp_topic,tmp_url
  tmp1=vbcrlf&"<tr align=center>"
  sql="select top 4 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_topic=rs(1)
    tmp_url="music_disk_view.asp?id="&rs(0)
    tmp1=tmp1&vbcrlf&"<td>" & _
         vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
         vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),4,tmp_url)&"</td></tr>" & _
         vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
         vbcrlf&" </table>" & _
         vbcrlf&"</td>"
    rs.movenext
  loop
  rs.close
  tmp1=tmp1&vbcrlf&"</tr>"
  tmp1="<table border=0 cellspacing=0 cellpadding=0 width='519'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"&ukong
end sub

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