<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<%
dim PR
dim Alexa
dim Google
dim Baidu

sql="select PR,Alexa,Google,Baidu from setting"
set rs=conn.execute (sql)
if not rs.eof then
	PR=rs("PR")
	Alexa=rs("Alexa")
	Google=rs("Google")
	Baidu=rs("Baidu")
	rs.close
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<LINK href="css.css" type=text/css rel=stylesheet>
<%
Y_MyLink=request("txt")

'第二步,判断我站链接所在网页页面的PR值
if PR>0 then
	Y_MyLink_PR=getPR(Y_MyLink)
	if Y_MyLink_PR< PR then
		Errmsg = Errmsg+"<li>对不起,我站的链接代码所在页面PR值<"&Y_MyLink_PR&">不符合我站的要求<"&PR&">。"
	end if
end if

'第三步,判断我站链接所在网页的所属域名的Alexa排名
if Alexa>0 then
	Y_MyLink_Alexa=getAlexa(Y_MyLink)
	if CDbl(Alexa)<CDbl(Y_MyLink_Alexa) then
		Errmsg = Errmsg+"<li>对不起,贵站的Alexa世界排名值<"&RW(Y_MyLink_Alexa)&">不符合我站的要求<"&Alexa&">。"
	end if
end if

Y_MyLinkArr=split(Y_MyLink,"/")
Y_MyLink_Get=Y_MyLinkArr(2)
'第四步,判断GOOGLE收录情况
if GOOGLE>0 then
	Y_MyLink_GOOGLE=getGOOGLE(Y_MyLink_Get)
	if CDbl(Y_MyLink_GOOGLE)<CDbl(GOOGLE) then
		Errmsg = Errmsg+"<li>对不起,贵站的GLLGLE的收录数量<"&Y_MyLink_GOOGLE&">不符合我站的要求<"&GOOGLE&">。"
	end if
end if

'第五步,判断BaiDu收录情况
if BaiDu>0 then
	Y_MyLink_BaiDu=getBaiDu(Y_MyLink_Get)	
	if CDbl(Y_MyLink_BaiDu)<CDbl(BaiDu) then
		Errmsg = Errmsg+"<li>对不起,贵站的BaiDu的收录数量<"&Y_MyLink_BaiDu&">不符合我站的要求<"&BaiDu&">。"
	end if
end if


if Errmsg="" then
		Errmsg = Errmsg+"<li>恭喜您,您的站点符合我站的要求,我们将很荣幸和贵站交换链接。"
end if
if Errmsg<>"" then
		Call ErrList(Errmsg)
		response.end		
end if

%>
