<%
DimwhkDbq,whkSql,whkRs,whkCount
SetwhkConn=Server.CreateObject("ADODB.Connection")
whkDbq=Server.MapPath("SqlTaoFun.mdb")
whkConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&whkDbq
whkSql="selectbh,idfromUserInfowhereState='3'"
SetwhkRS=Server.CreateObject("ADODB.Recordset")
whkRs.openwhkSql,whkConn,3,3
%>
varrecords=[],whkCoun=0,whkFlag=0;
<%
DowhilenotwhkRs.Eof
%>
records[whkCoun]=newArray("<%=whkRs("bh")%>","<%=whkRs("id")%>");
document.write("whkCoun:"+whkCoun+"records["+whkCoun+"]:"+records[whkCoun][0]+records[whkCoun][1]+"
");
whkCoun=whkCoun+1;
<%
whkRs.MoveNext
'whkConn=whkConn+1
Loop
'Response.End()
%>
whkUrl=document.location.href;
document.write(whkUrl)
whkUrl=whkUrl.replace("http://","");
whkUrl=whkUrl.substring(0,whkUrl.indexOf("/"));
document.write("
whkUrl:"+whkUrl);
if(whkUrl.toLowerCase()!="www.taofun.cn")
{
varwhkFirstP=whkUrl.indexOf("."),whkEndP=whkUrl.lastIndexOf("."),gotoUrl;
if((whkFirstP==whkEndP)&&((whkFirstP!=-1)||(whkEndP!=-1)))
{
whkFlag=0;
window.alert("taofun.cn");
//window.location.href="http://www.taofun.cn/"
}
else
{
if(whkUrl=="localhost")
{
whkFlag=0;
window.alert("localhost");
}
else
{
varwhkUrl2=whkUrl.substring(0,whkUrl.indexOf("."));
document.write("
whkUrl2:"+whkUrl2);
if(whkUrl2.toLowerCase()=="www")
{
if(whkUrl.indexOf(".",whkFirstP+1)==whkUrl.lastIndexOf(".",whkEndP-1))
for(i=0;i
document.write("
这里是读取的bh:"+records[i][0]);
if(records[i][0]==whkUrl.substring(whkFirstP+1,whkUrl.indexOf(".",whkFirstP+1)))
{
whkFlag=1;
gotoUrl="http://www.taofun.cn/show/Shop.asp?id="+records[i][1];
window.alert("找到"+records[i][0]+"的二级域名。");
break;
}
}
else
{
whkFlag=0;
window.alert("输的太多了！");
//window.location.href="http://www.taofun.cn/";
}
}
else
{
whkFlag=0;
window.alert("开头请输www");
//window.location.href="http://www.taofun.cn/";
}
}
}
}
else
{
whkFlag=0;
window.alert("去网站首页!");
//window.location.href=whkUrl;
}
document.write("
最后结果："+gotoUrl+whkwhkwhk);
if(whkFlag==1)
{
document.write("
}
