'''┆ @创建: 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>"
