نسخة الكود كما يلي:
<٪@language = "vbscript" codepage = "936" ٪>
<! doctypehtmlpublic "-// w3c // dtdhtml4.01trantional // en" "http://www.w3.org/tr/html4/loose.dtd">
<html>
<head>
<metahttp-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<title> برنامج استعلام قيمة GooglePR </title>
</head>
<Body> <h3> أدخل عنوان URL واستعلام عن قيمة GooglePagerank </h3>
<formName = "form1" method = "post" Action = "؟ ACT = OK">
<p> أدخل عنوان URL
<inputType = "text" name = "domain">
<pecttype = "إرسال" name = "إرسال" value = "submit">
</p>
</form>
<٪
iftrim (request.querystring ("ACT")) = "OK" ثم
المجال = trim (request.form ("domain"))
ifdomain <> "" ثم
Response.write ("<b>" & domain & "</b> 'sgootpagerank ass as <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 Score 10 Points Rating")
getpr = regexptext (getPline ، "// s // d // s")
الوظيفية
FunctionBstr (VIN)
Dimstreturn ، I ، thischarcode ، innercode ، Hight8 ، Low8 ، NextCharcode
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
i = i+1
Endif
التالي
BSTR = streturn
الوظيفية
FunctionGeturl (url)
setRetRieval = server.createBject ("Microsoft.xmlhttp")
withretrival
. OPEN "Get" ، url ، false
.SetRequestHeader "نوع المحتوى" ، "التطبيق/X-WWW-Form-urlencoded"
.يرسل
geturl = .responseBody
endwith
setRetRieval = لا شيء
geturl = bstr (geturl)
الوظيفية
FunctionRegexptext (Strng ، RegStr)
"Dimregex ، Match ، Matches" يخلق المتغيرات.
SetRegex = NewRegexp 'يخلق تعبيرًا منتظمًا.
regex.pattern = وضع مجموعة ريجستر.
regex.ignoreCase = True 'تعيين ما إذا كان يجب أن يكون حساس الحالة.