[分享]论坛调用点歌功能代码

020

include/con_forum.asp中的最后一个
%>前加入

sub forum_song()
%>
<table cellspacing=1 cellpadding=1 class=tablebbs>
<tr><td colspan=2 class=tdb> <img src='skin/<%response.write joekoe_cms.web_skin%>/small/m_forum.gif' align=absmiddle>  点歌祝福</td></tr>
<tr><td height=5 colspan=2 class=bg_td></td></tr>
<tr><td height=50 class=bg_td>
<div id=demo style=overflow:hidden;height:50;width:'100%'>
<div id=demo1>
<%  
dim UserName,Musicid,Name,data,musicname,content,ishidden,ismaster,issupermaster,rcount
sql="select top 8 * from music_mail Order By id Desc"
set rs=conn.execute(sqL)      
if rs.eof and rs.bof then
%>
当前没有点歌列表
<%   
else
%>
<%rcount=0
do while not rs.eof and rcount<8
%>
  <img src=images/music/song.gif border=0>  <a href=user_view.asp?username=<%=rs("s_user")%> target=_blank)><font color=#ff5050><b><%response.write joekoe_cms.code_html(rs("s_user"),1,4)%></b></font></a>  
为
<font color=#336699><b><%response.write joekoe_cms.code_html(rs("r_user"),1,4)%></b></font>
点了一首  
<a href='javascript:;' onclick=javascriptpen_win('music_pass.asp?id=<%=rs("m_id")%>','cz3000',310,253,'no');><font color=#996633><b><%response.write joekoe_cms.code_html(rs("m_name"),1,5)%></b></font></a> 并祝福说：<font color=#0000ff><%response.write joekoe_cms.code_html(rs("words"),1,23)%></font>
<br>
<%
rs.movenext
rcount=rcount+1
loop
end if
rs.close
%>
</div>
<div id=demo2></div>
</div>
<script>
var speed=80
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else{
demo.scrollTop++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
<td width=135 height=40><a href='music_mail.asp'><img src='image/music/dg_forum.jpg' align=absmiddle border=0 alt='查看点歌信息'></a></td>
</td></tr>
<tr><td height=4 class=bg_td colspan=2></td></tr>
<tr><td height=1 colspan=2></td></tr>
</table>
<%
end sub

在forum.asp中加入
call forum_song()
即可。

涉及到一些参数自己修改就可以了。
演示:http://tl.v158.com/forum.asp

温柔幻刀

真是好东西啊！！值得收藏！谢谢！