📄 pr_action.asp

📁 网吧使用的导航web站点
💻 ASP
📖 第 1 页 / 共 3 页
字号:
				Set matches = Nothing
						reg.Pattern="<b>((.|\n)*?)</b>"
					Set matches = reg.execute(str)
						For Each match1 in matches
							str=match1.Value
						Next
					str = reg.Replace(str,"$1")				
	
		end if
		
			Set matches = Nothing
			Set reg = Nothing
			response.write "<BR>"
			response.write "&nbsp;&nbsp;www.yahoo.com.cn&nbsp;&nbsp;&nbsp;查询结果 约<strong>&nbsp;"
			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>&nbsp;项&nbsp;&nbsp;"
			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://p.zhongsou.com/p?word=site%3A"&str&"&dt=1&w=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="class=wh>找到"
			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 "&nbsp;&nbsp;"
			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 "&nbsp;&nbsp;"
			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://iask.com/s?k=site%3AURL&tag=n&title=site%3AURL
'// </summary>
Sub sina(str,all)
		call print_do("sina")
		
	if all="n" then
		url="http://iask.com/s?k=site%3A" & str & "&tag=n&title=site%3A" & str	
	else
		strext=split(str,".")
		url="http://iask.com/s?k=site%3A" & strext(0) & "&tag=n&title="&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=""f12 c6"">找到网页"
			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 "&nbsp;&nbsp;"
			if str="" or len(str)>200 then
				response.write "还没有收录， <a href="&url&" target=_blank><font color=#cc0000>请点击登陆网站</font></a>"
			else			
				response.Write "共找到约"		
				response.write str
				response.write "&nbsp;&nbsp;"
				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://www.sogou.com/sohu/sohu?query=
'// </summary>
Sub sohu(str,all)
		call print_do("sohu")
	if all="n" then
		url="http://www.sogou.com/sohu/sohu?query="&str	
	else
		strext=split(str,".")
		url="http://www.sogou.com/sohu/sohu?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="<FONT class=g13>找到"
			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,"<FONT class=g13>","")
			
			response.write "<BR>"
			response.write "&nbsp;&nbsp;"
			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 "&nbsp;&nbsp;"
			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)
				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 "&nbsp;&nbsp;"
			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 "&nbsp;&nbsp;"
			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 "&nbsp;&nbsp;"
			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 "&nbsp;&nbsp;"
			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://www.soso.com/q?sc=&ch=w.q&ty=1&kw=&proto=4&w=site%3A
'// </summary>
Sub qq(str,all)
		call print_do("qq")

	if all="n" then
		url="http://www.soso.com/q?sc=&ch=w.q&ty=1&kw=&proto=4&w=site%3A"&str	
	else
		strext=split(str,".")
		url="http://www.soso.com/q?sc=&ch=w.q&ty=1&kw=&proto=4&w="&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 id=""spanTotal"">找到相关结果"
			str_bottom="</font></td>"
			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 "&nbsp;&nbsp;"
			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,"$total$","0")			
			response.write str
			response.write "&nbsp;&nbsp;"
			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=True
			reg.IgnoreCase=true
			str_top="<!--Did you know"
			str_bottom="</span>"
			reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
			Set matches = reg.execute(str_)
			str1=""
				For Each match1 in matches					
					str1=str1&match1.Value&"***"
				Next
			Set matches = Nothing
			Set reg = Nothing

IF str1 <> "" Then
	str1 = Replace(str1,"<!--Did you know? Alexa offers this data programmatically.  Visit http://webservices.amazon.com/ for more information about the Alexa Web Information Service.-->","")
	str1 = Replace(str1,"</span>","")
	Str_11=split(str1,"<div class=""borderBottom""></div>")
	str1 = Str_11(0)
	Str_11 = split(str1,"***")
	str1_Pan = Str_11(0)
End If

		set reg=new Regexp
			reg.Multiline=True
			reg.Global=True
			reg.IgnoreCase=true
			str_top="<td class=""traffic"">"
			str_bottom="</td>"
			reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&""
			Set matches = reg.execute(str_)
			str1=""
				For Each match1 in matches					
					str1=str1&match1.Value&"***"
				Next
			Set matches = Nothing
			Set reg = Nothing

IF str1 <> "" Then
	Str_11=split(str1,"***")

response.write "<BR>"
response.write "<div align=left>&nbsp;&nbsp;"&strs&"在alexa上的排名为：第<b> "
response.write str1_Pan
response.write "</b>名.&nbsp;&nbsp;<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 Str_11(0)
response.write "</td>"
response.write "        </tr>"
response.write "        <tr> "
response.write "          <td height=25>一周排行</td>"
response.write "         <td>"
response.write Str_11(1)
response.write "</td>"
response.write "        </tr>"
response.write "        <tr> "
response.write "          <td height=25>三个月排行</td>"
response.write "         <td>"
response.write Str_11(2)
response.write "</td>"
response.write "        </tr>"
response.write "        <tr> "
response.write "          <td height=25>三个月弧度</td>"
response.write "          <td>"
response.write Str_11(3)
End If
End if
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 "&nbsp;&nbsp;"&strs&" Google PageRank "
			response.write str
			response.write "&nbsp;&nbsp;"
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -