📄 pr_action.asp
字号:
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " "
if str="" or len(str)>200 or instr(str,"psearch_err")>0 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
str=trim(str)
str=str&"页"
response.write "查询 site:"&str_1&" 共查到:"&str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
'//去除site重新查询
If IsObjInstalled("AspHTTP.Conn")=true Then
str= getaspHTTPPage(url_1)
else
str= getHTTPPage(url_1)
End if
if str="" then
Call Error(4)
else
set reg=new Regexp
reg.Multiline=True
reg.Global=False
reg.IgnoreCase=true
str_top="<SPAN class=black5>"
str_bottom="</span><span"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " "
if str="" or len(str)>200 or instr(str,"psearch_err")>0 then
response.write "还没有收录， <a href="&url_1&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
str=trim(str)
str=str&"页"
response.write "查询 "&str_1&" 共查到:"&str
response.write " "
response.write "<a href="&url_1&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
response.write "</body></html>"
End Sub
'// <summary>
'// qq 收录查询
'// Url=http://so.qq.com/cgi-bin/search?word=
'// </summary>
Sub qq(str,all)
call print_do("qq")
if all="n" then
url="http://so.qq.com/cgi-bin/search?word="&str
else
strext=split(str,".")
url="http://so.qq.com/cgi-bin/search?word="&strext(0)
end if
If IsObjInstalled("AspHTTP.Conn")=true Then
str= getaspHTTPPage(url)
else
str= getHTTPPage(url)
End if
if str="" then
Call Error(4)
else
set reg=new Regexp
reg.Multiline=True
reg.Global=False
reg.IgnoreCase=true
str_top="相关网页"
str_bottom="用时"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
str=replace(str,"<h5>","")
strp=split(str,"of")
str=strp(ubound(strp))
response.write str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
response.write "</body></html>"
End Sub
'// <summary>
'// alexa
'// Url=http://www.alexa.com/data/details/traffic_details?q=&Url=
'// </summary>
Sub alexa(str)
call print_do("alexa")
url="http://www.alexa.com/data/details/traffic_details?q=&url="&str
strs=str
If IsObjInstalled("AspHTTP.Conn")=true Then
str= getaspHTTPPage(url)
else
str= getHTTPPage(url)
End if
if str="" then
Call Error(4)
else
str_=str
str1=""
set reg=new Regexp
reg.Multiline=True
reg.Global=False
reg.IgnoreCase=true
str_top="<span msg="
str_bottom="</span>"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str_)
str1=""
For Each match1 in matches
str1=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
'//先定位到所需要的目录
set reg=new Regexp
reg.Multiline=True
reg.Global=True
reg.IgnoreCase=true
str_top="http://pages.alexa.com/prod_serv/traffic_learn_more.html#traffic_rank"
str_bottom="http://pages.alexa.com/prod_serv/traffic_learn_more.html#reach"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str1_1=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
if instr(str1_1,"up_arrow.gif")>0 then
img="<img alt=down border=0 height=11 width=13 src=http://client.alexa.com/common/images/up_arrow.gif> "
elseif instr(str1_1,"down_arrow.gif")>0 then
img="<img alt=down border=0 height=11 width=13 src=http://client.alexa.com/common/images/down_arrow.gif> "
else
img=""
end if
If str1_1<>"" then
'//得到需要的数据再处理
set reg=new Regexp
reg.Multiline=True
reg.Global=True
reg.IgnoreCase=true
str_top="<span msg="
str_bottom="</span>"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str1_1)
if Matches.Count<3 then
str1="||没有数据||0||0||0||0"
else
For Each match1 in matches
str1=str1&"||"&match1.Value
Next
end if
str12=split(str1,"||")
str123=ubound(str12)
Set matches = Nothing
Set reg = Nothing
if str="" then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
end if
else
Call Error(4)
end if
end if
response.write "<BR>"
response.write "<div align=left> "&strs&"在alexa上的排名为：第<b> "
response.write str12(0)
response.write "</b>名. <a "
response.write "href='http://www.alexa.com/data/details/traffic_details?q=&url="&strs&"'"
response.write "target=_blank>"
response.write "<font color=red><u>点击察看详细内容</u></font></a><br>"
response.write "<table width=100% border=0 align=center cellpadding=3 cellspacing=1>"
response.write " <tr>"
response.write " <td width=380><div align=center><img "
response.write "src=http://traffic.alexa.com/graph?w=379&h=216&r=6m&y=r&u="&strs&"/&u=></div></td>"
response.write "<td width=358><table width=100% border=0 cellpadding=3 cellspacing=0>"
response.write " <tr> "
response.write " <td width=39% height=25>今日排行</td>"
response.write " <td width=61% >"
response.write str12(1)
response.write "</td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td height=25>一周排行</td>"
response.write " <td>"
response.write str12(2)
response.write "</td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td height=25>三个月排行</td>"
response.write " <td>"
response.write str12(3)
response.write "</td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td height=25>三个月弧度</td>"
response.write " <td>"
response.write img
if str123<4 then
response.write "- - -"
else
response.write str12(4)
end if
response.write "</td>"
response.write " </tr>"
response.write " </table></td>"
response.write " </tr>"
response.write "</table></div>"
response.write " <script type='text/javascript' language='javascript'>"
response.write " function fu_onload() {"
response.write " var oDoms = document.getElementsByTagName('SPAN');"
response.write " for (var i = 0; i < oDoms.length; i++) {"
response.write " var oSpan = oDoms[i];"
response.write " if (oSpan.getAttribute('msg')) {"
response.write " oSpan.innerHTML = unfu(oSpan.getAttribute('msg'));"
response.write " oSpan.setAttribute('msg', '');"
response.write " }"
response.write " }"
response.write "}"
response.write "function unfu(sMsg) {"
response.write " var d = 'd61!'; /* */d+='eon';d+='#52ax3';var r = '';var rd ='f3n97t';d+=rd;"
response.write " var k = new String(d);"
response.write " while (k.length < sMsg.length/2) { k+=d; }"
response.write " msg = 'old: ' + sMsg + '\n';"
response.write " for (var i = 0; i< sMsg.length; i+=2 ) {"
response.write " var ref = sMsg.substring(i, i+2);"
response.write " var cVal = parseInt('0x' + ref);"
response.write " cVal = cVal - parseInt(k.charCodeAt((i/2)));"
response.write " "
response.write " r+= String.fromCharCode(cVal);"
response.write " }"
response.write " return r;"
response.write "}"
response.write " fu_onload();"
response.write " </script> "
response.write " "
response.write "</body></html>"
End Sub
'// <summary>
'// GooGleRank PR查询 没有 WWW 查询
'// Url=http://rankwhere.com/GooGle-page-rank.php?Url=
'// </summary>
Sub GoogleRank(str)
call print_do("GoogleRank")
strs=str
url="http://rankwhere.com/google-page-rank.php?url="&str
If IsObjInstalled("AspHTTP.Conn")=true Then
str= getaspHTTPPage(url)
else
str= getHTTPPage(url)
End if
if str="" then
Call Error(4)
else
set reg=new Regexp
reg.Multiline=True
reg.Global=False
reg.IgnoreCase=true
str_top="has Google PageRank"
str_bottom="Google PR is different"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
str="<b>"&str
Set matches = Nothing
str=replace(str,str_top,"")
reg.Pattern="<b>((.|\n)*?)</b>"
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " "&strs&" Google PageRank "
response.write str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a><BR>"
end if
call GoogleRanks(strs)
End Sub
'// <summary>
'// GooGleRanks PR查询 加上 WWW 查询
'// Url=http://rankwhere.com/GooGle-page-rank.php?Url=
'// </summary>
Sub GoogleRanks(str)
strs=str
url="http://rankwhere.com/google-page-rank.php?url=www."&str
If IsObjInstalled("AspHTTP.Conn")=true Then
str= getaspHTTPPage(url)
else
str= getHTTPPage(url)
End if
if str="" then
Call Error(4)
else
set reg=new Regexp
reg.Multiline=True
reg.Global=False
reg.IgnoreCase=true
str_top="has Google PageRank"
str_bottom="Google PR is different"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
str="<b>"&str
Set matches = Nothing
str=replace(str,str_top,"")
reg.Pattern="<b>((.|\n)*?)</b>"
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " www."&strs&" Google PageRank "
response.write str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
response.write "</body></html>"
End Sub
'// <summary>
'// 域名注册信息查询
'// Url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&Str1(0)&"&"&domain&"=yes"
'// </summary>
Sub whois(str)
str1=split(str,".")
domain=str1(ubound(str1))
if instr(str,".com.cn") then
domain="comcn"
elseif instr(str,".net.cn") then
domain="netcn"
elseif instr(str,".org.cn") then
domain="orgcn"
elseif instr(str,".gov.cn") then
domain="govcn"
end if
call print_do("whois")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -