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

站长资源 2024/11/24 佚名

2 0 1

共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 ┆
'''┆ @版权: 源码公开,无任何版权问题,您可以 ┆
'''┆ 放心使用!!!尊重作者劳动成果,请 ┆
'''┆ 保留此信息! ┆
'''┆ ┆
'''╚=======================================╝
'''
'%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>添加歌手分类_7xi音乐采集更新系统</title>
</head>
<body>
 7xi音乐采集更新系统 
<%
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 " 歌手信息 姓名:"&singer_name&" 字母:"&singer_first_name&" 性质:"&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 " "&sql
conn.execute(sql)
CloseConn()

'---歌手添加完成后转入信息采集重新检测
response.write " 歌手信息检查添加完成，正在准备检查获取更新... "
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 ┆
'''┆ @版权: 源码公开,无任何版权问题,您可以 ┆
'''┆ 放心使用!!!尊重作者劳动成果,请 ┆
'''┆ 保留此信息! ┆
'''┆ ┆
'''╚=======================================╝
'''
'%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>歌手专辑歌曲信息采集_7xi音乐采集更新系统</title>
</head>
<body>
 7xi音乐采集更新系统 
<%
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 " 当前ID号不存在，正在检查下一ID号 ... "
 response.write "<meta http-equiv=refresh content=""0 ; url=get.asp"">"
 else '---不需要递增ID检测时，转到歌曲信息采集
 response.write " 歌手专辑信息检查完毕，正在准备检查获取歌曲信息 ... "
 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 " 歌手："&strsinger

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

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

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

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

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

 str0 = split(str,"<img src="/UploadFiles/2021-04-02/"> str1 = split(str0(1),"""")
 strpicc = str1(0)
 response.write " 图片："&strpicc
 response.write " <img src="&v_7xipicc_url&strpicc&">
 set rssinger = conn.execute("select * from d_singer where singer_name='"&strsinger&"'")
 '---歌手信息不存在时需要手动添加歌手
 if rssinger.eof then
 response.write " select * from d_singer where singer_name='"&strsinger&"'"
 response.write " 歌手不存在，需要手动操作添加。 请按以下要求添加歌手： "
%>
<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 " 歌手信息正确，正在检查获取专辑信息 ... "
 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 " 专辑信息检查添加完成，正在检查获取歌曲信息 ..."&" SQL语句："&sql
 else
 response.write " 专辑信息正确，正在准备检查获取歌曲信息 ..."
 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 " 专辑歌曲信息 "

 '----歌曲ID
 i = 1
 str0 = split(str,"<input type="&chr(34)&"checkbox"&chr(34)&" name="&chr(34)&"checked"&chr(34)&" value="&chr(34))
 response.write " 歌曲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 " 歌曲："
 do while m <= Ubound(str0)
 str1 = split(str0(m),""" target=""_blank""><img src="/UploadFiles/2021-04-02/"> 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 " 错误：歌曲ID数目与歌曲名数目不一致，请检查目标页面："& url &""
 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 " 添加："&songname(i-2)&""
 response.write sql
 else
 response.write " 跳过："&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 " 正在检测下一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 ┆
'''┆ @版权: 源码公开,无任何版权问题,您可以 ┆
'''┆ 放心使用!!!尊重作者劳动成果,请 ┆
'''┆ 保留此信息! ┆
'''┆ ┆
'''╚=======================================╝
'''
'%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>歌曲文件歌词等信息采集_7xi音乐采集更新系统</title>
</head>
<body>
 7xi音乐采集更新系统 
<%
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 " 歌曲文件信息检查采集完成！"
 response.write " 采集完了，可以做垃圾站了！"
 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 " 歌曲名 - "& singer & "-" &song
 '---目标页面
 url = v_7xiplay_url&t7xiid&".htm"
 set httpobj = server.createobject("paopao.http")
 Err.Clear
 on error resume next
 response.write " "&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 " 文件名 - "& filerm
 tmpurl = v_7ximp3_url & filerm
 response.write " 目标源 - "& 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 " 保存为 - "& tmpfolder & "\" & str0(Ubound(str0))
 okrm = GetRemoteFiles(tmpurl,tmpfolder,replace(str0(Ubound(str0)),".rm",""))
 else
 response.write " 请注意 - RM文件配置为不保存!!!!!!!!!!"
 end if

 '---歌词采集
 tmp_url = "http://www.7xi.net/showword.asp?id=" & t7xiid
 response.write " "&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," ",chr(13))
 lyric = replace(lyric," "," ")
 lyric = replace(replace(lyric,"",""),"","")
 lyric = IndbStr(trim(lyric))
 if Instr(lyric,"mp3.baidu.com") then lyric = "暂时还没歌词"

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

 if lyric = "暂时还没歌词" then
 Err.Clear
 tmp_url = "http://mp3.baidu.com/m?f=ms&rn=10&tn=baidump3lyric&ct=150994944&word="&singer&"+"&song
 response.write " "&tmp_url
 str0 = httpobj.get(tmp_url)
 str1 = split(str0,""&song&"")
 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," ",chr(13))
 lyric = replace(lyric," "," ")
 lyric = replace(lyric,"","")
 lyric = replace(lyric,"","")
 else
 lyric = "暂时还没歌词"
 end if
 end if

 response.write " 歌词 - "&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 " 错误：获取目标页面错误，请检查："& url &""
 response.end
 end if
 rssong.movenext
 loop
 rssong.close
 set rssong = nothing
 CloseConn()

 '---继续检测采集下一批歌曲信息
 response.write " 正在检测下一批歌曲信息 ... "
 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

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

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

评论“asp实现的7xi音乐网的采集源代码”

暂无评论...

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

asp读取远程文件并保存到本地代码

ASP下实现自动采集程序及入库的代码

评论“asp实现的7xi音乐网的采集源代码”

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接