www.pudn.com > baxun36.rar > pr_action.asp, change:2006-04-19,size:39787b


<%Response.Buffer = false%> 
<!-- 
####################################################################### 
#  网络学院--网站信息查询工具                    
# 
#  网络学院 
# 
#  http://www.0579.info       程序每天都在更新,请访问获取最新搜索代码 
#  如果在使用中有什么问题的话,可以跟我联系 zhming1112@hotmail.com 
####################################################################### 
--> 
<title>网络学院--网站信息查询工具 -> Http://www.0579.InFo</title> 
<meta name="keywords" content="pr查询,google收录,baidu收录,msn收录,3721收录,yisou收录,sina收录,163收录,whois查询,alexa排名,yahoo收录,中国搜索"> 
<meta name="description" content="pr查询,alexa排名查询,baidu收录,google收录,msn收录等信息查询">  
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<style type="text/css"> 
<!-- 
	td,body,p { font-size: 12px; font-family: 宋体;color:#666666} 
--> 
</style> 
<body leftmargin="0" topmargin="0"> 
<%	 
	'//<summary> 
	'//是否打开 ASPHTTP 属性 1为打开 0为关闭 
	'//是否打开 ProxyIP 属性 1为打开 0为关闭 
	'//ProxyIP 通过内网运行,采用ASPHTTP组件可以通过代理采集到数据,可以把注释去掉,设置正确的IP+端口就可 
	'//</summary> 
	AspHttpOpen=0 
	ProxyIP=0 
	 
	 
	'session.Timeout = 3000 
	Server.ScriptTimeOut = 360 
	 
	'//设置计数器 
	startime=timer() 
 
	siteinfo=trim(request("site")) 
	sitename=trim(request("sitename")) 
 
	all=trim(request("all")) 
	if all="" then all="n" 
	 
	if siteinfo="" then 
		call Error(1) 
	elseif sitename="" then 
		call Error(2) 
	end if 
select  case siteinfo 
		case "google" 
			google sitename,all 
		case "baidu" 
			baidu sitename,all 
		case "msn" 
			msn sitename,all 
		case "yahoo" 
			yahoo sitename,all 
		case "zhongsou" 
			zhongsou sitename,all 
		case "sina" 
			sina sitename,all 
		case "links" 
			links sitename,all 
		case "sohu" 
			sohu sitename,all 
		case "163" 
			do163 sitename,all 
		case "qq" 
			qq sitename,all 
		case "alexa" 
			call alexa(sitename) 
		case "whois" 
			call whois(sitename) 
		case "uptimebot" 
			call uptimebot(sitename) 
		case "GoogleRank" 
			call GoogleRank(sitename) 
		case "key" 
			call keys(sitename) 
		case else		 
			call Error(3) 
end select 
%> 
Time:<%=fix((timer()-startime)*1000)%>ms 
<% 
 
 
'// <summary> 
'// 错误显示函数,暂定四个预错误 
'// </summary> 
Sub Error(str) 
 
	select  case str 
			case 1 
				response.write "<BR>  搜索引擎为空,请联系<a href=mailto:zhming1112@hotmail.com>zhming1112@hotmail.com</a>" 
			case 2 
				response.write "<BR>  站点名字为空,请联系<a href=mailto:zhming1112@hotmail.com>zhming1112@hotmail.com</a>" 
			case 3 
				response.write "<BR>  你输入的搜索引擎本程序不支持,请联系<a href=mailto:zhming1112@hotmail.com>zhming1112@hotmail.com</a></body></html>" 
			case 4 
				response.write "<BR>  未知错误--抓取不到数据 请<font color=blue><a href=javascript:location.reload();>刷新</a></font>重试</body></html>" 
	end select 
	response.end 
End Sub 
 
'=============================处理文件==================================== 
 
'// <summary> 
'// GooGle 收录查询 
'// Url=http://www.GooGle.com/search?hl=zh-CN&q= 
'// </summary> 
Sub google(str,all) 
 
	call print_do("google") 
 
	if all="n" then 
		url="http://www.google.com/search?hl=zh-CN&q=site%3A"&str 
	else 
		strext=split(str,".") 
		url="http://www.google.com/search?hl=zh-CN&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 
				 
			If IsObjInstalled("AspHTTP.Conn")=true Then 
					str_top="<font size=-1 color=>" 
					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 
			else 
				if all="n" then 
					str_top="nowrap><font size=-1 color=>" 
					str_bottom="</font>" 
 
					reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&"" 
					Set matches = reg.execute(str) 
						For Each match1 in matches 
							str=match1.Value 
						Next 
						str=replace(str,str_top,"") 
						str=replace(str,str_bottom,"") 
						reg.Pattern="\?<b>((.|\n)*?)</b>" 
					Set matches = reg.execute(str) 
						For Each match1 in matches 
							str=match1.Value 
						Next 
						str = reg.Replace(str,"$1") 
						 
				else 
						str_top="nowrap><font size=-1 color=>" 
						str_bottom="</b>" 
 
					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="<b>((.|\n)*?)</b>" 
					Set matches = reg.execute(str) 
						For Each match1 in matches 
							str=match1.Value 
						Next 
				end if 
				Set matches = Nothing			 
				Set reg = Nothing 
			end if 
			 
			response.write "<BR>" 
			response.write "  在Google 共找到 " 
			 
			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> 
'// baidu 收录查询 
'// Url=http://www.baidu.com/s?wd= 
'// </summary> 
Sub baidu(str,all) 
 
	call print_do("baidu") 
 
	if all="n" then 
		url="http://www.baidu.com/s?wd=site%3A"&str&"&cl=3" 
	else 
		strext=split(str,".") 
		url="http://www.baidu.com/s?wd="&strext(0)&"&cl=3" 
	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="<td align=""right"" nowrap>" 
			str_bottom="</td>" 
			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> 
'// msn 收录查询 
'// Url=http://search.msn.com/results.aspx?FORM=PERE&q= 
'// </summary> 
Sub msn(str,all) 
 
	call print_do("msn")		 
	if all="n" then 
		url="http://search.msn.com/results.aspx?FORM=PERE&q=site%3A"&str 
	else 
		strext=split(str,".") 
		url="http://search.msn.com/results.aspx?FORM=PERE&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="<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 "  " 
			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> 
'// yahoo 收录查询 
'// Url=http://www.yahoo.com.cn/ 
'// </summary> 
Sub yahoo(str,all) 
 
	call print_do("yahoo")			 
	if all="n" then 
		url="http://www.yahoo.com.cn/search?lp=site%3A" & str & "&fl=1&meta=vl%3Dlang_zh-CN%26vl%3Dlang_zh-TW&pid=&ei=UTF-8&fr=fp-tab-web-ycn&source=ysearch_www_result_topsearch&source=ysearch_www_result_topsearch&p=" & str 
	else 
		strext=split(str,".") 
		url="http://www.yahoo.com.cn/search?lp=site%3A" & strext(0) & "&fl=1&meta=vl%3Dlang_zh-CN%26vl%3Dlang_zh-TW&pid=&ei=UTF-8&fr=fp-tab-web-ycn&source=ysearch_www_result_topsearch&source=ysearch_www_result_topsearch&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 
			 
		If IsObjInstalled("AspHTTP.Conn")=true Then 
		 
				str_top="<div id=""rtr"">" 
				str_bottom="</b>" 
				 
				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,"") 
				'str=replace(str,str_bottom,"")	 
	 
		else 
				str_top="<div id=""rtr"">" 
				str_bottom="</b>" 
				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_top="<b>" 
				str_bottom="</b>" 
				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,"") 
				str=replace(str,str_bottom,"") 
		end if 
		 
			Set matches = Nothing 
			Set reg = Nothing 
			response.write "<BR>" 
			response.write "  搜索Yahoo中文网页,共找到" 
			if str="" 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") 
 
		str_1=str 
 
	 
 
	'// 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." & str_1 & "</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://www.yahoo.com.cn/search?ei=UTF-8&fr=fp-tab-web-ycn&p=link%3Ahttp%3A%2F%2Fwww."&str_1&"&meta=vl%3Dlang_zh-CN%26vl%3Dlang_zh-TW&pid=ysearch&source=ysearch_www_hp_button" 
 
	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="<div id=""rtr"">" 
				str_bottom="</b>" 
				 
				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 
				str_top="<div id=""rtr"">" 
				str_bottom="</b>" 
				reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&"" 
				Set matches = reg.execute(str) 
					For Each match1 in matches 
						str=match1.Value 
					Next 
				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 "  www.yahoo.com.cn   查询结果 约<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://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 "  " 
			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 "  " 
				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 "  " 
			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) 
				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://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 "  " 
			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 "  " 
			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>  "&strs&"在alexa上的排名为:第<b> " 
response.write str1_Pan 
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 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 "  "&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") 
		 
		url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&str1(0)&"&"&domain&"=yes" 
 
	'我晕.万网不支持 asphttp  
	'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="<!-- start -->" 
			str_bottom="<!-- end -->" 
			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 "<table width=95% border=0 align=center cellpadding=0 cellspacing=0><tr><td><BR>" 
			response.write str 
			response.write "</td></tr></table>  " 
			response.write "<a href="&url&" target=_blank><font color=#cc0000>点击查看详细信息</font></a>" 
	end if 
	response.write "</body></html>" 
	 
End Sub 
 
 
'// <summary> 
'// 百度GG关键词排行 
'// Url="http://www.yourdomain.com/" 
'// Url="http://www.baidu.com/s?lm=0&si=&rn=100&ie=gb2312&ct=0&wd=关键词&pn=10&cl=3" 百度 
'// Url="http://www.google.com/search?hl=zh-CN&inlang=zh-CN&ie=GB2312&oe=GB2312&newwindow=1&q="&arrKey(i)&"" Google 
'// </summary> 
Sub keys(str) 
		call print_do("key") 
 
 
		str_=str 
		url="http://www."&str 
 
	If IsObjInstalled("AspHTTP.Conn")=true Then 
		str= getaspHTTPPage(url) 
	else 
		str= getHTTPPage(url) 
	End if 
 
	if str="" then 
		Call Error(4) 
	else 
		'//得到关键词 网站必需 放置  <meta name="keywords" content="关键词1,关键词2"> 
		set reg=new Regexp 
			reg.Multiline=True 
			reg.Global=False 
			reg.IgnoreCase=true 
			str_top="<meta name=""keywords"" content=""" 
			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 
			'//得到关键词之后 
			'//如果是禁止访问的,表示是地方网站,如某个市的地方电影站,禁止我这台服务器访问的话,就显示错误 
			'//下载之后,放在本市的服务器上就可以了。 
			if instr(str,"HTTP 错误 403.6")>0 then 
				response.write "<BR><ul><li>HTTP 错误 403.6 - 禁止访问:客户端的 IP 地址被拒绝</li></ul>" 
				response.write "</body></html>" 
				response.end() 
			end if 
			'//如果域名已经有了,但是没有放置具体的页面,提示错误 
			if instr(str,"Directory Listing Denied")>0 then 
				response.write "<BR><ul><li>Directory Listing Denied 没有选择默认页</li></ul>" 
				response.write "</body></html>" 
				response.end() 
			end if 
			'//需增加 [以下功能] 
			'// * 如果没有这个域名	 
			'// * 如果页面没有找到 404错误 
 
 
			'//如果得不到关键词,则提示错误 
			if len(str)<3 then 
				Response.write "<BR>    你的网站关键词放置有误,下面是相关提示<ul><li>请不要放在 JS包函文件里,这样对搜索非常不利<li>属性之间用双引号隔开<li>关键词之间用 , 逗号分开,注意用英文符号<li>下面为正确语法:<meta name=""keywords"" content=""关键词1,关键词2""> </ul>" 
				response.write "</body></html>" 
				response.end() 
			end if 
			 
			'//输出关键词,提示 百度跟GG的链接,增加锚点,使快速达到所去的地方 
			response.write "您的网站(www."&str_&")关键词为:<BR><font color=blue>"&str&"</font><BR><a href=#baidu>百度</a> <a href=#GG>Google</a><BR>" 
 
			'// 去除 、,\ 等不规范符号 
			'str=replace(replace(replace(str,"、",","),",",","),"\",",") 
			str=replace(replace(replace(str,"、",","),",",",")," ","") 
			'//得到关键词数组,得到关键词数量 
			arrKey=split(str,",") 
			num=ubound(arrKey) 
			str="" 
 
			'//得到正确的关键词字符串 
			for i=0 to num 
				str=str&"||"&arrKey(i) 
			next 
			 
			'//百度收录开始 
			'//输出锚点 baidu 
			Response.write "<a name=baidu></a>" 
 
 
			for i=0 to num 
				'//每个关键词查询 
				Url="http://www.baidu.com/s?lm=0&si=&rn=100&ie=gb2312&ct=0&wd="&arrKey(i)&"&pn=0&cl=3" 
				str_2=getinfo_baidu(Url,str_,arrKey(i)) 
				 
				'//没有被收录 
				if str_2="" then 
					response.write "<font color=red>您网站所放的关键词:  <a href=http://www.baidu.com/s?lm=0&si=&rn=100&ie=gb2312&ct=0&wd="&arrKey(i)&"&pn=0&cl=3 target=_blank><font color=blue>"&arrKey(i)&"</font></a>  在百度搜索前五页都没有找到,看来是失败的!</font><BR>" 
				else 
				'//收录则显示 出现的位置 
					str_2=left(str_2,len(str_2)-2) 
					str_2=replace(str_2,"||","<li>") 
					response.write "<ul>"&str_2&"</ul>" 
				end if 
			next 
			'//百度收录结束 
			Response.write "<BR>------------------------------Baidu End Google Start------------------------------<BR><BR>" 
			'//GG收录开始 
			'//输出锚点 GG 
			Response.write "<a name=GG></a>" 
				Str_2="" 
				for i=0 to num 
					url = "http://www.google.com/search?hl=zh-CN&inlang=zh-CN&ie=GB2312&oe=GB2312&newwindow=1&start=0&q="&arrKey(i)&"" 
					Str_2 = getinfo_GG(Url,str_,arrKey(i)) 
					 
					'//没有被收录 
					if str_2="" then 
						response.write "<font color=red>您网站所放的关键词:  <a href='http://www.google.com/search?hl=zh-CN&inlang=zh-CN&ie=GB2312&oe=GB2312&newwindow=1&q="&arrKey(i)&"' target=_blank><font color=blue>"&arrKey(i)&"</font></a>  在Google搜索前五页都没有找到,看来是失败的!</font><BR>" 
					else 
					'//收录则显示 出现的位置 
						str_2=left(str_2,len(str_2)-2) 
						str_2=replace(str_2,"||","<li>") 
						response.write "<ul>"&str_2&"</ul>" 
					end if 
				next 
 
	end if 
	response.write "</body></html>" 
	 
End Sub 
 
'// <summary> 
'// 去百度搜索关键词 
'// </summary> 
function getinfo_baidu(url,siteurl,sk) 
 
	If IsObjInstalled("AspHTTP.Conn")=true Then 
		str= getaspHTTPPage(url) 
	else 
		str= getHTTPPage(url) 
	End if 
 
 
	'//如果所查域名出现在查询结果时 
	if instr(str,siteurl)>0 then 
 
		set reg=new Regexp 
			reg.Multiline=True 
			reg.Global=True 
			reg.IgnoreCase=true 
			str_top="<p class=p1>" 
			str_bottom="上的更多结果" 
			reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&"" 
			Set matches = reg.execute(str) 
			str1="" 
				For Each match1 in matches 
					str1=str1&"||"&match1.Value 
				Next 
 
				'//得到 百度 搜索结果的 字符串,使用正则的好处 
				arrStr=split(str1,"||") 
 
				showlog="在百度搜索到关键词为 <a href=http://www.baidu.com/s?lm=0&si=&rn=100&ie=gb2312&ct=0&wd="&sk&"&pn=0&cl=3 target=_blank>["&sk&"]</a>,共找到 50条记录的"&ubound(arrStr)&"条记录||" 
 
				'// 把出现该网址的 记录下来 
				for y=0 to ubound(arrStr) 
					if instr(arrStr(y),siteurl)>0 then 
						showlog=showlog&"在第"&y&"条找到你的记录||" 
					end if 
				next 
							 
 
			Set matches = Nothing 
			Set reg = Nothing 
			 
		getinfo_baidu=showlog 
	else 
		'//如果没有出现,则空返回 
		exit function 
	end if 
end function 
 
'// <summary> 
'// 去GooGle搜索关键词 
'// </summary> 
function getinfo_GG(url,siteurl,sk) 
 
	If IsObjInstalled("AspHTTP.Conn")=true Then 
		str= getaspHTTPPage(url) 
	else 
		str= getHTTPPage(url) 
	End if 
	'//如果有第二页 
	If instr(str,"&start=10")>0 Then	'A 
		 
		If IsObjInstalled("AspHTTP.Conn")=true Then 
			str=str&getaspHTTPPage(Replace(url,"&start=0","&start=10")) 
		Else 
			str=str&getHTTPPage(Replace(url,"&start=0","&start=10")) 
		End if 
			'//如果有第三页 
				If instr(str,"&start=20")>0 Then	'B 
		 
					If IsObjInstalled("AspHTTP.Conn")=true Then 
						str=str&getaspHTTPPage(Replace(url,"&start=10","&start=20")) 
					Else 
						str=str&getHTTPPage(Replace(url,"&start=10","&start=20")) 
					End if 
						'//如果有第四页 
							If instr(str,"&start=30")>0 Then	'C 
					 
								If IsObjInstalled("AspHTTP.Conn")=true Then 
									str=str&getaspHTTPPage(Replace(url,"&start=20","&start=30")) 
								Else 
									str=str&getHTTPPage(Replace(url,"&start=20","&start=30")) 
								End if 
									'//如果有第五页 
									If instr(str,"&start=30")>0 Then	'D 
							 
										If IsObjInstalled("AspHTTP.Conn")=true Then 
											str=str&getaspHTTPPage(Replace(url,"&start=20","&start=30")) 
										Else 
											str=str&getHTTPPage(Replace(url,"&start=20","&start=30")) 
										End if 
										 
									End if	'D 
								 
							End if	'C 
					 
				End IF	'B 
		 
	End If	'A 
		 
 
	if instr(str,siteurl)>0 then 
 
		set reg=new Regexp 
			reg.Multiline=True 
			reg.Global=True 
			reg.IgnoreCase=true 
			str_top="<p class=g>" 
			str_bottom="类似网页" 
			reg.Pattern=""&str_top&"((.|\n)*?)"&str_bottom&"" 
			Set matches = reg.execute(str) 
			str1="" 
				For Each match1 in matches 
					str1=str1&"||"&match1.Value 
				Next 
				arrStr=split(str1,"||") 
				showlog="在 Google 搜索到关键词为 ["&sk&"],共找到 100条记录的"&ubound(arrStr)&"条记录||" 
				for y=0 to ubound(arrStr) 
					if instr(arrStr(y),siteurl)>0 then 
						showlog=showlog&"在第"&y+1&"条找到你的记录||" 
					end if 
				next 
							 
 
			Set matches = Nothing 
			Set reg = Nothing 
 
		getinfo_GG=showlog 
	else 
		exit function 
	end if 
end function 
 
 
'================================================================== 
 
'// <summary> 
'// 采用 显示已经输出完毕 组件采集数据 
'// </summary> 
 
	Sub print_do(str) 
		response.write "<script>" 
		response.write "function HiddenLoad()" 
		response.write "{" 
		response.write "parent.do"&str&".style.display='none';" 
		response.write "}" 
		response.write "</script>" 
		response.write "<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 bgcolor=#f2f2f2 onload=HiddenLoad()>" 
	end sub 
 
 
 
 
'// <summary> 
'// 采用 Microsoft.XMLHTTP 组件采集数据 
'// </summary> 
Function getHTTPPage(url)  
		on error resume next  
		dim http  
		 set http=Server.createobject("Microsoft.XMLHTTP")  
		Http.open "GET",url,false  
		Http.send()  
		if Http.readystate<>4 then 
			exit function  
		end if  
		getHTTPPage=bytes2BSTR(Http.responseBody)  
		set http=nothing 
		if err.number<>0 then err.Clear   
End function 
 
'// <summary> 
'// 采用 ADODB.Stream 处理采集到的数据,把二进制的文件转成文本字符 
'// </summary> 
Function Bytes2bStr(vin) 
  Dim BytesStream,StringReturn 
  Set BytesStream = Server.CreateObject("ADODB.Stream") 
	  BytesStream.Type = 2 
	  BytesStream.Open 
	  BytesStream.WriteText vin 
	  BytesStream.Position = 0 
	  BytesStream.Charset = "GB2312" 
	  BytesStream.Position = 2 
	  StringReturn =BytesStream.ReadText 
	  BytesStream.close 
  Set BytesStream = Nothing 
	  Bytes2bStr = StringReturn 
End Function 
 
 
'// <summary> 
'// 采用 AspHTTP.Conn 组件采集数据 
'// </summary> 
Function getaspHTTPPage(url) 
    if url="" then 
		exit function  
    end if  
    Set HttpObj = Server.CreateObject("AspHTTP.Conn") 
	 
	'设置代理服务器,通过代理上网的用户需要设置此选项 
	If ProxyIP=1 Then 
		HttpObj.Proxy="192.168.5.254:808" 
	end if 
	 
	HTTPObj.TimeOut = 45 
	HttpObj.Url = url 
	HttpObj.RequestMethod = "GET" 
	getaspHTTPPage = HttpObj.GetURL 
    set HttpObj=nothing 
End function 
 
 
'//<summary> 
'//检查组件,采用xmlhttp抓取网页还是AspHTTP 
'//</summary> 
Function IsObjInstalled(strClassString) 
	 On Error Resume Next 
	 IsObjInstalled = False 
	 Err = 0 
	 Dim xTestObj 
	 Set xTestObj = Server.CreateObject(strClassString) 
 
	 If 0 = Err Then 
		If AspHttpOpen=1 Then 
			IsObjInstalled = True 
			'Response.write "当前组件 ASPHTTP" 
		Else 
			IsObjInstalled = False 
			'Response.write "当前组件 XMLHTTP" 
		End If 
	 Else 
			IsObjInstalled = False 
			'Response.write "当前组件 XMLHTTP" 
	 End If 
 
	 Set xTestObj = Nothing 
	 Err = 0 
	  
End Function 
 
%>