• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp实现的7xi音乐网的采集源代码
    共5个文件:
    2个是配置文件:
    配置文件:
    cfg.txt '---保存检测ID信息的,第一次采集时设为1,从小到大检测
    cfg.asp '---ASP的配置信息,内容如下:
    复制代码 代码如下:


    ''' 
    '''╔=======================================╗ 
    '''┆                                       ┆ 
    '''┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
    '''┆ @模块: 配置文件                       ┆ 
    '''┆ @创建: 2006/07/24                     ┆ 
    '''┆ @作者: D.S.Fang                       ┆ 
    '''┆ @联系: fangds@gmail.com QQ-3700909    ┆ 
    '''┆ @版权: 源码公开,无任何版权问题,您可以 ┆ 
    '''┆        放心使用!!!尊重作者劳动成果,请 ┆ 
    '''┆        保留此信息!                    ┆ 
    '''┆                                       ┆ 
    '''╚=======================================╝ 
    ''' 

    dim picc_FolderPath,mp3_FolderPath 
    dim v_7xijs_url,v_7xipicc_url,v_7xiplay_url,v_7xialbum_url,v_7ximp3_url,cfg_name,cfg_line 
    dim httpobj,str,str0,str1,str2,str3,str4,str5,str6,str7,str8,str9 
    dim is_getrm 

    '---音乐文件是否保存到本地,true-保存;false-不保存 
    is_getrm = false 

    '---保存路径 
    picc_FolderPath = "H:\mp3data\images\" 
    mp3_FolderPath = "H:\mp3data\rm\"  

    '---7xi相关页面 
    v_7xijs_url = "http://7xi.net/player/Js.js" 
    v_7xipicc_url = "http://ww.7xi.net/picc/" 
    v_7xiplay_url = "http://7xi.net/playsong/" 
    v_7xialbum_url = "http://ww.7xi.net/Vo2/" 
    v_7ximp3_url = "" '---实时读取 

    '---检测ID 
    cfg_name = "cfg.txt"  
    cfg_line = 1  

    '---读取播放js文件,获得rm文件路径 
    set httpobj = server.createobject("paopao.http") 
    str = httpobj.get(v_7xijs_url) 
    str0 = split(str,"theurl2="chr(34)) 
    str1 = split(str0(1),chr(34)) 
    v_7ximp3_url = str1(0) 
    set httpobj = nothing 
    str = "" 

    '---数据库连接 
    set Conn = Server.CreateObject("ADODB.Connection")  
    Conn.Open "driver={SQL server};server=localhost;uid=mp3;pwd=mp3;database=mp3db"  

    '---拼SQL语句execute时需要过滤一下 
    Function IndbStr(str) 
            if isNull(str) or str = "" then 
                    IndbStr = str 
            else 
                    IndbStr = replace(replace(trim(str),"'","''"),"%","") 
            end if 
    End Function 

    '---关闭数据库连接 
    Function CloseConn() 
            conn.close 
            set conn=nothing 
    End Function 

    '---取得远程文件并保存到本地 
    Function GetRemoteFiles(RemotePath, LocalPath, FileName) 
      Dim strBody 
      Dim FilePath 
      On Error Resume Next 
      '---取得流 
      strBody = GetBody(RemotePath) 
      '---取得保存的文件名 
      if Right(LocalPath, 1) > "\" then LocalPath = LocalPath  "\" 
      if not CheckDir(bkfolder) then MakeNewsDir bkfolder 
      FilePath = LocalPath  GetFileName(RemotePath, FileName) 
      '---保存文件 
      if SaveToFile(strBody, FilePath) = true and err.Number = 0 then 
       GetRemoteFiles = true 
      else 
        GetRemoteFiles = false 
      end if 
    End Function 

    '---远程获取内容 
    Function GetBody(url)  
      Dim Retrieval 
      '---建立XMLHTTP对象 
      Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
      With Retrieval  
      .Open "Get", url, False, "", ""  
      .Send  
      GetBody = .ResponseBody 
      End With  
      Set Retrieval = Nothing  
    End Function 

    '---重组文件名 
    Function GetFileName(RemotePath, FileName) 
      Dim arrTmp 
      Dim strFileExt 
      arrTmp = Split(RemotePath, ".") 
      strFileExt = arrTmp(UBound(arrTmp)) 
      GetFileName = FileName  "."  strFileExt 
    End Function 

    '---将流内容保存为文件 
    Function SaveToFile(Stream, FilePath) 
      Dim objStream 
      On Error Resume Next 
      '---建立ADODB.Stream对象,必须要ADO 2.5以上版本 
      Set objStream = Server.CreateObject("ADODB.Stream") 
      objStream.Type = 1 '以二进制模式打开 
      objStream.Open 
      objstream.write Stream 
      objstream.SaveToFile FilePath, 2 
      objstream.Close() 
      '---关闭对象,释放资源 
      Set objstream = Nothing 
      if err.Number > 0 then 
        SaveToFile = false 
      else 
        SaveToFile = true 
      end if 
    End Function 

    '---读取文本文件 
    Function FSOlinedit(filename,lineNum) 
      if linenum  1 then exit function 
      dim fso,f,temparray,tempcnt 
      set fso = server.CreateObject("scripting.filesystemobject") 
      if not fso.fileExists(server.mappath(filename)) then exit function 
      set f = fso.opentextfile(server.mappath(filename),1) 
      if not f.AtEndofStream then 
        tempcnt = f.readall 
        f.close 
        set f = nothing 
        temparray = split(tempcnt,chr(13)chr(10)) 
        if lineNum>ubound(temparray)+1 then 
          exit function 
        else 
          FSOlinedit = temparray(lineNum-1) 
        end if 
      end if 
    End function 

    '---检查绝对路径是否存在 
    Function CheckFolder(FolderPath) 
      dim fso1 
      Set fso1 = CreateObject("Scripting.FileSystemObject") 
      If fso1.FolderExists(FolderPath) then 
         '存在 
         CheckFolder = True 
      Else 
         '不存在 
         CheckFolder = False 
      End if 
      Set fso1 = nothing 
    End Function 

    '---根据指定名称生成目录 
    Function MakeNewsDir(foldername) 
      dim fso1,f 
      Set fso1 = CreateObject("Scripting.FileSystemObject") 
      Set f = fso1.CreateFolder(foldername) 
      MakeNewsDir = True 
      Set fso1 = nothing 
    End Function 

    ''''''''编码(日文字符)'''''''' 
    Function Jencode(byVal iStr) 
            if isnull(iStr) or isEmpty(iStr) then 
                    Jencode="" 
                    Exit function 
            end if 
            dim F,i,E 
            E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;") 
            F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_ 
            chr(-23118),chr(-23114),chr(-23112),chr(-23110),_ 
            chr(-23099),chr(-23097),chr(-23095),chr(-23075),_ 
            chr(-23079),chr(-23081),chr(-23085),chr(-23087),_ 
            chr(-23052),chr(-23076),chr(-23078),chr(-23082),_ 
            chr(-23084),chr(-23088),chr(-23102),chr(-23104),_ 
            chr(-23106),chr(-23108)) 
            Jencode=iStr 
            for i=0 to 25 
                    Jencode=replace(Jencode,F(i),E(i)) 
            next 
    End Function 

    ''''''''解码(日文字符)'''''''' 
    Function Juncode(byVal iStr) 
            if isnull(iStr) or isEmpty(iStr) then 
                    Juncode="" 
                    Exit function 
            end if 
            dim F,i,E 
            E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;") 
            F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_ 
            chr(-23118),chr(-23114),chr(-23112),chr(-23110),_ 
            chr(-23099),chr(-23097),chr(-23095),chr(-23075),_ 
            chr(-23079),chr(-23081),chr(-23085),chr(-23087),_ 
            chr(-23052),chr(-23076),chr(-23078),chr(-23082),_ 
            chr(-23084),chr(-23088),chr(-23102),chr(-23104),_ 
            chr(-23106),chr(-23108)) 
            Juncode=iStr 
            for i=0 to 25 
                    Juncode=replace(Juncode,E(i),F(i))'□ 
            next 
    End Function 
    %> 


    1个是手动添加歌手: 
    addsinger.asp '---手动添加歌手,内容如下: 

     程序代码 

    ''' 
    '''╔=======================================╗ 
    '''┆                                       ┆ 
    '''┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
    '''┆ @模块: 手动添加歌手                   ┆ 
    '''┆ @创建: 2006/07/24                     ┆ 
    '''┆ @作者: 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 sql 
    dim singer_name,singer_first_name,singer_sort 

    singer_name = IndbStr(request("singer_name")) 
    singer_first_name = Ucase(IndbStr(request("singer_first_name"))) 
    singer_sort = request("singer_sort") 

    response.write "br>歌手信息br>br>姓名:"singer_name"br>字母:"singer_first_name"br>性质:"singer_sort 

    sql = "insert into d_singer (singer_name,singer_first_name,singer_sort,is_down) values ('"singer_name"','"singer_first_name"','"singer_sort"',0)" 
    response.write "br>br>"sql 
    conn.execute(sql) 
    CloseConn() 

    '---歌手添加完成后转入信息采集重新检测 
    response.write "br>br>歌手信息检查添加完成,正在准备检查获取更新...br>" 
    response.write "meta http-equiv=refresh content=""1 ; url=get.asp"">" 
    %> 
    /body> 
    /html> 


    2个是采集程序: 
    get.asp '---采集歌手专辑歌曲信息,内容如下 

     程序代码 

    ''' 
    '''╔=======================================╗ 
    '''┆                                       ┆ 
    '''┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
    '''┆ @模块: 歌手、专辑、歌曲信息采集       ┆ 
    '''┆ @创建: 2006/07/24                     ┆ 
    '''┆ @作者: 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 t7xiid,url,FolderPath,fso,fout 
    dim songid(100),songname(100) 
    dim strsinger,strlang,stralbum,strtime,strcorp,strcontent,strpicc,singerid,albumid 
    dim rssort,rssinger,rsalbum,rssong,i,m,sql,okimg 

    t7xiid = FSOlinedit(cfg_name,cfg_line) 

    url = v_7xialbum_url"v_"t7xiid".htm" 

    set httpobj=server.createobject("paopao.http") 

    Err.Clear 
    'on error resume next 

    str = "" 
    str = httpobj.get(url) 

    if str = "" then 
            CloseConn() 
      if t7xiid  3198 then '---没有检测到时是否递增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  
        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_urlstrpicc" border=0>" 

      set rssinger = conn.execute("select * from d_singer where singer_name='"strsinger"'") 
      '---歌手信息不存在时需要手动添加歌手 
      if rssinger.eof then 
        response.write "br>select * from d_singer where singer_name='"strsinger"'" 
        response.write "br>br>歌手不存在,需要手动操作添加。br>br>请按以下要求添加歌手:br>br>" 
    %> 
    form action="addsinger.asp"> 
    input type="text" size="20" name="singer_name" value="%=strsinger%>"> 
    input type="text" size="6" name="singer_first_name" value="姓" maxlength="3"> 
    select name="singer_sort" size="1">%'%> 

        set rssort = conn.execute("select * from s_sort ") 
        do while not rssort.eof and i  10 
    %> 
    option value="%=rssort("id")%>">%=rssort("sort_name")%>/option>%'%> 

          rssort.movenext 
        loop 
        rssort.close 
        set rssort = nothing 
    %>/select> 
    input type="submit" value="添加"> 
    /form> 
    %  
        CloseConn() 
        response.end 
      else  '---歌手信息已存在,检查专辑信息是否需要入库 
        singerid = rssinger("id") 
        conn.execute("update d_singer set is_down=0 where id="singerid) 
        response.write "br>br>歌手信息正确,正在检查获取专辑信息 ...br>" 
        set rsalbum = conn.execute("select * from d_album where album_singer="singerid" and album_name='"stralbum"'") 
        if rsalbum.eof then 
          str1 = split(strpicc,".") 
          str2 = str1(0) 
          sql="insert into d_album (album_singer,file_img,album_name,album_lang,album_corp,album_time,album_intro,add_time,is_down,album_7xi) values ('"singerid"','"strpicc"','"stralbum"','"strlang"','"strcorp"','"strtime"','"strcontent"','"now"',0,"t7xiid")" 
          conn.execute(sql) 
          '---采集保存专辑缩略图 
          okimg = GetRemoteFiles(v_7xipicc_urlstrpicc,picc_FolderPath,str2)                 
          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>" 
        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                     ┆ 
    '''┆ @作者: 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 
        '---目标页面 
        url = v_7xiplay_urlt7xiid".htm" 
        set httpobj = server.createobject("paopao.http") 
        Err.Clear 
        on error resume next 
        response.write "br>"url 
        str = httpobj.get(url) 
        if Err = 0 then '---读取目标页面正常时的处理 
          '----歌曲文件名及文件夹 
          str0 = split(str,"param name='src' value='"chr(34)"+s_list+"chr(34)) 
          str1 = split(str0(1),"'>") 
          filerm = str1(0) 
          response.write "br>文件名 - " filerm  
          tmpurl = v_7ximp3_url  filerm 
          response.write "br>目标源 - " tmpurl 
          '---需要保存音乐文件到本地时,采集保存音乐文件 
          if is_getrm then 
            str0 = split(filerm,"/") 
            i = 0 
            do while i  Ubound(str0) 
              tmpfolder = mp3_FolderPath  str0(i) 
              if not CheckFolder(tmpfolder) then MakeNewsDir tmpfolder 
              i = i + 1 
            loop 
            response.write "br>保存为 - " tmpfolder  "\"  str0(Ubound(str0)) 
            okrm = GetRemoteFiles(tmpurl,tmpfolder,replace(str0(Ubound(str0)),".rm","")) 
          else 
            response.write "br>font color=red>请注意 - /font>RM文件配置为不保存!!!!!!!!!!" 
          end if 

          '---歌词采集 
          tmp_url = "http://www.7xi.net/showword.asp?id="  t7xiid 
          response.write "br>"tmp_url 
          set httpobj = server.createobject("paopao.http") 
          str0 = httpobj.get(tmp_url) 
          Err.Clear 
          on error resume next 
          str1 = split(str0,"td width=""92%"">"chr(13)) 
          str2 = split(str1(1),"                /td>") 
          lyric = str2(0) 
          lyric = replace(lyric,"br>",chr(13)) 
          lyric = replace(lyric," "," ") 
          lyric = replace(replace(lyric,"p>",""),"/p>","") 
          lyric = IndbStr(trim(lyric)) 
          if Instr(lyric,"mp3.baidu.com") then lyric = "暂时还没歌词"         

          if len(lyric)  20 or Err > 0 then 
            lyric = "暂时还没歌词" 
            response.write "br>7xi自带歌词不完整,将采集baidu歌词" 
          end if 

          if lyric = "暂时还没歌词" then 
            Err.Clear 
            tmp_url = "http://mp3.baidu.com/m?f=msrn=10tn=baidump3lyricct=150994944word="singer"+"song 
            response.write "br>"tmp_url 
            str0 = httpobj.get(tmp_url) 
            str1 = split(str0,"B>font style=color:#e10900>"song"/font>/B>") 
            if Ubound(str1) >= 1 then 
              str2 = split(str0,"div style=""padding-left:10px;line-height:20px;padding-top:1px"">") 
              str3 = split(str2(1),"/div>") 
              lyric = str3(0) 
              lyric = replace(lyric,"br>",chr(13)) 
              lyric = replace(lyric," "," ") 
              lyric = replace(lyric,"font style=color:#e10900>","") 
              lyric = replace(lyric,"/font>","") 
            else 
              lyric = "暂时还没歌词" 
            end if 
          end if 

          response.write "br>歌词 - "lyric 

          '---将采集到的信息更新到数据库 
          if is_getrm then 
            conn.execute("update d_mp3 set file_rm='"filerm"',mp3_lyric='"lyric"',is_down='1' where id="id) 
          else 
            conn.execute("update d_mp3 set file_rm='"filerm"',mp3_lyric='"lyric"',is_down='0' where id="id) 
          end if 
        else  '---读取目标页面出错时的处理 
          conn.execute("update d_mp3_t set file_rm='nourl',is_down='1' where id="id) 
          response.write "br>br>font color=red>b>错误:/b>获取目标页面错误,请检查:" url "/font>" 
          response.end 
        end if 
        rssong.movenext 
      loop 
      rssong.close 
      set rssong = nothing 
      CloseConn() 

      '---继续检测采集下一批歌曲信息 
      response.write "br>正在检测下一批歌曲信息 ...br>br>" 
      response.write "meta http-equiv=refresh content=""0 ; url=getrm.asp"">" 
    end if 
    %> 
    /body> 
    /html> 


    数据库表的SQL脚本: 
    数据库表 

     程序代码 
    s_sort ----歌手分类表 

    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[s_sort]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 
    drop table [dbo].[s_sort] 
    GO 

    Create TABLE [dbo].[s_sort] ( 
            [ID] [int] IDENTITY (1, 1) NOT NULL , 
            [sort_name] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL  
    ) ON [PRIMARY] 
    GO 

    Alter TABLE [dbo].[s_sort] WITH NOCHECK ADD  
            CONSTRAINT [PK_s_sort] PRIMARY KEY  CLUSTERED  
            ( 
                    [ID] 
            )  ON [PRIMARY]  
    GO 




    d_singer ----歌手信息表 

    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[d_singer]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 
    drop table [dbo].[d_singer] 
    GO 

    Create TABLE [dbo].[d_singer] ( 
            [ID] [int] IDENTITY (1, 1) NOT NULL , 
            [singer_name] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL , 
            [singer_first_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , 
            [singer_sort] [int] NULL , 
            [mp3_num] [int] NULL , 
            [is_putup] [bit] NULL , 
            [view_count] [int] NULL , 
            [is_down] [bit] NULL  
    ) ON [PRIMARY] 
    GO 

    Alter TABLE [dbo].[d_singer] WITH NOCHECK ADD  
            CONSTRAINT [PK_d_singer] PRIMARY KEY  CLUSTERED  
            ( 
                    [ID] 
            )  ON [PRIMARY]  
    GO 



    d_album ----专辑信息表 

    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[d_album]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 
    drop table [dbo].[d_album] 
    GO 

    Create TABLE [dbo].[d_album] ( 
            [ID] [int] IDENTITY (1, 1) NOT NULL , 
            [album_singer] [int] NULL , 
            [file_img] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [album_name] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [album_lang] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [album_corp] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [album_time] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [album_intro] [ntext] COLLATE Chinese_PRC_CI_AS NULL , 
            [is_singer_album] [bit] NULL , 
            [view_count] [int] NULL , 
            [is_putup] [bit] NULL , 
            [add_time] [datetime] NULL , 
            [album_7xi] [int] NULL , 
            [is_down] [bit] NULL  
    ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 
    GO 

    Alter TABLE [dbo].[d_album] WITH NOCHECK ADD  
            CONSTRAINT [PK_d_album] PRIMARY KEY  CLUSTERED  
            ( 
                    [ID] 
            )  ON [PRIMARY]  
    GO 




    d_mp3 ----歌曲信息表 

    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[d_mp3]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 
    drop table [dbo].[d_mp3] 
    GO 

    Create TABLE [dbo].[d_mp3] ( 
            [ID] [int] IDENTITY (1, 1) NOT NULL , 
            [mp3_name] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL , 
            [mp3_album] [int] NULL , 
            [mp3_singer] [int] NULL , 
            [file_rm] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL , 
            [file_size] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL , 
            [is_putup] [bit] NULL , 
            [mp3_lyric] [varchar] (5000) COLLATE Chinese_PRC_CI_AS NULL , 
            [view_count] [int] NULL , 
            [down_count] [int] NULL , 
            [is_my] [bit] NULL , 
            [mp3_7xi] [int] NULL , 
            [is_down] [varchar] (2) COLLATE Chinese_PRC_CI_AS NULL  
    ) ON [PRIMARY] 
    GO 

    Alter TABLE [dbo].[d_mp3] WITH NOCHECK ADD  
            CONSTRAINT [PK_d_mp3] PRIMARY KEY  CLUSTERED  
            ( 
                    [ID] 
            )  ON [PRIMARY]  
    GO
    您可能感兴趣的文章:
    • FreeTextBox 中文版下载[含源代码] of asp.net
    • 解密ASP源代码
    • Ajax+Asp源代码]读取数据库内容的表格(没有用框架)
    • asp.net下中文验证码,免费开源代码
    • AspNetPager分页控件源代码(Version 4.2)
    • 国内首款同时支持自定义404/505/rewrite的asp服务器(netbox制作,开放源代码)
    • asp.net 需要登陆的网站上下载网页源代码和文件
    • asp.net 专业源代码打包工具
    • ASP常用源代码的总结(上)
    • ASP常用源代码的总结(下)
    上一篇:ASP下实现自动采集程序及入库的代码
    下一篇:asp读取远程文件并保存到本地代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp实现的7xi音乐网的采集源代码 asp,实现,的,7xi,音乐网,采集,