wanghr100(灰豆宝宝.net) 好厉害，进来领分！
http://expert.csdn.net/Expert/topic/3025/3025450.xml?temp=.7434503
可以把
歌曲名称 歌手 大小 格式 协议 连通率 试听 下载
分别读取出来吗？ 比如歌手在第一个空格后的第二个字串， 连同率用
if mid(Mm3(4),36,4)="0%" then
mmsd="images/img/s1.gif"
elseif mid(Mm3(4),36,4)="10%" then
mmsd="images/img/s2.gif"
elseif mid(Mm3(4),36,4)="20%" then
mmsd="images/img/s3.gif"
elseif mid(Mm3(4),36,4)="30%" then
mmsd="images/img/s4.gif"
elseif mid(Mm3(4),36,4)="40%" then
mmsd="images/img/s5.gif"
elseif mid(Mm3(4),36,4)="50%" then
mmsd="images/img/s6.gif"
elseif mid(Mm3(4),36,4)="60%" then
mmsd="images/img/s7.gif"
elseif mid(Mm3(4),36,4)="70%" then
mmsd="images/img/s8.gif"
elseif mid(Mm3(4),36,4)="80%" then
mmsd="images/img/s9.gif"
elseif mid(Mm3(4),36,4)="90%" then
mmsd="images/img/s10.gif"
elseif mid(Mm3(4),36,4)="100%" then
mmsd="images/img/s11.gif"
end if
图片输出，把每条记录分别读取出来，麻烦了，谢谢！！
问题点数：100、回复次数：26Top
1 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-03 17:07:15 得分 0
我已经把这些这些数据转成XML文件输出了.
这样一样,就可以随便你进行显示了.
Top
2 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-03 17:11:52 得分 0
index.asp
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<table height=38 cellspacing=0 cellpadding=0 width=766 align=center
background="images/bar_bg.gif" border=0>
<tbody>
<tr>
<td width=1 bgcolor=#c0c0c0></td>
<td width=119 valign="top"><img height=38 src="images/menu_login1.gif"
width=119></td>
<td>
<table cellspacing=0 cellpadding=4 width="100%" border=0>
<form action="List2Xml.asp" method="get">
<tr>
<td width="10%">
<div align="right"><img height=14 src="images/name1.gif"
width=55></div>
</td>
<td width="29%">
<div align="center">
<input value="<%=Request("key")%>" class="input" maxLength="150" size="20" name="key" value="" onMouseOver="this.focus()" onBlur="if (value =='输入歌手或歌名'){value='输入歌手或歌名'}" onFocus="this.select()">
</div>
</td>
<td width="5%">
<div align="right"><img height=14 src="images/type.gif"
width=33></div>
</td>
<td width="40%">
<div align="center">
<input id="fmp3" type="checkbox" value="1" name="fmp3" > MP3
<input id="frm" type="checkbox" value="1" name="frm" > RM
<input id="fwma" type="checkbox" value="1" name="fwma" > WMA
<input id="fasf" type="checkbox" value="1" name="fasf" > ASF
<input type="image" src="images/search.gif" border="0" name="I2" cachename="go" title=搜索 width="37" height="21">
</div>
</td>
<td width="15%">
</td>
</tr></form>
</table>
</td>
<td width=1 bgcolor=#c0c0c0></td>
</table>Top
3 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-03 17:14:17 得分 100
List2Xml.asp
<?xml version="1.0" encoding="GB2312" ?>
<%
'----------Start List2Xml.asp Start---------------
'作用:抓取HTML转成XML文件 目标:sogua.com的文件列表
'
'author:wanghr100(灰豆宝宝.net)
'update:23:51 2004-5-1
'
'----------End List2Xml.asp End---------------
'---------------读取数据 XMLHTTP----Start-------------------
'XMLHTTP中,中文读取问题解决办法.
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function viewCode(url)
Set baoxmlhttp = CreateObject("Msxml2.xmlhttp")
With baoxmlhttp
.Open "GET", url, False, "", ""
.Send
viewCode = bytes2BSTR(.ResponseBody)
End With
Set baoxmlhttp = Nothing
End Function
if Request("page")="" then
page=1
else
page=Request("page")
end if
if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
url = "http://search.sogua.com/search/search.asp?key="&Request("key")&"&page="&page&F
SourceCode=viewCode(url)
'---------------读取数据-------End-------------------
'----------Start 函数:SongList(Str,baore,baook) 正则 Start---------
'作用:替换字符串 (全局,不区会字符串大小)
'参数Str 要替换的字符串
'参数baore 模式
'参数baook 替换成的字符串
Function SongList(Str,baore,baook)
Set re = New RegExp
re.Pattern = baore
re.Global = True
re.IgnoreCase = True
Str = re.Replace(Str,baook)
SongList=Str
End Function
'----------End 函数:SongList(Str,baore,baook) 正则 End---------
'-----------XML特殊字符串转换----------
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
'----------Start 取得搜索结果 Start------------
MusicNumStart = InStr(SourceCode,"共为你找到了")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"个结果")
MusicNums = Mid(SourceCode,MusicNumStart+6,MusicNumEnd-MusicNumStart-6)
'----------End 取得搜索结果 End------------
'----------Start 取得关键数据 Start-----------
musicTag = "<div align=""center"">"
musicTag2 = "<td width=""100%"">"
SongStart = InStr(SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag2)
SongEnd = InStr(SongStart+17,SourceCode,musicTag)
SongLists = Mid(SourceCode,SongStart+17,SongEnd-SongStart-17)
'----------End 取得关键数据 End-----------
'----------Start 取得搜索结果页数 Start---------
SongPageStart = InStr(SourceCode,"<td width=""597"" height=""20"" colspan=""2"">")
SongPageEnd = InStr(SongPageStart,SourceCode,"下一页")
SongPages = Mid(SourceCode,SongPageStart+40,SongPageEnd-SongPageStart-40+3)
SongPages = Replace(SongPages,"'","")
SongPages = Replace(SongPages,"search.asp","music.asp")
'----------End 取得搜索结果页数 End-------------
'------------清除HTML标记内的修饰--Start--------------
ClearTd = "<(/?td)[^>]*>"
DelFirstTd = "<td>[ |\s]*</td>"
SongLists = SongList(SongLists,ClearTd,"<$1>")
SongLists = SongList(SongLists,DelFirstTd,"")
'------------清除HTML标记内的修饰----End--------------
'--------------------定义XML标记-----Start----------
'SongID: 歌曲编号 SongURL: 歌曲连接 SongSize: 歌曲大小
'Protocol: 连接协议 Conn: 连通率 Lyric: 歌词 Time: 搜索时间
Dim XmlTag
XmlTag = Array("SongID","SongURL","SongSize","SongType","Protocol","Conn","Lyric","Time")
'--------------------定义XML标记------End-----------
'---------------Start 函数 GetListData(baore, Str) 正则 Start-------------
'作用:循环<td></td>(模式)取出其中的数据.根据取出先后定义其XML标记
'参数Str 要替换的字符串
'参数baore 模式
Function GetListData(baore, Str)
Dim re, Match, Matches ' 建立变量。
Set re = New RegExp ' 建立正则表达式。
re.Pattern = baore ' 设置模式。
re.IgnoreCase = True ' 设置是否区分大小写。
re.Global = True ' 设置全局替换。
Set Matches = re.Execute(Str) ' 执行搜索。
for i=0 to matches.count - 1
ii = i mod (UBound(XmlTag)+1)
if ii = 0 then SongListcon=SongListcon&" <SongList>"&CHR(13)
SongListcon=SongListcon&" <"&XmlTag(ii)&">"
SongListcon=SongListcon&coder(matches(i).submatches(0))
SongListcon=SongListcon&"</"&XmlTag(ii)&">"&CHR(13)
if ii = UBound(XmlTag) then SongListcon=SongListcon&" </SongList>"&CHR(13)
next
GetListData = SongListcon
End Function
'----------------End 函数 GetListData(baore, Str) 正则 End ----------------
Response.Write "<Baobao>"&CHR(13)
Response.Write "<SearchResult>"&MusicNums&"</SearchResult>"&CHR(13)
Response.Write "<SongLists>"&CHR(13)
Response.Write GetListData("<td>([\s\S]*?)</td>",SongLists)
Response.Write "</SongLists>"&CHR(13)
Response.Write "<SearchPages>"&coder(SongPages)&"</SearchPages>"&CHR(13)
Response.Write "</Baobao>"&CHR(13)
%>
Top
4 楼dullwolf（超级大笨狼之羊皮马甲）回复于 2004-05-03 18:33:55 得分 0
搬个凳子来瞧瞧Top
5 楼zorou_fatal（The world and system is even）回复于 2004-05-04 00:09:54 得分 0
不错，进步很大啊。
^_^Top
6 楼cxty（沉酗天涯）回复于 2004-05-04 08:05:59 得分 0
打个标记~呵呵~~~~Top
7 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-04 08:13:04 得分 0
to:zorou_fatal
谢谢头的夸奖. 努力学习 :)Top
8 楼FEB15（张郎）回复于 2004-05-04 08:27:34 得分 0
学习Top
9 楼PCIBM（PCIBM）回复于 2004-05-04 11:10:17 得分 0
http://www.csdn.net/develop/Read_Article.asp?id=27295
是不是利用这种原理？没有学过xml，看不懂:<
麻烦整理，提供个地址给我下载，谢谢Top
10 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-06-11 18:08:18 得分 0
<?xml version="1.0" encoding="GB2312" ?>
<%
'----------Start List2Xml.asp Start---------------
'作用:抓取HTML转成XML文件 目标:sogua.com的文件列表
'
'author:wanghr100(灰豆宝宝.net)
'update:18:04 2004-6-11
'http://61.145.120.10:81/search/search.asp SoGua的搜索地址改了.
'
'----------End List2Xml.asp End---------------
'---------------读取数据 XMLHTTP----Start-------------------
'XMLHTTP中,中文读取问题解决办法.
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function viewCode(url)
Set baoxmlhttp = CreateObject("Msxml2.xmlhttp")
With baoxmlhttp
.Open "GET", url, False, "", ""
.Send
viewCode = bytes2BSTR(.ResponseBody)
End With
Set baoxmlhttp = Nothing
End Function
if Request("page")="" then
page=1
else
page=Request("page")
end if
if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
url = "http://61.145.120.10:81/search/search.asp?key="&Request("key")&"&page="&page&F
SourceCode=viewCode(url)
'---------------读取数据-------End-------------------
'----------Start 函数:SongList(Str,baore,baook) 正则 Start---------
'作用:替换字符串 (全局,不区会字符串大小)
'参数Str 要替换的字符串
'参数baore 模式
'参数baook 替换成的字符串
Function SongList(Str,baore,baook)
Set re = New RegExp
re.Pattern = baore
re.Global = True
re.IgnoreCase = True
Str = re.Replace(Str,baook)
SongList=Str
End Function
'----------End 函数:SongList(Str,baore,baook) 正则 End---------
'-----------XML特殊字符串转换----------
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
'----------Start 取得搜索结果 Start------------
MusicNumStart = InStr(SourceCode,"<font color=#000000>")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"</font>")
MusicNums = Mid(SourceCode,MusicNumStart+20,MusicNumEnd-MusicNumStart-20)
'----------End 取得搜索结果 End------------
'----------Start 取得关键数据 Start-----------
musicTag = "<div align=""center"">"
musicTag2 = "<td width=""100%"">"
SongStart = InStr(SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag2)
SongEnd = InStr(SongStart+17,SourceCode,musicTag)
SongLists = Mid(SourceCode,SongStart+17,SongEnd-SongStart-17)
'----------End 取得关键数据 End-----------
'----------Start 取得搜索结果页数 Start---------
SongPageStart = InStr(SourceCode,"<td width=""597"" height=""20"" colspan=""2"">")
SongPageEnd = InStr(SongPageStart,SourceCode,"下一页")
SongPages = Mid(SourceCode,SongPageStart+40,SongPageEnd-SongPageStart-40+3)
SongPages = Replace(SongPages,"'","")
SongPages = Replace(SongPages,"search.asp","music.asp")
'----------End 取得搜索结果页数 End-------------
'------------清除HTML标记内的修饰--Start--------------
ClearTd = "<(/?td)[^>]*>"
DelFirstTd = "<td>[ |\s]*</td>"
SongLists = SongList(SongLists,ClearTd,"<$1>")
SongLists = SongList(SongLists,DelFirstTd,"")
'------------清除HTML标记内的修饰----End--------------
'--------------------定义XML标记-----Start----------
'SongID: 歌曲编号 SongURL: 歌曲连接 SongSize: 歌曲大小
'Protocol: 连接协议 Conn: 连通率 Lyric: 歌词 Time: 搜索时间
Dim XmlTag
XmlTag = Array("SongID","SongURL","SongSize","SongType","Protocol","Conn","Lyric","Time")
'--------------------定义XML标记------End-----------
'---------------Start 函数 GetListData(baore, Str) 正则 Start-------------
'作用:循环<td></td>(模式)取出其中的数据.根据取出先后定义其XML标记
'参数Str 要替换的字符串
'参数baore 模式
Function GetListData(baore, Str)
Dim re, Match, Matches ' 建立变量。
Set re = New RegExp ' 建立正则表达式。
re.Pattern = baore ' 设置模式。
re.IgnoreCase = True ' 设置是否区分大小写。
re.Global = True ' 设置全局替换。
Set Matches = re.Execute(Str) ' 执行搜索。
for i=0 to matches.count - 1
ii = i mod (UBound(XmlTag)+1)
if ii = 0 then SongListcon=SongListcon&" <SongList>"&CHR(13)
SongListcon=SongListcon&" <"&XmlTag(ii)&">"
SongListcon=SongListcon&coder(matches(i).submatches(0))
SongListcon=SongListcon&"</"&XmlTag(ii)&">"&CHR(13)
if ii = UBound(XmlTag) then SongListcon=SongListcon&" </SongList>"&CHR(13)
next
GetListData = SongListcon
End Function
'----------------End 函数 GetListData(baore, Str) 正则 End ----------------
Response.Write "<Baobao>"&CHR(13)
Response.Write "<SearchResult>"&MusicNums&"</SearchResult>"&CHR(13)
Response.Write "<SongLists>"&CHR(13)
Response.Write GetListData("<td>([\s\S]*?)</td>",SongLists)
Response.Write "</SongLists>"&CHR(13)
Response.Write "<SearchPages>"&coder(SongPages)&"</SearchPages>"&CHR(13)
Response.Write "</Baobao>"&CHR(13)
%>
Top
11 楼s1ihome（My hometown is a beautiful village）回复于 2004-06-11 18:43:52 得分 0
mark～～～
请各位高手讲讲这些xmlhttp,xmldoc之类的用途与用法吧Top
12 楼PCIBM（PCIBM）回复于 2004-06-11 19:16:06 得分 0
我搜索张学友，怎么会得到下面的结果？不是页面上的列表，而是代码，郁闷！Top
13 楼PCIBM（PCIBM）回复于 2004-06-11 19:17:14 得分 0
<?xml version="1.0" encoding="GB2312" ?>
- <Baobao>
<SearchResult>300</SearchResult>
- <SongLists>
- <SongList>
<SongID>1</SongID>
<SongURL><a href="view.asp?key_res=461&wordkey=45792" target=_blank> - ( 张学友</a></SongURL>
<SongSize>2.4 M</SongSize>
<SongType>wma</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - ( 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 8:29:45</Time>
</SongList>
+ <SongList>
<SongID>2</SongID>
<SongURL><a href="view.asp?key_res=878&wordkey=23516" target=_blank> - (国语) 张学友 当我想起你 (EP)</a></SongURL>
<SongSize>3.7 M</SongSize>
<SongType>mp3</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - (国语) 张学友 当我想起你 (EP)"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 8:39:43</Time>
</SongList>
- <SongList>
<SongID>3</SongID>
<SongURL><a href="view.asp?key_res=1462&wordkey=72285" target=_blank> - (忘记你我做不到) 张学友</a></SongURL>
<SongSize>0.7 M</SongSize>
<SongType>rm</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - (忘记你我做不到) 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 6:34:45</Time>
</SongList>
- <SongList>
<SongID>4</SongID>
<SongURL><a href="view.asp?key_res=1471&wordkey=1430" target=_blank> - (我应该) 张学友</a></SongURL>
<SongSize>1.0 M</SongSize>
<SongType>rm</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - (我应该) 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 6:39:00</Time>
</SongList>
- <SongList>
<SongID>5</SongID>
<SongURL><a href="view.asp?key_res=1720&wordkey=22122" target=_blank> - (粤语) 张学友 当我想起你 (EP)</a></SongURL>
<SongSize>3.7 M</SongSize>
<SongType>mp3</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - (粤语) 张学友 当我想起你 (EP)"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 7:47:04</Time>
</SongList>
- <SongList>
<SongID>6</SongID>
<SongURL><a href="view.asp?key_res=3978&wordkey=25575" target=_blank> - 02 Let Me Go 张学友热</a></SongURL>
<SongSize>5.0 M</SongSize>
<SongType>mp3</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 02 Let Me Go 张学友热"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 8:09:06</Time>
</SongList>
- <SongList>
<SongID>7</SongID>
<SongURL><a href="view.asp?key_res=5780&wordkey=35646" target=_blank> - 1 张学友</a></SongURL>
<SongSize>4.0 M</SongSize>
<SongType>wma</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 1 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 2:50:22</Time>
</SongList>
- <SongList>
<SongID>8</SongID>
<SongURL><a href="view.asp?key_res=5781&wordkey=20326" target=_blank> - 1 张学友</a></SongURL>
<SongSize>4.0 M</SongSize>
<SongType>wma</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 1 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 2:51:02</Time>
</SongList>
- <SongList>
<SongID>9</SongID>
<SongURL><a href="view.asp?key_res=5782&wordkey=12741" target=_blank> - 1 张学友</a></SongURL>
<SongSize>3.1 M</SongSize>
<SongType>wma</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 1 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 2:51:45</Time>
</SongList>
- <SongList>
<SongID>10</SongID>
<SongURL><a href="view.asp?key_res=5783&wordkey=11521" target=_blank> - 1 张学友</a></SongURL>
<SongSize>4.4 M</SongSize>
<SongType>wma</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 1 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 2:52:23</Time>
</SongList>
- <SongList>
Top
14 楼PCIBM（PCIBM）回复于 2004-06-11 19:17:54 得分 0
</SongList>
- <SongList>
<SongID>28</SongID>
<SongURL><a href="view.asp?key_res=24799&wordkey=93151" target=_blank> - 爱情你我他 张学友</a></SongURL>
<SongSize>3.8 M</SongSize>
<SongType>mp3</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 爱情你我他 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 7:24:58</Time>
</SongList>
- <SongList>
<SongID>29</SongID>
<SongURL><a href="view.asp?key_res=27524&wordkey=60852" target=_blank> - 半斤八两 张学友</a></SongURL>
<SongSize>3.0 M</SongSize>
<SongType>mp3</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 半斤八两 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 4:33:23</Time>
</SongList>
- <SongList>
<SongID>30</SongID>
<SongURL><a href="view.asp?key_res=30383&wordkey=51681" target=_blank> - 不后悔 张学友</a></SongURL>
<SongSize>1.0 M</SongSize>
<SongType>rm</SongType>
<Protocol>http</Protocol>
<Conn>100 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 不后悔 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 2:10:33</Time>
</SongList>
- <SongList>
<SongID>31</SongID>
<SongURL><a href="view.asp?key_res=30384&wordkey=14450" target=_blank> - 不后悔 张学友</a></SongURL>
<SongSize>1.0 M</SongSize>
<SongType>rm</SongType>
<Protocol>http</Protocol>
<Conn>90 %</Conn>
<Lyric><a target="_blank" href="http://search2.sogua.com/search/lyric_search.asp?ftxt=a&flrc=&key= - 不后悔 张学友"> <img border="0" src="../images/gc1.gif"></a></Lyric>
<Time>2004-6-11 6:50:05</Time>
</SongList>
</SongLists>
<SearchPages> <font color=#000000>共有 300 条数据（最多显示300条），关键字 <font color="#FF0000"> 张学友</font>   上一页 <b>1</b> <a href="music.asp?key=张学友&page=2">2</a> <a href="music.asp?key=张学友&page=3">3</a> <a href="music.asp?key=张学友&page=4">4</a> <a href="music.asp?key=张学友&page=5">5</a> <a href="music.asp?key=张学友&page=6">6</a> <a href="music.asp?key=张学友&page=7">7</a> <a href="music.asp?key=张学友&page=8">8</a> <a href="music.asp?key=张学友&page=9">9</a> <a href="music.asp?key=张学友&page=10">10</a> <a href=music.asp?key=张学友&page=2>下一页</SearchPages>
</Baobao>Top
15 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-06-11 19:30:27 得分 0
这个文件就是实现这个功能的啊.
是把搜索的结果生成XML.然后,再用XSL文件来转换显示.
Top
16 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-06-11 19:34:58 得分 0
这样的话,就是生成列表了.
<STYLE TYPE=text/css><!--
body, td, p, div {font-size:12px;font-family:??;}
BODY
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #333333; TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0000ff; TEXT-DECORATION: underline
}
.underline {
COLOR: #000099; FONT-SIZE: 9pt; LINE-HEIGHT: 12pt; TEXT-DECORATION: underline
}.wnav{font-size:15px;color:#FFFFFF}
a:link {color:#0000FF; text-decoration:none}
a:link.wnav {color: #FFFFFF; text-decoration:none}
.selectnav{font-size:15px;color:#FFFFFF;font-weight:bold;text-decoration:none}
.rlt{font-size:13px;color:#000000}
a:link.rlt {color: #000000; text-decoration:none}
.p15{font-size:15px}
--></STYLE>
<!--#include file="index.asp"-->
<%
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function viewCode(url)
Set baoxmlhttp = CreateObject("Msxml2.xmlhttp")
With baoxmlhttp
.Open "GET", url, False, "", ""
.Send
viewCode = bytes2BSTR(.ResponseBody)
End With
Set baoxmlhttp = Nothing
End Function
if Request("page")="" then
page=1
else
page=Request("page")
end if
if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
url = "http://61.145.120.10:81/search/search.asp?key='"&Request("key")&"'&page="&page&F
SourceCode=viewCode(url)
'----------Start 取得搜索结果 Start------------
MusicNumStart = InStr(SourceCode,"<font color=#000000>")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"</font>")
MusicNums = Mid(SourceCode,MusicNumStart+20,MusicNumEnd-MusicNumStart-20)
'----------End 取得搜索结果 End------------
Response.Write "<br><center>灰豆宝宝帮你找到了<font color="&CHR(34)&"#FF0000"&CHR(34)&">"&MusicNums&"</font>个结果</center>"
musicTag = "<div align=""center"">"
SongStart = InStr(SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongEnd = InStr(SongStart+20,SourceCode,musicTag)
SongList = Mid(SourceCode,SongStart+20,SongEnd-SongStart-20)
Song2End = InStr(SongList,"<p> </p>")
SongList = Mid(":"&SongList,1,Song2End)
SongList = Replace(SongList,"../images/gc1.gif","images/gc1.gif")
SongList = Replace(SongList,"http://search2.sogua.com/search/lyric_search.asp","lyric.asp")
SongList = Replace(SongList,"view.asp","download.asp")
Response.Write SongList
SongPageStart = InStr(SourceCode,"<td width=""597"" height=""20"" colspan=""2"">")
SongPageEnd = InStr(SongPageStart,SourceCode,"下一页")
SongPage = Mid(SourceCode,SongPageStart+40,SongPageEnd-SongPageStart-40+3)
SongPage = Replace(SongPage,"'","")
SongPage = Replace(SongPage,"search.asp","music.asp")
Response.Write "<br><center>"
Response.Write SongPage
Response.Write "</center>"
%>
Top
17 楼PCIBM（PCIBM）回复于 2004-06-11 19:37:33 得分 0
如何用xsl转换出来呢？不懂Top
18 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-06-11 20:05:51 得分 0
index.asp
<link rel="stylesheet" type="text/css" href="style.css">
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<table height=38 cellspacing=0 cellpadding=0 width=766 align=center
background="images/bar_bg.gif" border=0>
<tbody>
<tr>
<td width=1 bgcolor=#c0c0c0></td>
<td width=119 valign="top"><img height=38 src="images/menu_login1.gif"
width=119></td>
<td>
<table cellspacing=0 cellpadding=4 width="100%" border=0>
<form action="music.asp" method="get">
<tr>
<td width="10%">
<div align="right"><img height=14 src="images/name1.gif"
width=55></div>
</td>
<td width="29%">
<div align="center">
<input value="<%=Request("key")%>" class="input" maxLength="150" size="20" name="key" value="" onMouseOver="this.focus()" onBlur="if (value =='输入歌手或歌名'){value='输入歌手或歌名'}" onFocus="this.select()">
</div>
</td>
<td width="5%">
<div align="right"><img height=14 src="images/type.gif"
width=33></div>
</td>
<td width="40%">
<div align="center">
<input id="fmp3" type="checkbox" value="1" name="fmp3" > MP3
<input id="frm" type="checkbox" value="1" name="frm" > RM
<input id="fwma" type="checkbox" value="1" name="fwma" > WMA
<input id="fasf" type="checkbox" value="1" name="fasf" > ASF
<input type="image" src="images/search.gif" border="0" name="I2" cachename="go" title=搜索 width="37" height="21">
</div>
</td>
<td width="15%">
</td>
</tr></form>
</table>
</td>
<td width=1 bgcolor=#c0c0c0></td>
</table>
Top
19 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-06-11 20:06:18 得分 0
music.asp
<STYLE TYPE=text/css><!--
body, td, p, div {font-size:12px;font-family:??;}
BODY
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #333333; TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0000ff; TEXT-DECORATION: underline
}
.underline {
COLOR: #000099; FONT-SIZE: 9pt; LINE-HEIGHT: 12pt; TEXT-DECORATION: underline
}.wnav{font-size:15px;color:#FFFFFF}
a:link {color:#0000FF; text-decoration:none}
a:link.wnav {color: #FFFFFF; text-decoration:none}
.selectnav{font-size:15px;color:#FFFFFF;font-weight:bold;text-decoration:none}
.rlt{font-size:13px;color:#000000}
a:link.rlt {color: #000000; text-decoration:none}
.p15{font-size:15px}
--></STYLE>
<!--#include file="index.asp"-->
<%
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function viewCode(url)
Set baoxmlhttp = CreateObject("Msxml2.xmlhttp")
With baoxmlhttp
.Open "GET", url, False, "", ""
.Send
viewCode = bytes2BSTR(.ResponseBody)
End With
Set baoxmlhttp = Nothing
End Function
if Request("page")="" then
page=1
else
page=Request("page")
end if
if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
url = "http://61.145.120.10:81/search/search.asp?key='"&Request("key")&"'&page="&page&F
SourceCode=viewCode(url)
'----------Start 取得搜索结果 Start------------
MusicNumStart = InStr(SourceCode,"<font color=#000000>")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"</font>")
MusicNums = Mid(SourceCode,MusicNumStart+20,MusicNumEnd-MusicNumStart-20)
'----------End 取得搜索结果 End------------
Response.Write "<br><center>灰豆宝宝帮你找到了<font color="&CHR(34)&"#FF0000"&CHR(34)&">"&MusicNums&"</font>个结果</center>"
musicTag = "<div align=""center"">"
SongStart = InStr(SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongEnd = InStr(SongStart+20,SourceCode,musicTag)
SongList = Mid(SourceCode,SongStart+20,SongEnd-SongStart-20)
Song2End = InStr(SongList,"<p> </p>")
SongList = Mid(":"&SongList,1,Song2End)
SongList = Replace(SongList,"../images/gc1.gif","images/gc1.gif")
SongList = Replace(SongList,"http://search2.sogua.com/search/lyric_search.asp","lyric.asp")
SongList = Replace(SongList,"view.asp","download.asp")
Response.Write SongList
SongPageStart = InStr(SourceCode,"<td width=""597"" height=""20"" colspan=""2"">")
SongPageEnd = InStr(SongPageStart,SourceCode,"下一页")
SongPage = Mid(SourceCode,SongPageStart+40,SongPageEnd-SongPageStart-40+3)
SongPage = Replace(SongPage,"'","")
SongPage = Replace(SongPage,"search.asp","music.asp")
Response.Write "<br><center>"
Response.Write SongPage
Response.Write "</center>"
%>
Top
20 楼inelm（木野狐）回复于 2004-06-11 20:25:35 得分 0
不会吧？？ 原来死 zourou 是灰豆宝宝的头头？？？Top
21 楼PCIBM（PCIBM）回复于 2004-06-14 19:27:33 得分 0
要在抓取结果中增加下面的内容，应该如何加入？还要连同率用图片取代
试听
window.open('disp.asp?url="&TDurl&"&singer="&singer&"&id="&MusicName&"&size="&mid(Mm3(1),36,15)&"
&gs="&mid(Mm3(2),36,15)&"&xy="&mid(Mm3(3),36,15)&"&sd="&mid(Mm3(4),36,4)&"', 'newwindow',
'height=180, width=470, top=120, left=120, toolbar=no, menubar=no,
scrollbars=no,resizable=no,location=no, status=no')
下载/保存
window.open('download.asp?url="&TDurl&"&singer="&singer&"&id="&MusicName&"&size="&mid(Mm3(1),36,1
5)&"&gs="&mid(Mm3(2),36,15)&"&xy="&mid(Mm3(3),36,15)&"&sd="&mid(Mm3(4),36,4)&"', 'newwindow',
'height=240, width=470, top=120, left=120, toolbar=no, menubar=no,
scrollbars=no,resizable=no,location=no, status=no')
歌词
gc.asp?keyword="&request("key")&"
图片
pic.asp?word="&request("key")&"
新闻
news.asp?word="&request("key")&"
和弦铃声
http://www.caishow.com/ring_body.asp?f=279&search="&request("key")&"
手机铃声
http://sms.homeway.com.cn/ring_pic/default.asp?user_id=12471&type_id=1&oo_id=2&sub_sub_id=0&keywo
rds="&request("key")&"Top
22 楼PCIBM（PCIBM）回复于 2004-06-14 19:32:23 得分 0
我上网的条件很有限，所以很少上网，谢谢了Top
23 楼skyboy0720（曲终人散）回复于 2004-06-14 19:39:49 得分 0
markTop
24 楼PCIBM（PCIBM）回复于 2004-06-14 20:00:47 得分 0
搜刮改了文件参数，这2个文件用不了，如果可以，也帮写一下，万分感谢！
disp.asp
download.aspTop
25 楼jshu（沐亲王）回复于 2004-06-14 21:06:18 得分 0
搬个凳子来瞧瞧
Top
26 楼chinalinx（林高敏）回复于 2004-06-14 21:14:07 得分 0
up
up
up
looking now!!!!!
::)Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
