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

日期：2020-05-13 栏目：程序人生浏览：次

'''┆ @模块: 歌手、专辑、歌曲信息采集       ┆
'''┆ @创建: 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>
<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")

转载注明出处：http://www.heiqu.com/3014.html

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

相关推荐