JS加ASP二级域名转向的代码

自己做了asp的二级域名转向已经使用当中,但用到另一种方法:前台JS加ASP的转向程序却转不了,程序调试已经通过但不能转向不知道为什么请帮忙指出原因,谢谢!!!
<%
Dim whkDbq,whkSql,whkRs,whkCount
Set whkConn = Server.CreateObject("ADODB.Connection")
whkDbq = Server.MapPath("SqlTaoFun.mdb")
whkConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&whkDbq
whkSql = "select bh,id from UserInfo where State='3'"
Set whkRS = Server.CreateObject("ADODB.Recordset")
whkRs.open whkSql,whkConn,3,3
%>
<script language="javascript">
var records = [],whkCoun = 0,whkFlag = 0;
<%
Do while not whkRs.Eof
%>
records[whkCoun] = new Array("<%=whkRs("bh")%>","<%=whkRs("id")%>");
document.write("whkCoun:"+whkCoun+"    records["+whkCoun+"]:"+records[whkCoun][0]+records[whkCoun][1]+"<br>");
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("<br>whkUrl:"+whkUrl);
if (whkUrl.toLowerCase() != "www.taofun.cn")
       {
       var whkFirstP = 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
                     {

var whkUrl2 = whkUrl.substring(0,whkUrl.indexOf("."));
                     document.write("<br>whkUrl2:"+whkUrl2);
                     if (whkUrl2.toLowerCase() == "www")
                            {
                            if (whkUrl.indexOf(".",whkFirstP+1) == whkUrl.lastIndexOf(".",whkEndP-1))
                                   for(i=0;i<whkCoun;i++)
                                   {
                                          document.write("<br>这里是读取的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("<br>最后结果:"+gotoUrl+whkwhkwhk);
if (whkFlag == 1)
{
document.write("<frameset cols=\"*\"><frame frameborder=\"0\" scrolling=\"auto\" src=\""+gotoUrl+"\"><\/frameset>" );
}
</script>

(0)

相关推荐

  • JS加ASP二级域名转向的代码

    自己做了asp的二级域名转向已经使用当中,但用到另一种方法:前台JS加ASP的转向程序却转不了,程序调试已经通过但不能转向不知道为什么请帮忙指出原因,谢谢!!! <% Dim whkDbq,whkSql,whkRs,whkCount Set whkConn = Server.CreateObject("ADODB.Connection") whkDbq = Server.MapPath("SqlTaoFun.mdb") whkConn.Open"Pr

  • 二级域名转向类

    DomainClass.js /* @Class DomainClass(二级域名转向类) @author 逍遥云-http://bbs.51js.com @Version 1.0 @Date 2006-11-2 @Rights 如使用请保留此信息,谢谢 */ function DomainClass(){  //记录本身  var ōwner=this;  //域名集合  var arr=[];        //////////////////////////////////////公开属性

  • KesionCMSV4.0 个人空间二级域名转向处理程序

    复制代码 代码如下: <!--#include file="conn.asp"--> <!--#include file="KS_Cls/KS.PublicCls.asp"--> <% '============================================= 'KesionCMSV4.0 个人空间二级域名转向处理程序 '============================================= '**

  • vue.js加载新的内容(实例代码)

    vue是一种轻巧便捷的框架,那么如何进行对于数据加载的刷新呢?以下就是我对于vue.js数据加载的一点想法 源码: <div @scroll="onScroll($event)" style="height: 100%;overflow: auto;"> <ul class="shop-brand-index" v-show="sitems.length > 0" > <li v-for=&

  • three.js加载obj模型的实例代码

    three.js是一款webGL框架,由于其易用性被广泛应用.如果你要学习webGL,抛弃那些复杂的原生接口从这款框架入手是一个不错的选择.好了,下面通过一段代码给大家介绍three.js加载obj模型,具体代码如下所示: <!DOCTYPE html> <html> <head> <script type="text/javascript" src="libs/three.js"></script> &l

  • nginx配置二级域名的示例代码

    为了不让域名fangyuanxiaozhan.com闲置, 作者又买了个国内的虚拟主机(VPS)的ip为 111.230.254.173 , 用wordpress开了个博客网站, 由于vps的空间很大, 我就开了个私有网盘服务, 由于日常开发需要用到git, 但又不想公开代码, 我又开了个私有git服务 我的vps挂了三个服务, 分别是: WordPress搭建的博客服务, 运行于8000端口, 访问方式 http://fangyuanxiaozhan.com:8000 Gogs搭建的git服务

  • asp限制域名访问实现代码

    asp 设置只能指定域名可以使用此网站 代码一 我们原创 <% myIp = ",127.0.0.1,localhost,www.jb51.net," myurl= request.ServerVariables("SERVER_NAME") Response.write myurl if InStr(myIp,","&myurl&",")>0 then Response.write "域

  • PHP JS Ip地址及域名格式检测代码

    PHP IP地址格式检测函数 复制代码 代码如下: function checkIp($ip){    $ip = str_replace(" ", "", $ip);    $ip = strtolower($ip);    $ip= str_replace("http://", "", $ip);    $ip= str_replace("https://", "", $ip);  

  • asp.net用url重写URLReWriter实现任意二级域名 新

    一般用百度搜的朋友都是对这个不了解但又急需要用的,我想,再多的语言也比不过一句代码.于是我把今天帮朋友时候写的一个小例子传了上来.这个小例子的目的是实现对任意url的重写(但不包括二级域名的,有需要二级域名的也可以先了解下url重写的概念). 这个小项目的制作过程如下 1.需要对诸如http://jb51.net/viewnews/2009/3/2.html的url进行重写.将其重写为http://jb51.net/viewnews.aspx?id=2&year=2009&month=3

  • asp.net用url重写URLReWriter实现任意二级域名 高级篇

    我最近写了个小例子,大家可以先看这个,里面有小例子的完整代码下载 http://www.jb51.net/article/20906.htm 好久没有写技术文章,如果大家看不明白,就多看几篇,汗,或者,在文章的后面回复(这是最有效的办法),我会尽力帮助大家解答疑惑. 来找这篇文章的,应该都知道什么叫二级域名吧,废话就不说了.但是讨论前,先要明白一个思想问题.很多朋友一直考虑不清(我前几天也一直搞不明白)的问题是,我键入一个地址后,怎么这个url就被重写了?第一步:在浏览器键入了一个地址,比如ht

随机推荐