复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http:///pr/rank.asp?domain="&domain)
getPrLine=RegExpText(getContent,"在GooglePageRank满分10分评价中获得.*(\\d).*分")
getPr=RegExpText(getPrLine,"\\s\\d\\s")
EndFunction

Functionbstr(vIn)
DimstrReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next

bstr=strReturn
EndFunction

FunctionGetURL(url)
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"GET",url,false
.setRequestHeader"Content-Type","application/x-www-form-urlencoded"
.Send
GetURL=.ResponseBody
EndWith
SetRetrieval=Nothing
GetURL=bstr(GetURL)
EndFunction

FunctionRegExpText(strng,regStr)
'DimregEx,Match,Matches'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=regStr'设置模式。
regEx.IgnoreCase=True'设置是否区分字符大小写。
regEx.Global=True'设置全局可用性。
SetMatches=regEx.Execute(strng)'执行搜索。
ForEachMatchinMatches'遍历匹配集合。
RetStr=RetStr&Match.value'&"|||"
Next
RegExpText=RetStr
setregEx=nothing
EndFunction
%>
</body>
</html>