asp实现的7xi音乐网的采集源代码(6)
'''┆ @联系: 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 ┆
内容版权声明:除非注明,否则皆为本站原创文章。