首页 »Javascript教程 » 二级域名转向:JS加ASP 2级域名转向的代码 »正文二级域名转向:JS加ASP 2级域名转向的代码来源: 发布时间:星期六, 2008年12月27日 浏览:41次 评论:0
自己做了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.Record ![]() whkRs.open whkSql,whkConn,3,3 %> <script language="javascript"> var records = ![]() <% Do while not whkRs.Eof %> records[whkCoun] = ![]() 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.sub ![]() document.write("<br>whkUrl:"+whkUrl); ![]() ![]() { var whkFirstP = whkUrl.indexOf("."),whkEndP = whkUrl.lastIndexOf("."),gotoUrl; ![]() ![]() { whkFlag = 0; window.alert("taofun.cn"); //window.location.href = "http://www.taofun.cn/" } ![]() { ![]() ![]() { whkFlag = 0; window.alert("localhost"); } ![]() { var whkUrl2 = whkUrl.sub ![]() document.write("<br>whkUrl2:"+whkUrl2); ![]() ![]() ![]() { ![]() ![]() for(i=0;i<whkCoun;i ![]() { document.write("<br>这里是读取 ![]() ![]() ![]() ![]() { whkFlag = 1; gotoUrl = "http://www.taofun.cn/show/Shop.asp?id="+records[i][1]; window.alert("找到"+records[i][0]+" ![]() ![]() ![]() } } ![]() { whkFlag = 0; window.alert("输 ![]() //window.location.href = "http://www.taofun.cn/"; } } ![]() { whkFlag = 0; window.alert("开头请输www"); //window.location.href="http://www.taofun.cn/"; } } } } ![]() { whkFlag = 0; window.alert("去网站WebSite首页!"); //window.location.href = whkUrl; } document.write("<br>最后结果:"+gotoUrl+whkwhkwhk); ![]() ![]() { document.write("<frame ![]() ![]() } </script> 0
相关文章读者评论发表评论 |
|