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    ┆ 

内容版权声明:除非注明,否则皆为本站原创文章。

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