📄 pr_action.asp
字号:
'// <summary>
'// yisou 收录查询
'// Url=http://www.yisou.com/search?p=
'// </summary>
Sub yisou(str,all)
call print_do("yisou")
if all="n" then
url="http://www.yisou.com/search?p=site%3A"&str
else
strext=split(str,".")
url="http://www.yisou.com/search?p="&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="约 <b>"
str_bottom=" 项 "
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
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 " "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
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>
'// 外部友情链接 收录查询
'// Url=http://www.yisou.com/searchx?source=&p=link%3Ahttp%3A%2F%2Fwww."&Str&"&lastkey=link%3Ahttp%3A%2F%2Fwww."&Str&"&pid=yisou&lang=All
'// </summary>
Sub links(str,all)
call print_do("links")
'// yisou
url="http://www.yisou.com/searchx?source=&p=link%3Ahttp%3A%2F%2Fwww."&str&"&lastkey=link%3Ahttp%3A%2F%2Fwww."&str&"&pid=yisou&lang=all"
str_1=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="约 <b>"
str_bottom=" 项 "
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
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.yisou.com 查询结果 "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
response.write str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
'// MSN
url="http://search.msn.com/results.aspx?q=linkdomain%3Awww."&str_1&"&FORM=QBRE"
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="<h5>"
str_bottom="</strong>"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
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 " search.msn.com 查询结果 约<strong>"
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))
str=replace(str,"<strong>linkdomain:www.0579.info</strong>","")
str=replace(str,"results containing","</strong>项")
response.write str
response.write " "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
'// Yahoo
url="http://cn.websearch.yahoo.com/search?p=linkdomain%3A"&str_1&"&ei=UTF-8&fl=1&vc=&vl=lang_zh-CN&vl=lang_zh-TW&x=wrt&meta=vl%3Dlang_zh-CN%26vl%3Dlang_zh-TW"
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
If IsObjInstalled("AspHTTP.Conn")=true Then
str_top="<h1>网页结果</h1><p>约<strong>"
str_bottom="</strong>项"
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")
else
if all="n" then
str_top="<h1>"
str_bottom="</strong>"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
reg.Pattern="strong>((.|\n)*?)</strong>"
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
else
str_top="<h1>"
str_bottom="</strong>"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
Set matches = Nothing
str=replace(str,str_top,"")
reg.Pattern="strong>((.|\n)*?)</strong>"
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
str = reg.Replace(str,"$1")
end if
end if
Set matches = Nothing
Set reg = Nothing
response.write "<BR>"
response.write " cn.yahoo.com 查询结果 约<strong> "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
response.write str
response.write "</strong> 项 "
response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>"
end if
end if
response.write "</body></html>"
End Sub
'// <summary>
'// 中国搜索 收录查询
'// </summary>
Sub zhongsou(str,all)
call print_do("zhongsou")
'if all="n" then
url="http://page.zhongsou.com/zspage.cgi?word=site%3A"&str&"&tw=site%3A"&str&"&lg=&webid=&jk=&sr=&dt=1&headSearch=%CB%D1+%CB%F7&word1=site%3A"&str
'else
'strext=split(str,".")
'url="http://page.zhongsou.com/zspage.cgi?word="&strext(0)"&tw=site%3A"&strext(0)"&lg=&webid=&jk=&sr=&dt=1&headSearch=%CB%D1+%CB%F7&word1=site%3A"&strex't(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="style=""padding-right:12pt""><font color=#FFFFFF>"
str_bottom=",用时"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
For Each match1 in matches
str=match1.Value
Next
Set matches = Nothing
Set reg = Nothing
str=replace(str,str_top,"")
str=replace(str,str_bottom,"")
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
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>
'// sina 收录查询
'// Url=http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey=
'// </summary>
Sub sina(str,all)
call print_do("sina")
if all="n" then
url="http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey=site%3A"&str
else
strext=split(str,".")
url="http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey="&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="共找到 <font color="
str_bottom="目前显示"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
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 " "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
str=replace(str,"目前显示","")
str=replace(str,"，","")
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>
'// sohu 收录查询
'// Url=http://search.sohu.com/websearch/websearch.do?query=
'// </summary>
Sub sohu(str,all)
call print_do("sohu")
if all="n" then
url="http://search.sohu.com/websearch/websearch.do?query="&str
else
strext=split(str,".")
url="http://search.sohu.com/websearch/websearch.do?query="&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="<small>共找到"
str_bottom="个结果"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
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 " "
if str="" or len(str)>200 then
response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
else
str=replace(str,"<small>","")
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>
'// 163 收录查询
'// Url=http://page.so.163.com/psearch.php?q=
'// </summary>
Sub do163(str,all)
call print_do("163")
str_1=str
if all="n" then
url="http://page.so.163.com/psearch.php?q=site%3A"&str
url_1="http://page.so.163.com/psearch.php?q="&str
else
strext=split(str,".")
url="http://page.so.163.com/psearch.php?q="&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="<SPAN class=black5>"
str_bottom="</span><span"
reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
Set matches = reg.execute(str)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -