asp实现的7xi音乐网的采集源代码(11)

    response.end 
  end if 

  '---检查歌曲是否需要入库 
  do while i > 1 
    set rssong = conn.execute("select * from d_mp3 where mp3_album="&albumid&" and mp3_singer="&singerid&" and mp3_name='"&songname(i-2)&"'") 
    if rssong.eof then 
      sql = "insert into d_mp3 (mp3_7xi,mp3_singer,mp3_album,mp3_name) values ('"&songid(i-2)&"','"&singerid&"','"&albumid&"','"&songname(i-2)&"')" 
      conn.execute(sql) 
      response.write "<br><font color=red>添加："&songname(i-2)&"</font>" 
      response.write sql 
    else 
      response.write "<br>跳过："&songname(i-2) 
    end if 
    rssong.close 
    set rssong = nothing 
    i = i-1 
  loop 

  CloseConn() 

  '---记录下一检测ID号 
  str = t7xiid + 1 
  FolderPath = Server.MapPath(".\") 
  Set fso = Server.CreateObject("Scripting.FileSystemObject") 
  Set fout = fso.CreateTextFile(FolderPath & "\cfg.txt")  
  fout.WriteLine str 
  fout.close 

  '---继续检测下一ID 
  response.write "<br>正在检测下一ID信息 ..." 
  response.write "<meta http-equiv=refresh content=""0 ; url=get.asp"">" 
end if 
%> 
</body> 
</html> 


getrm.asp '---采集RM文件更新歌曲信息，内容如下： 

 程序代码 
<% 
''' 
'''╔=======================================╗ 
'''┆                                       ┆ 
'''┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
'''┆ @模块: 歌曲文件、歌词等信息采集       ┆ 
'''┆ @创建: 2006/07/24                     ┆