asp实现的7xi音乐网的采集源代码6165金沙总站,asp生成静态HTML

‘—将流内容保存为文件 
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 

这样的代码多用于我们没有实现设计生成静态的功能,但又想临时将一些动态页面生成静态的,直接获取动态内容并保存为静态的

response.write “<br>歌手信息<br><br>姓名:”&singer_name&”<br>字母:”&singer_first_name&”<br>性质:”&singer_sort 

复制代码代码如下:

      if lyric = “暂时还没歌词” then 
        Err.Clear 
        tmp_url = ” 
        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 

<!–#include file=”admin_Checkuser.asp”–>
 <% 
call ConnectionDatabase()
dim str,str_new
str=””
str_new=””
sqlx=”select id from Fl_Products order by id desc” 
set rsx=conn.execute(sqlx)
do while not rsx.eof
str=str&rsx(“id”)&”|”
rsx.movenext :loop
rsx.close
sqlx=”select id from Fl_News order by id desc” 
set rsx=conn.execute(sqlx)
do while not rsx.eof
str_new=str_new&rsx(“id”)&”|”
rsx.movenext :loop
rsx.close
place=InStrRev(str,”|”) 
str=Left(str,place-1) 
place=InStrRev(str_new,”|”) 
str_new=Left(str_new,place-1) 
 dim url,cwww,act
 act=Trim(Request.QueryString(“act”))
url =Request.ServerVariables(“HTTP_HOST”)
cwww=”
    MakeHtm cwww&”/index.asp”,”../index.htm”,”首页写入成功!”
    MakeHtm cwww&”/about.asp”,”../about.htm”,”企业简介写入成功!”
MakeHtm cwww&”/contact.asp”,”../contact.htm”,”联系我们写入成功!”
MakeHtm cwww&”/ry.asp”,”../ry.htm”,”资质荣誉写入成功!”
MakeHtm cwww&”/liuyan.asp”,”../liuyan.htm”,”联系我们写入成功!”
MakeHtm cwww&”/pro.asp”,”../pro.htm”,”产品展示写入成功!”
MakeHtm cwww&”/news.asp”,”../news.htm”,”生成车间写入成功!”
    MakeHtm cwww&”/xinwen.asp”,”../xinwen.htm”,”新闻资讯写入成功!”
    MakeHtm
cwww&”/alliance.asp”,”../alliance.htm”,”销售网络写入成功!” 
‘生成产品
xstr=split(str,”|”)
for i=0 to ubound(xstr)
MakeHtm
cwww&”/uzProduct.asp?id=”&xstr(i),”../uzProduct_”&xstr(i)&”.htm”,”产品”&xstr(i)&”写入成功!”
next
xstr=split(str_new,”|”)
for i=1 to ubound(xstr)/25+1
MakeHtm
cwww&”/xinwen.asp?Page=”&i,”../xinwen_”&i&”.htm”,”新闻列表”&i&”写入成功!”
next 
xstr=split(str_new,”|”)
for i=0 to ubound(xstr)
MakeHtm
cwww&”/uzNews.asp?id=”&xstr(i),”../uzNews_”&xstr(i)&”.htm”,”新闻”&xstr(i)&”写入成功!”
next ///www.jbxue.com
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(“adodb.stream”)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
 Function MakeHtm(curl,turl,mess)
 Set xml = Server.CreateObject(“Microsoft.XMLHTTP”)
‘把下面的地址替换成你的首页的文件地址,一定要用
xml.Open “GET”, curl, False
xml.Send
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,”gb2312″)
Set xml = Nothing
 ‘替换
 BodyText=RegReplace(BodyText,”uzProduct\.asp\?id=(\d*)”,
“uzProduct_$1.htm”)
 BodyText=RegReplace(BodyText,”uzNews\.asp\?id=(\d*)”,
“uzNews_$1.htm”)
 BodyText=RegReplace(BodyText,”xinwen\.asp\?Page=(\d*)”,
“xinwen_$1.htm”)
 BodyText=replace(BodyText,”index.asp”,”index.htm”)
 BodyText=replace(BodyText,”about.asp”,”about.htm”)
 BodyText=replace(BodyText,”pro.asp”,”pro.htm”)
 BodyText=replace(BodyText,”news.asp”,”news.htm”)
 BodyText=replace(BodyText,”liuyan.asp”,”liuyan.htm”)
 BodyText=replace(BodyText,”ry.asp”,”ry.htm”)
 BodyText=replace(BodyText,”xinwen.asp”,”xinwen.htm”)
 BodyText=replace(BodyText,”contact.asp”,”contact.htm”)
Dim fso, MyFile
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(BodyText)
MyFile.Close
response.Write mess
response.Write “<br>”
End Function
Public Function RegReplace(sContent, sPatrn, sNewStr)
        Dim oTempReg : Set oTempReg = New RegExp
        With oTempReg
                .IgnoreCase = True
                .Global = True
                .Pattern = sPatrn
                RegReplace = .Replace(sContent, sNewStr)
        End With
        Set oTempReg = Nothing
End Function
call CloseDatabase()
  %>
  <html>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″
/>
<title>Untitled Document</title>
<style>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:10.5pt;}
</style>
</head>
<body>
</body>
</html>

复制代码 代码如下:

‘—7xi相关页面 
v_7xijs_url = “” 
v_7xipicc_url = “” 
v_7xiplay_url = “” 
v_7xialbum_url = “” 
v_7ximp3_url = “” ‘—实时读取 

‘—重组文件名 
Function GetFileName(RemotePath, FileName) 
  Dim arrTmp 
  Dim strFileExt 
  arrTmp = Split(RemotePath, “.”) 
  strFileExt = arrTmp(UBound(arrTmp)) 
  GetFileName = FileName & “.” & strFileExt 
End Function 

Err.Clear 
‘on error resume next 

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 

  ‘—歌曲ID数目和歌曲名数目不一致时需要检查是否有误 
  if i <> m then 
    response.write “<br><br><font color=red><b>错误:</b>歌曲ID数目与歌曲名数目不一致,请检查目标页面:”& url &”</font>” 
    response.end 
  end if 

singer_name = IndbStr(request(“singer_name”)) 
singer_first_name = Ucase(IndbStr(request(“singer_first_name”))) 
singer_sort = request(“singer_sort”) 

‘—检查绝对路径是否存在 
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 

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

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 

‘—检测ID 
cfg_name = “cfg.txt”  
cfg_line = 1  

‘—每次处理歌曲数量 
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”) 

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

  ‘—歌曲名称 
  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&”首。” 

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

  CloseConn() 

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

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_url&t7xiid&”.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 

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 

‘—保存路径 
picc_FolderPath = “H:\mp3data\images\” 
mp3_FolderPath = “H:\mp3data\rm\”  

您可能感兴趣的文章:

  • FreeTextBox 中文版下载[含源代码] of
    asp.net
  • 解密ASP源代码
  • Ajax+Asp源代码]读取数据库内容的表格(没有用框架)
  • asp.net下中文验证码,免费开源代码
  • AspNetPager分页控件源代码(Version
    4.2)
  • 国内首款同时支持自定义404/505/rewrite的asp服务器(netbox制作,开放源代码)
  • asp.net
    需要登陆的网站上下载网页源代码和文件
  • asp.net 专业源代码打包工具
  • ASP常用源代码的总结(上)
  • ASP常用源代码的总结(下)

‘—远程获取内容 
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 

      ‘—将采集到的信息更新到数据库 
      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() 

  ‘—检查歌曲是否需要入库 
  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 

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

      ‘—歌词采集 
      tmp_url = “” & 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 = “暂时还没歌词”         

      response.write “<br>歌词 – “&lyric 

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

d_album —-专辑信息表 

共5个文件:
2个是配置文件:
配置文件:
cfg.txt ‘—保存检测ID信息的,第一次采集时设为1,从小到大检测
cfg.asp ‘—ASP的配置信息,内容如下:

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

””””编码(日文字符)”””” 
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 

d_singer —-歌手信息表 

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

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

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 

t7xiid = FSOlinedit(cfg_name,cfg_line) 

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() 

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 

‘—取得远程文件并保存到本地 
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 

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

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

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

d_mp3 —-歌曲信息表 

url = v_7xialbum_url&”v_”&t7xiid&”.htm” 

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

  ‘—记录下一检测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 

‘—读取文本文件 
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 

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

set httpobj=server.createobject(“paopao.http”) 

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 

  ‘—-歌曲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&”首。” 

””””解码(日文字符)”””” 
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 
%> 

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

  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 

  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_url&strpicc,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 

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

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

getrm.asp ‘—采集RM文件更新歌曲信息,内容如下: 

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

 程序代码 
<% 
”’ 
”’╔=======================================╗ 
”’┆                                       ┆ 
”’┆ @系统: 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 

 程序代码 
<% 
”’ 
”’╔=======================================╗ 
”’┆                                       ┆ 
”’┆ @系统: 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 

 程序代码 
<% 
”’ 
”’╔=======================================╗ 
”’┆                                       ┆ 
”’┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
”’┆ @模块: 手动添加歌手                   ┆ 
6165金沙总站,”’┆ @创建: 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 

<% 
”’ 
”’╔=======================================╗ 
”’┆                                       ┆ 
”’┆ @系统: 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 

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 

  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>” 

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

Alter TABLE [dbo].[d_singer] WITH NOCHECK ADD  
        CONSTRAINT [PK_d_singer] PRIMARY KEY  CLUSTERED  
        ( 
                [ID] 
        )  ON [PRIMARY]  
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 

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

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

‘—读取播放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 = “” 

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 

str = “” 
str = httpobj.get(url)