⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pr_action.asp

📁 本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	else

	
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			
		If IsObjInstalled("AspHTTP.Conn")=1 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 "&nbsp;&nbsp;cn.yahoo.com&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://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")=1 Then
		str= getaspHTTPPage(url)
	else
		str= getHTTPPage(url)
	End if
	if str="" then
		Call Error(4)
	else
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			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 "&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://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")=1 Then
		str= getaspHTTPPage(url)
	else
		str= getHTTPPage(url)
	End if
	if str="" then
		Call Error(4)
	else
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			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 "&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,"目前显示","")
			str=replace(str,"，","")
			
			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://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")=1 Then
		str= getaspHTTPPage(url)
	else
		str= getHTTPPage(url)
	End if
	if str="" then
		Call Error(4)
	else
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			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 "&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")=1 Then
		str= getaspHTTPPage(url)
	else
		str= getHTTPPage(url)
	End if
	if str="" then
		Call Error(4)
	else
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			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")=1 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=1
			reg.Global=0
			reg.IgnoreCase=1
			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://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")=1 Then
		str= getaspHTTPPage(url)
	else
		str= getHTTPPage(url)
	End if
	if str="" then
		Call Error(4)
	else
		set reg=new Regexp
			reg.Multiline=1
			reg.Global=0
			reg.IgnoreCase=1
			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 "&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))
			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")=1 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=1
			reg.Global=0
			reg.IgnoreCase=1
			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=1
			reg.Global=1
			reg.IgnoreCase=1
			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>&nbsp;"
				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>&nbsp;"
				else
					img=""
				end if

	If str1_1<>"" then


	'//得到需要的数据再处理

		set reg=new Regexp
			reg.Multiline=1
			reg.Global=1
			reg.IgnoreCase=1
			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>&nbsp;&nbsp;"&strs&"在alexa上的排名为：第<b> "
response.write str12(0)
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 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 "		"
123

⌨️ 快捷键说明

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