tl_cai_cai.asp

音乐管理系统的采集数据程序可自行添加采集点,适合一些大型音乐网站数据的采集

<!--#include file="Conn.Asp" -->
<!--#include file="function.asp" -->
<!--#include file="Config.asp" -->
<%
if request("Tlid")="" then
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('项目名称不能为空');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
		 end if
       call TLconnstr1
       set rs=server.createobject("adodb.recordset")
       sql="select * from list where TlID =" & request("TlID")   
       rs.Open sql,conn,1,3 
       if request("ID") <> "" then
	ID 	 = request("ID") 
       else 
  if request("over_c") = "on" then
        ID 	 = rs("over_c")
  else
        ID 	 = rs("TlstarID")
  end if
       end if   
	StartID  = rs("TlstarID")
	OverID   = rs("TloverID")
	SaveMode = rs("SaveMode")
	url	 = Replace(rs("TlclassUrl"),"{$ID}",""&ID&"")
	music_list=GetFileText(url)
      'response.write GetFileText(ssss)
	If lenb(music_list)<=0 Then
		Call NextID
		Response.End
	else
	'记录id
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
		tid = server.mappath("TEXT.txt")
		Set a = fs.CreateTextFile(tid)
		a.Write id
		a.close
	set fs=nothing
     music_list=Repla(music_list)
if music_list <> "" then
     music=music_CO(music_list)  ''''列表
     SClass=SClass_CO(music)  ''''分类
     SClass = ClassT_CO(SClass)  ''''替换分类
		NClass=NClass_CO(music)  ''''歌手
		ABC=left(NClass,instr(NClass,NClass)+0)
		ABC=GetPyChar(ABC)
                Name=Name_CO(music)  ''''专集名称
                Yuyan=Yuyan_CO(music)  ''''演员
                GongSi=GongSi_CO(music)  ''''公司
                Times=Times_CO(music)  ''''发行时间
                Info=Info_CO(music)  ''''介绍
		ima=ima_CO(music)  ''''图片
                music_list = music
     if rs("Tlpic") = 1 then
        if rs("StrpicURL") <> 0 then
                   ima=""&rs("StrpicURL")&"" &ima
        end if
        if ima = ""&rs("StrHTTPpic")&"" then  
          myimgpath=""&rs("StrGetpic")&""
        else
	  myimgpath=save_img(ima,img_save,frist_name)
        end if
     else
        inboty=instr(""&ima&"","http")
        if inboty=0 then
                   ima=""&rs("TlWebUrl")&"" &ima
        end if
        myimgpath=save_img(ima,img_save,frist_name)
     end if
		music=Split(music,"checkbox")
                musicurl = "http://"
		musicOverId=ubound(music)

	mpath=SClass&"/"&ABC&"/"&NClass&"/"&Name
	Response.Write "专辑编号："&ID&"<br>" &vbcrlf
	response.Flush
	Response.Write "歌手字母："&ABC&"<br>" &vbcrlf
	response.Flush
	Response.Write "歌手分类："&SClass&"<br>" &vbcrlf
	response.Flush
	Response.Write "专辑歌手："&NClass&"<br>" &vbcrlf
	response.Flush
	Response.Write "专辑名称："&Name&"<br>" &vbcrlf
	response.Flush
	Response.Write "专辑图片：<a href="&myimgpath&">"&myimgpath&"</a>" &vbcrlf
	Response.Write "<br>"
	response.Flush
	Response.Write "发行公司："&GongSi&"<br>" &vbcrlf
	response.Flush
	Response.Write "发行日期："&Times&"<br>" &vbcrlf
	response.Flush
	Response.Write "所属语言："&Yuyan&"<br>" &vbcrlf
	response.Flush
	Response.Write "专辑简介：<span title='"&Info&"'>此处略"&len(Info)&"字。</span><br>" &vbcrlf
	response.Flush
	Response.Write "歌曲总数：此专辑共有<font color=red>"&MusicOverID&"</font>首歌曲&nbsp;&nbsp;[<font color=red>正在下载文件和添加数据，请耐心等待.....下载速度依据你服务器带宽而定</font>]<br>" &vbcrlf
	response.flush

        call TLconnstr
	set rs2=server.CreateObject("ADODB.RecordSet")
	Sql2="Select * From SClass Where SClass='"&SClass&"'"
	Rs2.Open Sql2,Conn,1,3
	If Rs2.Eof And Rs2.Bof Then
		Rs2.AddNew
	End If
	rs2("SClass")=SClass
	Rs2.Update
	Rs2.Close
	Set Rs2 = Nothing
	Set rsc = Conn.Execute("select * from SClass where SClass='"&SClass&"'")
 	SClassID=rsc("SClassID")
 	rsc.close
	set rsc=nothing
	'处理歌手的二级类别,如数据库中没有该类别，则增加
	set rst=server.CreateObject("ADODB.RecordSet")
	Sql="Select * From NClass Where NClass='"&NClass&"'"
	Rst.Open Sql,Conn,1,3
	If Rst.Eof And Rst.Bof Then
		Rst.AddNew
	End If
	rst("NClass")=NClass
  	rst("SClassID")=SClassID
  	rst("abcd")=abc
  	Rst.Update
	Rst.Close
	Set Rst = Nothing
 	'取类别的ID号
 	Set rsc = Conn.Execute("select * from NClass where NClass='"&NClass&"'")
 	NClassID=rsc("NClassID")
 	rsc.close
 	set rsc=nothing
	'===================================================
	'可以开始写入专集记录
	set rs3=server.CreateObject("ADODB.RecordSet")
	Sql3="Select * From Special Where NClass='"&NClass&"'and Name='"&Name&"'"
	Rs3.Open Sql3,Conn,1,3
	If Rs3.Eof And Rs3.Bof Then
		Rs3.AddNew
	End If
  	rs3("SClassID")=SClassID
	rs3("SClass")=SClass
  	rs3("NClassID")=NClassID
  	rs3("NClass")=NClass
  	rs3("name")=name
  	rs3("Yuyan")=Yuyan
  	rs3("Gongsi")=Gongsi
  	rs3("Times")=Times
  	rs3("intro")=Info
  	rs3("pic")=myimgpath
  	Rs3.Update
	Rs3.Close
	Set Rs3 = Nothing
	set rsedit=server.CreateObject("ADODB.RecordSet")
	Set rsedit = Conn.Execute("select * from Special where  NClass='"&NClass&"'and name='"&name&"'")
	SpecialID=rsedit("SpecialID")
	rsedit.close
	set rsedit=nothing
		musicnamelist=musiclist_CO(music_list)
   for id_i = 0 to musicOverId
     'do while JZ_ls_1 = false
                musicnamelist = ""&music(id_i)&""
		musicname=GetContent(musicnamelist,""&rs("musicnameS")&"",""&rs("musicnameO")&"",0)  ''''歌曲名称
                'if musicname = "" then
                   'JZ_ls_1 = false
                'end if
           
		'musicnameABC=left(musicname,instr(musicname,musicname)+0)
		'musicnameABC=GetPyChar(musicnameABC)
		musicID=GetContent(musicnamelist,""&rs("musicIDS")&"",""&rs("musicIDO")&"",0)  ''''歌曲ID
                gc_url = gc_CO(musicnamelist)
                musicgc = gc_s_CO(gc_url)
                'if musicID = "" then
                   'JZ_ls_1 = false
                'end if
              if rs("musicwmaurl")<>"0" then
		musicID=""&rs("musicwmaurl")&""& GetContent(musicnamelist,""&rs("musicIDS")&"",""&rs("musicIDO")&"",0)
              end if
		'musicgc=LrcMusicGc(musicname,nclass)
		musicwma=GetContent(Repla(GetFileText(musicID)),""&rs("playurlS")&"",""&rs("playurlO")&"",0)

		'wname = Mid(musicwma, InStrRev(musicwma, "/")+1)
              if playurlStr<>0 then
                playurl=musicwma
              else
                playurl=""&rs("playurlStr")&""& musicwma
	      end if	
                mymusicpath = musicfile& musicwma
                if musicwma <> "" then
		Response.Write ""&id_i&"<font color=red>"&MusicStartID&"</font>.&nbsp;&nbsp;" &musicname& "<span title='歌曲开头字母'>[" &musicnameABc& "]</span>&nbsp;|&nbsp;歌词略"&len(musicGC)&"字,<a href="&mymusicpath&">"&mymusicpath&"</a>"
		response.flush
              if SaveMode = "on" then
		musicwma = SaveData(playurl,mymusicpath)
              end if
                call TLconnstr
		set rsl=server.CreateObject("ADODB.RecordSet")
		Sqll="Select * From MusicList Where Wma='"&musicwma&"' and SpecialID = " & SpecialID
		Rsl.Open Sqll,Conn,1,3
		If Rsl.Eof And Rsl.Bof Then
			Rsl.AddNew
		End If

		rsl("wma")=musicwma
  		rsl("SClassID")=SClassID
  		rsl("NClassID")=NClassID
  		rsl("Singer")=NClass
  		rsl("SpecialID")=SpecialID
  		rsl("musicname")=musicname
  		'rsl("AddWordsUser")="本站"
  		rsl("SongWords")=musicGC
  		rsl.update
  		rsl.close
		Set Rsl = Nothing
                'musicnamelist  = Replace(musicnamelist,""&rs("musicnameS")&""&musicname&""&rs("musicnameO")&"","")   '''''''替换
                'musicnamelist  = Replace(musicnamelist,""&rs("musicIDS")&""&musicID&""&rs("musicIDO")&"","")   '''''''替换
                          
		Response.Write "<br>"
             end if
'loop
next
End If
end if
   rs("over_c") = ID
   rs.update

call nextid()	
	Sub NextID
		If Clng(ID) < Clng(OverID) Then
			Response.Write "<script language=javascript>"
			Response.Write "function dolink(){"
			Response.Write "location.href='TL_cai_cai.asp?StartID=" & StartID & "&OverID=" & OverID & "&ID=" & Clng(ID) + 1 & "&SaveMode=" & SaveMode & "&Tlid=" & rs("TlID") & "';"
			Response.Write "}"
			Response.Write "setTimeout('dolink()',1000)"
			Response.Write "</script>"
			response.Flush
		Else
			Response.Write "开始 I D：" & StartID & "<br>" & "结束 I D：" & OverID & "<br><font color=red size=4><b>更新完毕！</b></font>" &vbcrlf
			response.Flush
			application.contents.removeall
			Session.Contents.Removeall
		End If
	End Sub
	rs.close
	set rs=Nothing
%>

<!--#include file="Tl_down.asp" -->