ASP判斷來路并轉(zhuǎn)向的代碼

    <%
    url=request.ServerVariables("HTTP_REFERER")
    if url<>"" then
    host=split(url,".")(1)
    end if
    if host<>"baidu" or host<>"google" or host<>"soso" then
    %>
    <SCRIPT language=JavaScript>var STime=60;document.write("<div align=\"center\" id=\"interstitialframe\"><A onfocus=\"this.blur();\" href=\"<%=click_url.item(0).text%>\" target=_blank><IMG  src=\"images/nkidcnet.gif\" width=0 height=0 title=\"𱬵Ա\" border=0></A></div>");
    </SCRIPT>
    <script language='javascript'>window.open('<%=click_url.item(0).text%>','','left=100,top=100,width=500,height=600,resizable=Yes,scrollbars=yes');</script>
    <%end if%>