wanghr100(灰豆宝宝.net) 好厉害，进来领分！

PCIBM 2004-05-03 05:02:55
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

图片输出，把每条记录分别读取出来，麻烦了，谢谢！！
...全文
187 26 打赏 收藏 转发到动态 举报
写回复
用AI写文章
26 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinalinx 2004-06-14
  • 打赏
  • 举报
 回复

up

up

up


looking now!!!!!

::)
AVAmyZ 2004-06-14
  • 打赏
  • 举报
 回复
搬个凳子来瞧瞧
PCIBM 2004-06-14
  • 打赏
  • 举报
 回复
搜刮改了文件参数，这2个文件用不了，如果可以，也帮写一下，万分感谢！
disp.asp

download.asp
skyboy0720 2004-06-14
  • 打赏
  • 举报
 回复
mark
PCIBM 2004-06-14
  • 打赏
  • 举报
 回复
我上网的条件很有限，所以很少上网，谢谢了
PCIBM 2004-06-14
  • 打赏
  • 举报
 回复
要在抓取结果中增加下面的内容，应该如何加入？还要连同率用图片取代

试听
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")&"
nchen123 2004-06-11
  • 打赏
  • 举报
 回复
不会吧？？ 原来死 zourou 是灰豆宝宝的头头？？？
wanghr100 2004-06-11
  • 打赏
  • 举报
 回复
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>"
%>
wanghr100 2004-06-11
  • 打赏
  • 举报
 回复
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>
PCIBM 2004-06-11
  • 打赏
  • 举报
 回复
如何用xsl转换出来呢？不懂
wanghr100 2004-06-11
  • 打赏
  • 举报
 回复
这样的话,就是生成列表了.

<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>"
%>
wanghr100 2004-06-11
  • 打赏
  • 举报
 回复
这个文件就是实现这个功能的啊.
是把搜索的结果生成XML.然后,再用XSL文件来转换显示.
PCIBM 2004-06-11
  • 打赏
  • 举报
 回复

</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>
PCIBM 2004-06-11
  • 打赏
  • 举报
 回复
<?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>
PCIBM 2004-06-11
  • 打赏
  • 举报
 回复
我搜索张学友，怎么会得到下面的结果？不是页面上的列表，而是代码，郁闷！
叮咚叮咚叮叮咚 2004-06-11
  • 打赏
  • 举报
 回复
mark～～～

请各位高手讲讲这些xmlhttp,xmldoc之类的用途与用法吧
wanghr100 2004-06-11
  • 打赏
  • 举报
 回复
<?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)
%>
zorou_fatal 2004-05-04
  • 打赏
  • 举报
 回复
不错，进步很大啊。

^_^
PCIBM 2004-05-04
  • 打赏
  • 举报
 回复
http://www.csdn.net/develop/Read_Article.asp?id=27295

是不是利用这种原理？没有学过xml，看不懂:<

麻烦整理，提供个地址给我下载，谢谢
擒兽 2004-05-04
  • 打赏
  • 举报
 回复
学习
加载更多回复（6）
解放web程序员的输入验证
本程序最初是由wanghr100(灰豆宝宝.net)的checkForm基础上进行修改的，增加了很多功能,如下： 对非ie的支持 增加了内置表达式和内置提示 增加了显示方式（弹出式和页面显示式） 增加了显示一条和显示全部 进行了封装（CLASS_CHECK） 支持外接函数或表达式（应用在密码一致） 简化了调用方式，所有操作只需要[removed],然后在HTML里定义各标签验证格式 对IE增加了对键盘输入的限制（如：定义usage=’int’时，输入框只能输入数字（非IE无效） 增加了对disabled的不验证
openacc教程
openacc官方教程课件，英文版，有详细的如何使用教程。
openacc官方教程课件2
openacc官方教程课件，英文版，有详细的如何使用教程。
并行计算报告
基于GPU的复杂模型3d重力异常正演模拟ppt；并行计算；会议报告；c++amp；
cifar-10-batches-py.zip
用于神经网络训练的cifar-10数据集,国内可能无法颗学上网导致下载不到.
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章