XMLHTTP抓取远程数据的后期处理_ASP教程-查字典教程网

hehe=Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3","<html>","</html>",".*(<tdwidth=""35%""bgcolor=""#[dABCDE]{6}"">(.*)</td>)[.n]*","<fontfont-size:9pt;""color=blue>$2</font><br>")

response.Writehehe

FunctionHello(strUrl,strStart,strEnd,patrn,replStr)

Str=GetBody(strUrl)

Str=MyMid(Str,strStart,strEnd)

Str=ReplaceTest(patrn,replStr,Str)

Hello=Str

EndFunction

FunctionMyMid(Str,strstart,strend)

Ifstrstart=""Then

i=0

Else

i=InStr(Str,strstart)

EndIf

Ifstrend=""Then

j=Len(Str)

Else

j=InStr(i,Str,strend)

EndIf

MyMid=Mid(Str,i,j-i+1)

EndFunction

FunctionReplaceTest(patrn,replStr,str1)

DimregEx,match,matches

SetregEx=NewRegExp

regEx.Pattern=patrn

regEx.IgnoreCase=True

regEx.Global=True

Setmatches=regEx.Execute(str1)

ForEachmatchinmatches

ReplaceTest=ReplaceTest®Ex.Replace(Match.Value,replStr)

EndFunction

FunctionGetBody(Url)

SetobjXML=createObject("Microsoft.XMLHTTP")

WithobjXML

.Open"Get",Url,False,"",""

.SEnd

GetBody=.ResponseBody

EndWith

GetBody=BytesToBstr(GetBody,"GB2312")

SetobjXML=Nothing

EndFunction

FunctionBytesToBstr(strBody,CodeBase)

SetobjStream=Server.createObject("Adodb.Stream")

WithobjStream

.Type=1

.Mode=3

.Open

.WritestrBody

.Position=0

.Type=2

.Charset=CodeBase

BytesToBstr=.ReadText

.Close

EndWith

SetobjStream=Nothing

EndFunction

其他调用示例：

hehe=Hello("http://list.mp3.baidu.com/song/A.htm","<tablewidth=""90%""border=""0""align=""center""cellpadding=""3""cellspacing=""0""bgcolor=""#f5f5f5"">","<DIValign=center>",".*(<tdwidth=""20%""><ahref="".*.htm""target=_blank>)(.*)(</a></td>)[.n]*","<fontfont-size:9pt;""color=blue>$2</font><br>")