您所在位置：主题：急！！！！！！！
rongwu
[专家分：340] 发布于 2007-10-31 18:11:00
<form name="form1" action="get.asp" >
<tr>
<td height="40" align="center" >音乐数据</td>
</tr>
<tr>
<td align="center">选取站点：
<select name="WebSite" id="WebSite" style="width:150;" size="1">
<option value="91f.net" selected>www.st020.net[Wma]</option>
</select>
<br>
<br>
启始ID号：
<input name="StartID" type="text" id="StartID" style="width:150;" value="1" size="6" maxlength="6">
<br>
<br>
结束ID号：
<input name="OverID" type="text" id="OverID" style="width:150;" value="5" size="6" maxlength="6">
<br>
<br>
<input type="submit" name="Submit" class="bg" value="提交">
<input type="reset" name="Submit" class="bg" value="重置">
</td>
</tr>
</form>
..........................................
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="Function.asp" -->
<!--#include file="conn.asp" -->
<html>
<head>
<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">
<title>音乐数据</title>
<style>
body {margin-top: 20;margin-right: 100;margin-bottom: 20;margin-left: 100;font-size: 12pt;line-height: 25px;font-family: "Arial", "宋体";}
.bg{filter : progid:DXImageTransform.Microsoft.gradient(startColorStr=#FFace720,endColorStr=#FF9cd710);}
a{text-decoration: none;}
</style>
</head><body class="bg">
<%
ID = Request("ID")
StartID = Request("StartID")
OverID = Request("OverID")
url="http://www.st020.net/zhuanji/"&ID&".htm"
zpl=GetPage(url)
If Instr(zpl,"无法找到该页") Then
Call NextID
Response.End
End If
music=GetContent(zpl,"<td width=""170"" bgcolor=""#d6f3ce"">","<script language=""JavaScript"" src=""http://www.st020.net/ad_rightfloat1012.js""></script>",0)
snac=GetContent(zpl,"<td><a href=""http://www.st020.net"">首页</a>","</td>",0)
imgrii=GetContent(zpl,"<IMG style=""BORDER: #8cdd75 1px solid"" height=""120"" alt=","</td>",0)
musll=GetCONTENT(ZPL,"<TD>选择</TD>","</center></form></td>",0)
SClass=GetContent(music,".htm"">","</A>",0)'GetContent(music,"_Art.htm'>","</a>",0)
nclassdir=GetContent(zpl,"<TD width=""420"">歌手姓名：","</td>",0)
NClass=GetContent(nclassdir,".htm"">","</a>",0)
ABC=GetPyChar(NClass)
NClass=Replace(NClass,"'","")
Name=GetContent(music,"专辑名称：","</td>",0)
Name=Replace(Name,"'",".")
Yuyan=GetContent(music,"所属语言：","</td>",0)
GongSi=GetContent(music,"唱片公司：","</td>",0)
GongSi=Replace(GongSi,"广州视听","自由音乐")
GongSi=Replace(GongSi,"ST020.COM","自由音乐")
GongSi=Replace(GongSi,"st020.com","自由音乐")
GongSi=Replace(GongSi,"st020.net","自由音乐")
GongSi=Replace(GongSi,"st020.cn","自由音乐")
Times=GetContent(music,"发行日期：","</td>",0)
Info=GetContent(music,"<div name=Mtext style=""width:570px;height:80px;font-face:Arial;padding:3;overflow=auto;border:inset 1px;"">","</div>",0)
Info=Replace(Info,"http://www.st020.com","http://www.evv.cn")
Info=Replace(Info,"广州视听","自由音乐")
ima=GetContent(imgrii,"src=""",""" width=",0)
imuuo=GetContent(imgrii,"http://www.st020.cn/showimg.",""" width=",0)
ima=Replace(ima, "http://box2.st020.net/images/Nophoto.gif", "photo/Nopic.gif")
ima=Replace(ima, "http://www.st020.cn/images/Nophoto.gif", "photo/Nopic.gif")
music=Split(musll,"'left'> ")
musicOverId=ubound(music)
Response.Write "<div id=""Layer1"" style=""position:absolute; width:120px; height:120px; z-index:1; left: 422px; top: 29px;""><img src='"&ima&"'><br></div>"
response.flush
Response.Write "专辑编号："&ID&"<br>"
response.flush
Response.Write "歌手字母："&ABC&"<br>"
response.flush
Response.Write "歌手分类："&SClass&"<br>"
response.flush
Response.Write "专辑歌手："&NClass&"<br>"
response.flush
Response.Write "专辑名称："&Name&"<br>"
response.flush
Response.Write "专辑图片：<a href='"&ima&"' target='_blank'>"&ima&"</a><br>"
response.flush
Response.Write "发行公司："&GongSi&"<br>"
response.flush
Response.Write "发行日期："&Times&"<br>"
response.flush
Response.Write "所属语言："&Yuyan&"<br>"
response.flush
Response.Write "专辑简介：<span title='"&Info&"'>此处略"&len(Info)&"字。</span><br>"
response.flush
Response.Write "歌曲总数：此专辑共有<font color=red>"&MusicOverID&"</font>首歌曲 <br>"
response.flush
'=================================
'开始处理数据，加入数据库
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From SClass Where SClass='"&SClass&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("SClass")=SClass
Rs.Update
Rs.Close
Set Rs = Nothing
Set rsc = Conn.Execute("select * from SClass where SClass='"&SClass&"'")
SClassID=rsc("SClassID")
rsc.close
set rsc=nothing
'处理歌手的二级类别,如数据库中没有该类别，则增加
set rst=server.CreateObject("ADODB.RecordSet")
Sql="Select * From NClass Where NClass='"&NClass&"'"
Rst.Open Sql,Conn,1,3
If Rst.Eof And Rst.Bof Then
Rst.AddNew
End If
rst("NClass")=NClass
rst("SClassID")=SClassID
rst("abcd")=abc
Rst.Update
Rst.Close
Set Rst = Nothing
'取类别的ID号
Set rsc = Conn.Execute("select * from NClass where NClass='"&NClass&"'")
NClassID=rsc("NClassID")
rsc.close
set rsc=nothing
'===================================================
'可以开始写入专集记录
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From Special Where NClass='"&NClass&"'and Name='"&Name&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("SClassID")=SClassID
rs("SClass")=SClass
rs("NClassID")=NClassID
rs("NClass")=NClass
rs("name")=name
rs("Language")=Yuyan
rs("PubCompany")=Gongsi
rs("Pubtime")=Times
rs("intro")=Info
rs("pic")=ima
rs("Dateandtime")=date()
Rs.Update
Rs.Close
Set Rs = Nothing
set rsedit=server.CreateObject("ADODB.RecordSet")
Set rsedit = Conn.Execute("select * from Special where NClass='"&NClass&"'and name='"&name&"'")
SpecialID=rsedit("SpecialID")
rsedit.close
set rsedit=nothing
Response.Write "歌曲总数：此专辑共有<font color=red>"&MusicOverID&"</font>首歌曲 [<font color=red>正在添加数据，请耐心等待.....</font>]<br>"
response.flush
for MusicStartID=1 to musicOverId
musicnamelist=GetContent(musll," "&MusicStartID&"","</td>",0)
musicname=GetContent(musicnamelist," target=_blank''c''>","</A>",0)
musicID=GetContent(musicnamelist,"<A href='/play/",".htm?",0)
bffurlid=GetContent(musicnamelist,".htm?","' target=_blank''c''>",0)
musicwma=GetContent(GetPage("http://www.st020.net/play/"&musicID&".htm?"&bffurlid&""),"Filename=wma"&bffurlid&"+""",""";",0)
'搜索歌词开始
gcurl="http://mp3.baidu.com/m?tn=baidump3lyric&word="&musicname&"&ct=150994944&lm=-1&lf=3"
gc=GetPage(gcurl)
musicGC=GetContent(gc,"<td bgcolor=#f5f5f5 style=""font-family:Arial;font-size:10.5pt""><br>","<p align=right>",0)
musicGC=Replace(musicGC,"<a href=","<t href=")
If Instr(gc,"建议您检查输入文字有无错误") Then
musicGC="未录入"
end if
Response.Write "№<font color=red>"&MusicStartID&"</font>. " &musicname& " | 歌词略"&len(musicGC)&"字<br>"
response.flush
musicwma=replace(musicwma,"'","")
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From MusicList Where ListenUrl='"&musicwma&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("ListenUrl")=musicwma
rs("SClassID")=SClassID
rs("NClassID")=NClassID
rs("Singer")=NClass
rs("SpecialID")=SpecialID
rs("musicname")=musicname
rs("GeCi")=musicGC
rs("DateAndTime")=date()
rs.update
rs.close
Set Rs = Nothing
NEXT
call NextID
CALL GETPIC(ima)
Sub NextID()
If Clng(ID) < Clng(OverID) Then
Response.Write "<script language=javascript>location.href='get.asp?StartID=" & StartID & "&OverID=" & OverID & "&ID=" & Clng(ID) + 1 & "';</script>"
Else
Response.Write "开始 I D：" & StartID & "<br>" & "结束 I D：" & OverID & "<br><font color=red size=4><b>更新完毕！</b></font>"
End If
End Sub
Function GETPIC(ima)
if ima="photo/Nopic.gif" then
ima="photo/Nopic.gif"
else
ima=ima
RandomFileName=GenerateRandomFileName(ima)
imaurl = "photo/"&RandomFileName
if left(imaurl,1)="/" then imaurl=right(ima,len(imaurl)-1)
Response.Write"专辑图片：<a href='" &imaurl& "' target='_blank'>" &imaurl& "</a> | "
'===================================================
'可以开始写入图片
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From Special Where NClass='"&NClass&"'and Name='"&Name&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("pic")=imaurl
Rs.Update
Rs.Close
Set Rs = Nothing
'===================================================
flName=ima
fldr=""
If IsExists(imaurl)=false then
GetNewsFold=split(imaurl,"/")
For i=0 to Ubound(GetNewsFold)-1
if fldr="" then
fldr=GetNewsFold(i)
else
fldr=fldr&"\"&GetNewsFold(i)
end if
If IsFolder(fldr)=false then
call CreateFolder(fldr)
End if
Next
imgurl=flName
imgfilename=imaurl
saveimage imgurl,imgfilename
End if
response.flush
End If
End function
%>
</body>
</html>
//get.asp
为什么数据库没变化
<tr>
<td height="40" align="center" >音乐数据</td>
</tr>
<tr>
<td align="center">选取站点：
<select name="WebSite" id="WebSite" style="width:150;" size="1">
<option value="91f.net" selected>www.st020.net[Wma]</option>
</select>
<br>
<br>
启始ID号：
<input name="StartID" type="text" id="StartID" style="width:150;" value="1" size="6" maxlength="6">
<br>
<br>
结束ID号：
<input name="OverID" type="text" id="OverID" style="width:150;" value="5" size="6" maxlength="6">
<br>
<br>
<input type="submit" name="Submit" class="bg" value="提交">
<input type="reset" name="Submit" class="bg" value="重置">
</td>
</tr>
</form>
..........................................
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="Function.asp" -->
<!--#include file="conn.asp" -->
<html>
<head>
<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">
<title>音乐数据</title>
<style>
body {margin-top: 20;margin-right: 100;margin-bottom: 20;margin-left: 100;font-size: 12pt;line-height: 25px;font-family: "Arial", "宋体";}
.bg{filter : progid:DXImageTransform.Microsoft.gradient(startColorStr=#FFace720,endColorStr=#FF9cd710);}
a{text-decoration: none;}
</style>
</head><body class="bg">
<%
ID = Request("ID")
StartID = Request("StartID")
OverID = Request("OverID")
url="http://www.st020.net/zhuanji/"&ID&".htm"
zpl=GetPage(url)
If Instr(zpl,"无法找到该页") Then
Call NextID
Response.End
End If
music=GetContent(zpl,"<td width=""170"" bgcolor=""#d6f3ce"">","<script language=""JavaScript"" src=""http://www.st020.net/ad_rightfloat1012.js""></script>",0)
snac=GetContent(zpl,"<td><a href=""http://www.st020.net"">首页</a>","</td>",0)
imgrii=GetContent(zpl,"<IMG style=""BORDER: #8cdd75 1px solid"" height=""120"" alt=","</td>",0)
musll=GetCONTENT(ZPL,"<TD>选择</TD>","</center></form></td>",0)
SClass=GetContent(music,".htm"">","</A>",0)'GetContent(music,"_Art.htm'>","</a>",0)
nclassdir=GetContent(zpl,"<TD width=""420"">歌手姓名：","</td>",0)
NClass=GetContent(nclassdir,".htm"">","</a>",0)
ABC=GetPyChar(NClass)
NClass=Replace(NClass,"'","")
Name=GetContent(music,"专辑名称：","</td>",0)
Name=Replace(Name,"'",".")
Yuyan=GetContent(music,"所属语言：","</td>",0)
GongSi=GetContent(music,"唱片公司：","</td>",0)
GongSi=Replace(GongSi,"广州视听","自由音乐")
GongSi=Replace(GongSi,"ST020.COM","自由音乐")
GongSi=Replace(GongSi,"st020.com","自由音乐")
GongSi=Replace(GongSi,"st020.net","自由音乐")
GongSi=Replace(GongSi,"st020.cn","自由音乐")
Times=GetContent(music,"发行日期：","</td>",0)
Info=GetContent(music,"<div name=Mtext style=""width:570px;height:80px;font-face:Arial;padding:3;overflow=auto;border:inset 1px;"">","</div>",0)
Info=Replace(Info,"http://www.st020.com","http://www.evv.cn")
Info=Replace(Info,"广州视听","自由音乐")
ima=GetContent(imgrii,"src=""",""" width=",0)
imuuo=GetContent(imgrii,"http://www.st020.cn/showimg.",""" width=",0)
ima=Replace(ima, "http://box2.st020.net/images/Nophoto.gif", "photo/Nopic.gif")
ima=Replace(ima, "http://www.st020.cn/images/Nophoto.gif", "photo/Nopic.gif")
music=Split(musll,"'left'> ")
musicOverId=ubound(music)
Response.Write "<div id=""Layer1"" style=""position:absolute; width:120px; height:120px; z-index:1; left: 422px; top: 29px;""><img src='"&ima&"'><br></div>"
response.flush
Response.Write "专辑编号："&ID&"<br>"
response.flush
Response.Write "歌手字母："&ABC&"<br>"
response.flush
Response.Write "歌手分类："&SClass&"<br>"
response.flush
Response.Write "专辑歌手："&NClass&"<br>"
response.flush
Response.Write "专辑名称："&Name&"<br>"
response.flush
Response.Write "专辑图片：<a href='"&ima&"' target='_blank'>"&ima&"</a><br>"
response.flush
Response.Write "发行公司："&GongSi&"<br>"
response.flush
Response.Write "发行日期："&Times&"<br>"
response.flush
Response.Write "所属语言："&Yuyan&"<br>"
response.flush
Response.Write "专辑简介：<span title='"&Info&"'>此处略"&len(Info)&"字。</span><br>"
response.flush
Response.Write "歌曲总数：此专辑共有<font color=red>"&MusicOverID&"</font>首歌曲 <br>"
response.flush
'=================================
'开始处理数据，加入数据库
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From SClass Where SClass='"&SClass&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("SClass")=SClass
Rs.Update
Rs.Close
Set Rs = Nothing
Set rsc = Conn.Execute("select * from SClass where SClass='"&SClass&"'")
SClassID=rsc("SClassID")
rsc.close
set rsc=nothing
'处理歌手的二级类别,如数据库中没有该类别，则增加
set rst=server.CreateObject("ADODB.RecordSet")
Sql="Select * From NClass Where NClass='"&NClass&"'"
Rst.Open Sql,Conn,1,3
If Rst.Eof And Rst.Bof Then
Rst.AddNew
End If
rst("NClass")=NClass
rst("SClassID")=SClassID
rst("abcd")=abc
Rst.Update
Rst.Close
Set Rst = Nothing
'取类别的ID号
Set rsc = Conn.Execute("select * from NClass where NClass='"&NClass&"'")
NClassID=rsc("NClassID")
rsc.close
set rsc=nothing
'===================================================
'可以开始写入专集记录
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From Special Where NClass='"&NClass&"'and Name='"&Name&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("SClassID")=SClassID
rs("SClass")=SClass
rs("NClassID")=NClassID
rs("NClass")=NClass
rs("name")=name
rs("Language")=Yuyan
rs("PubCompany")=Gongsi
rs("Pubtime")=Times
rs("intro")=Info
rs("pic")=ima
rs("Dateandtime")=date()
Rs.Update
Rs.Close
Set Rs = Nothing
set rsedit=server.CreateObject("ADODB.RecordSet")
Set rsedit = Conn.Execute("select * from Special where NClass='"&NClass&"'and name='"&name&"'")
SpecialID=rsedit("SpecialID")
rsedit.close
set rsedit=nothing
Response.Write "歌曲总数：此专辑共有<font color=red>"&MusicOverID&"</font>首歌曲 [<font color=red>正在添加数据，请耐心等待.....</font>]<br>"
response.flush
for MusicStartID=1 to musicOverId
musicnamelist=GetContent(musll," "&MusicStartID&"","</td>",0)
musicname=GetContent(musicnamelist," target=_blank''c''>","</A>",0)
musicID=GetContent(musicnamelist,"<A href='/play/",".htm?",0)
bffurlid=GetContent(musicnamelist,".htm?","' target=_blank''c''>",0)
musicwma=GetContent(GetPage("http://www.st020.net/play/"&musicID&".htm?"&bffurlid&""),"Filename=wma"&bffurlid&"+""",""";",0)
'搜索歌词开始
gcurl="http://mp3.baidu.com/m?tn=baidump3lyric&word="&musicname&"&ct=150994944&lm=-1&lf=3"
gc=GetPage(gcurl)
musicGC=GetContent(gc,"<td bgcolor=#f5f5f5 style=""font-family:Arial;font-size:10.5pt""><br>","<p align=right>",0)
musicGC=Replace(musicGC,"<a href=","<t href=")
If Instr(gc,"建议您检查输入文字有无错误") Then
musicGC="未录入"
end if
Response.Write "№<font color=red>"&MusicStartID&"</font>. " &musicname& " | 歌词略"&len(musicGC)&"字<br>"
response.flush
musicwma=replace(musicwma,"'","")
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From MusicList Where ListenUrl='"&musicwma&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("ListenUrl")=musicwma
rs("SClassID")=SClassID
rs("NClassID")=NClassID
rs("Singer")=NClass
rs("SpecialID")=SpecialID
rs("musicname")=musicname
rs("GeCi")=musicGC
rs("DateAndTime")=date()
rs.update
rs.close
Set Rs = Nothing
NEXT
call NextID
CALL GETPIC(ima)
Sub NextID()
If Clng(ID) < Clng(OverID) Then
Response.Write "<script language=javascript>location.href='get.asp?StartID=" & StartID & "&OverID=" & OverID & "&ID=" & Clng(ID) + 1 & "';</script>"
Else
Response.Write "开始 I D：" & StartID & "<br>" & "结束 I D：" & OverID & "<br><font color=red size=4><b>更新完毕！</b></font>"
End If
End Sub
Function GETPIC(ima)
if ima="photo/Nopic.gif" then
ima="photo/Nopic.gif"
else
ima=ima
RandomFileName=GenerateRandomFileName(ima)
imaurl = "photo/"&RandomFileName
if left(imaurl,1)="/" then imaurl=right(ima,len(imaurl)-1)
Response.Write"专辑图片：<a href='" &imaurl& "' target='_blank'>" &imaurl& "</a> | "
'===================================================
'可以开始写入图片
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From Special Where NClass='"&NClass&"'and Name='"&Name&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("pic")=imaurl
Rs.Update
Rs.Close
Set Rs = Nothing
'===================================================
flName=ima
fldr=""
If IsExists(imaurl)=false then
GetNewsFold=split(imaurl,"/")
For i=0 to Ubound(GetNewsFold)-1
if fldr="" then
fldr=GetNewsFold(i)
else
fldr=fldr&"\"&GetNewsFold(i)
end if
If IsFolder(fldr)=false then
call CreateFolder(fldr)
End if
Next
imgurl=flName
imgfilename=imaurl
saveimage imgurl,imgfilename
End if
response.flush
End If
End function
%>
</body>
</html>
//get.asp
为什么数据库没变化