Кода -копия выглядит следующим образом:
<%@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> Программа value value googlepr </title>
</head>
<body> <h3> введите URL и запросите значение GooglePagerank </h3>
<formname = "form1" method = "post" action = "? act = ok">
<p> Введите URL
<inputType = "text" name = "domain">
<inputType = "Отправить" name = "отправить" value = "отправить">
</p>
</form>
<%
iftrim (request.querystring ("act")) = "ok" then
domain = trim (request.form ("домен")))
Если домен <> "" Тогда
Response.write ("<b>" & domain & "</b> googlepagerank - <fontcolor = red>" & getpr (domain) & "</font>")
эндиф
эндиф
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, ThisChode, InnerCode, Hight8, Low8, NextChode
strreturn = ""
Fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
Эндиф
Следующий
bstr = strreturn
Конечная функция
Functiongeturl (url)
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Безрельтивел
.Open "Get", URL, ложь
.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 'Режим установки.
regex.ignorecase = true 'установить, чтобы быть чувствительным к случаю.