PR值查询代码制作
2018-09-06 11:00
复制代码 代码如下:
<%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
<!DOCTYPEHTMLPUBLIC-//W3C//DTDHTML4.01Transitional//EN
<html>
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
<title>GooglePR值查询程序</title>
</head>
<body><h3>输入网址，查询GooglePageRank值</h3>
<formname=form1method=postaction=?act=ok>
<p>输入网址
<inputtype=textname=domain>
<inputtype=submitname=Submitvalue=提交>
</p>
</form>
<%
iftrim(Request.QueryString(act))=okthen
domain=trim(Request.Form(domain))
ifdomain<>then
Response.Write(<b>&domain&</b>的GooglePageRank值为<fontcolor=red>&getPr(domain)&</font>)
endif
endif
FunctiongetPr(domain)
getContent=GetURL(
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
.OpenGET,url,false
.setRequestHeaderContent-Type,application/x-
.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>
下一篇：asp调试小结