If InStr(strRet,":") Then
R = Split(strRet,":")
GGPR = R(2)
Else
GGPR = 0
End If
Rw "返回结果: " & strRet & "<br />"
Rw " PR值: " & GGPR & "<br />"
End Function
iURL = Request("iURL")
If iURL="" Then iURL = "http://www.knowsky.com"
Call GGPR(iURL)
%>
<html>
<head></head>
<title>Google Pagerank 查询(pr查询小偷)</title>
<body>
<h1>输入完整页面地址查选pagerank(页面pr值):</h1>
<form action="" method="post">
URL <input type="text" name="iURL" style="width:200px" /><input type="submit" value="pr查询" />
</form>
</body>
<html>
本文章更多内容:<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 |