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

      response.write "<br>专辑信息检查添加完成，正在检查获取歌曲信息 ..."&"<br>SQL语句："&sql 
    else 
      response.write "<br><br>专辑信息正确，正在准备检查获取歌曲信息 ..." 
    end if     
    rsalbum.close 
    set rsalbum = nothing 
  end if 
  rssinger.close 
  set rssinger = nothing 

  set rsalbum = conn.execute("select * from d_album where album_singer="&singerid&" and album_name='"&stralbum&"'") 
  albumid = rsalbum("id") 
  rsalbum.close 
  set rsalbum = nothing 

  response.write "<br><br>专辑歌曲信息<br>" 

  '----歌曲ID 
  i = 1 
  str0 = split(str,"<input type="&chr(34)&"checkbox"&chr(34)&" name="&chr(34)&"checked"&chr(34)&" value="&chr(34)) 
  response.write "<br>歌曲ID：" 
  do while i <= Ubound(str0) 
    str1 = split(str0(i),chr(34)) 
    songid(i-1) = str1(0) 
    response.write songid(i-1)&" - " 
    i = i + 1 
  loop 
  response.write "共"&i&"首。" 

  '---歌曲名称 
  m = 1 
  str0 = split(str,"<a href=""../IVR.asp?id=") 
  response.write "<br><br>歌曲：" 
  do while m <= Ubound(str0) 
    str1 = split(str0(m),""" target=""_blank""><img src=""../images/mmsring1.gif"" alt=""免费点歌") 
    songname(m-1) = Jencode(replace(str1(0),"'","''")) 
    response.write Juncode(songname(m-1))&" - " 
    m = m + 1 
  loop 
  response.write "共"&i&"首。" 

  '---歌曲ID数目和歌曲名数目不一致时需要检查是否有误 
  if i <> m then 
    response.write "<br><br><font color=red><b>错误：</b>歌曲ID数目与歌曲名数目不一致，请检查目标页面："& url &"</font>"