asp实现的7xi音乐网的采集源代码(12)
'''┆ @作者: D.S.Fang ┆
'''┆ @联系: fangds@gmail.com QQ-3700909 ┆
'''┆ @版权: 源码公开,无任何版权问题,您可以 ┆
'''┆ 放心使用!!!尊重作者劳动成果,请 ┆
'''┆ 保留此信息! ┆
'''┆ ┆
'''╚=======================================╝
'''
'%>
<!--#include file="cfg.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>歌曲文件歌词等信息采集_7xi音乐采集更新系统</title>
</head>
<body>
<br>7xi音乐采集更新系统<br><br>
<%
dim getcount,rssong,id,t7xiid,url,filerm,tmpurl,i,tmpfolder,okrm,singer,song,tmp_url,lyric,rs
'---每次处理歌曲数量
getcount = 5
set rssong = conn.execute("select top " & getcount & " a.*,b.singer_name from d_mp3 a,d_singer b where a.mp3_singer=b.id and a.file_rm is null order by a.id desc")
if rssong.eof then '---歌曲信息处理完成
rssong.close
set rssong = nothing
CloseConn()
response.write "<br>歌曲文件信息检查采集完成！"
response.write "<br><br>采集完了，可以做垃圾站了！"
response.end
else
do while not rssong.eof
id = rssong("id")
t7xiid = rssong("mp3_7xi")
singer = replace(rssong("singer_name")," ","%20")
song = replace(rssong("mp3_name")," ","%20")
response.write "<br><br>歌曲名 - "& singer & "-" &song
内容版权声明：除非注明，否则皆为本站原创文章。