코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "936"%>
<! doctypehtmlpublic "-// w3c // dtdhtml4.01transitional // en" "http://www.w3.org/tr/html4/loose.dtd">
<html>
<헤드>
<metahttp-equiv = "content-type"content = "text/html; charset = gb2312">
<title> GooglePR Value Query 프로그램 </title>
</head>
<body> <h3> URL을 입력하고 GooglePageRank 값을 쿼리하십시오 </h3>
<formname = "form1"method = "post"action = "? act = ok">
<p> URL을 입력하십시오
<inputtype = "text"name = "domain">
<inputtype = "제출"이름 = "제출"value = "제출">
</p>
</form>
<%
iftrim (request.querystring ( "act")) = "Ok"
domain = trim (request.form ( "domain"))
Domain <> ""라는 경우
response.write ( "<b>"& domain & "</b>의 GooglePageRank 값은 <fontcolor = red>"& getpr (domain) & "</font>")
endif
endif
functiongetpr (도메인)
getContent = geturl ( "http://so.5eo.com/pr/rank.asp?domain="& domain)
getPrline = regexptext (getContent, "get.* (// d).* GooglePageRank 전체 점수 10 점 등급의 포인트")
getpr = regexptext (getprline, "// s // d // s")
최종 기능 장애
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)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
다음
bstr = strreturn
최종 기능 장애
functiongetUrl (url)
setretRieval = server.createObject ( "microsoft.xmlhttp")
retrieval
. "get", URL, False를 열었습니다
.SetRequestHeader "Content-Type", "Application/X-WWW-Form-urlencoded"
.보내다
geturl = .ResponseBody
끝
setretrieval = 아무것도
geturl = bstr (geturl)
최종 기능 장애
functionregexptext (strng, regstr)
'Dimregex, Match, Matches'는 변수를 만듭니다.
setRegex = newRegexp '는 정규 표현식을 만듭니다.
regex.pattern = regstr 'set 모드.
regex.ignorecase = true '사례에 민감한 지 여부를 설정합니다.