虫网首页 | 虫网博客 | 翻唱专区 | 原创专区 | 独奏专区 | 视频教程 | 吉他谱区 | 会员相册
发新话题
打印

点歌的首页调用代码好象不能调用啊

点歌的首页调用代码好象不能调用啊

<% '点歌程序歌开始 response.write ""&_ "
-=> 点歌祝福 "%>
<% dim news,sender,sendtime,incept,url,medianame,content,str,rsa set rsa=server.createobject("adodb.recordset") sql="select * from media Order By sendtime Desc" rsa.open sql,conn,3,3 news=0 if rsa.eof then response.write "没有歌谱提供下载" else %> <%do while not rsa.eof and news < 10%> <% sender=rsa("sender") sendtime=rsa("sendtime") incept=rsa("incept") url=rsa("url") medianame=rsa("medianame") content=rsa("content") %> <%str=str+""&Cstr(rsa("sender"))&""&Cstr(rsa("incept"))&"点播"&"『"&Cstr(rsa("medianame"))&"』"&"("&Cstr(rsa("sendtime"))&") "%> <%rsa.movenext news=news+1 loop end if rsa.close set rsa=nothing %> <%=str%> <%response.write "

" '社区点歌程序调用结束 %> 看看我的论坛,数据还是以前的,现在点的歌都调用不到

TOP

发新话题