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

    fout.WriteLine str 
    fout.close  
    response.write "<br>当前ID号不存在，正在检查下一ID号 ...<br>" 
    response.write "<meta http-equiv=refresh content=""0 ; url=get.asp"">" 
  else  '---不需要递增ID检测时，转到歌曲信息采集 
    response.write "<br>歌手专辑信息检查完毕，正在准备检查获取歌曲信息 ...<br>" 
    response.write "<meta http-equiv=refresh content=""0 ; url=getrm.asp"">" 
    response.end 
  end if 
else 
  str0 = split(str,"歌 手 : ") 
  str1 = split(str0(1),"</td>") 
  strsinger = IndbStr(str1(0)) 
  response.write "<br>歌手："&strsinger 

  str0 = split(str,"语 种 : ") 
  str1 = split(str0(1),"</td>") 
  strlang = str1(0) 
  response.write "<br>语种："&strlang 

  str0 = split(str,"专 辑 : ") 
  str1 = split(str0(1),"</a>") 
  str2 = split(str1(0),""">") 
  stralbum = IndbStr(str2(1)) 
  response.write "<br>专辑："&stralbum 

  str0 = split(str,"时 间 : ") 
  str1 = split(str0(1),"</td>") 
  strtime = str1(0) 
  response.write "<br>时间："&strtime 

  str0 = split(str,"公 司 : ") 
  str1 = split(str0(1),"</td>") 
  strcorp = str1(0) 
  response.write "<br>公司："&strcorp 

  str0 = split(str,"<tr valign=""top""><td colspan=""2"">") 
  str1 = split(str0(1),"</td>") 
  strcontent = replace(replace(IndbStr(str1(0)),"<br>",chr(13))," "," ") 
  response.write "<br>简介："&strcontent 

  str0 = split(str,"<img src=""../picc/") 
  str1 = split(str0(1),"""") 
  strpicc = str1(0) 
  response.write "<br>图片："&strpicc 
  response.write "<br><img src="&v_7xipicc_url&strpicc&" border=0>" 

  set rssinger = conn.execute("select * from d_singer where singer_name='"&strsinger&"'")