我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地:首页 > 网络学院 > 网络编程 > ASP专区 > Asp客户端/系统 > 我有2个类似的js,不知道有用否 1
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数:对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
 

我有2个类似的js,不知道有用否 1 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-22

脚本说明:
第一步:把如下代码加入<head>区域中
<script language="JavaScript1.2">
scores = new Array(20);var numTotal=0;NS4 = (document.layers) ? 1 : 0;IE4 = (doc
ument.all) ? 1 : 0;ver4 = (NS4 || IE4) ? 1 : 0;if (ver4) {    with (document) {  
      write("<STYLE TYPE='text/css'>");        if (NS4) {            write(".pare
nt {position:absolute; visibility:visible}");            write(".child {position:
absolute; visibility:visible}");            write(".regular {position:absolute; v
isibility:visible}")        }        else {            write(".child {display:non
e}")        }        write("</STYLE>");    }}function getIndex(el) {    ind = nul
l;    for (i=0; i<document.layers.length; i++) {        whichEl = document.layers
[i];        if (whichEl.id == el) {            ind = i;            break;        
}    }    return ind;}function arrange() {    nextY = document.layers[firstInd].p
ageY +document.layers[firstInd].document.height;    for (i=firstInd+1; i<document
.layers.length; i++) {        whichEl = document.layers[i];        if (whichEl.vi
sibility != "hide") {            whichEl.pageY = nextY;            nextY += which
El.document.height;        }    }}function initIt(){    if (!ver4) return;    if
(NS4) {        for (i=0; i<document.layers.length; i++) {            whichEl = do
cument.layers[i];            if (whichEl.id.indexOf("Child") != -1) whichEl.visib
ility = "hide";       }        arrange();    }    else {        divColl = documen
t.all.tags("DIV");        for (i=0; i<divColl.length; i++) {            whichEl =
divColl(i);            if (whichEl.className == "child") whichEl.style.display =
"none";        }    }}function expandIt(el) {    if (!ver4) return;    if (IE4)
{        whichEl1 = eval(el + "Child");        for(i=1;i<=numTotal;i++){         
   whichEl = eval(scores[i] + "Child");            if(whichEl!=whichEl1) {       
         whichEl.style.display = "none";            }        }        whichEl1 =
eval(el + "Child");        if (whichEl1.style.display == "none") {            whi
chEl1.style.display = "block";        }        else {            whichEl1.style.d
isplay = "none";        }    }    else {        whichEl = eval("document." + el +
"Child");        for(i=1;i<=numTotal;i++){            whichEl = eval("document."
+ scores[i] + "Child");            if(whichEl!=whichEl1) {                whichE
l.visibility = "hide";            }        }        if (whichEl.visibility == "hi
de") {            whichEl.visibility = "show";        }        else {            
whichEl.visibility = "hide";        }        arrange();    }}onload = initIt;
</script>



第二步:把如下代码加入<body>区域中
<div id="KB1Parent" class="parent"><a href="#" onClick="expandIt('KB1'); return
false">
<img SRC="plus.gif" BORDER="0">时间日期类</a></div><div id="KB1Child" class="par
ent">
<a href="time1.htm" target="_target"> <img SRC="blank.gif" BORDER="0">任意位置显
示时钟</a><br>
<a href="time2.htm" target="_target"> <img SRC="blank.gif" BORDER="0">倒计时代码
生成器</a><br>
<a href="time3.htm" target="_target"> <img SRC="blank.gif" BORDER="0">八种风格时
间显示</a><br>
<a href="time4.htm" target="_target"> <img SRC="blank.gif" BORDER="0">显示登陆时
间</a><br>
<a href="time5.htm" target="_target"> <img SRC="blank.gif" BORDER="0">日历生成器
</a><br>
<a href="time6.htm" target="_target"> <img SRC="blank.gif" BORDER="0">退出显示访
问时间</a><br>
<a href="time7.htm" target="_target"> <img SRC="blank.gif" BORDER="0">一款特酷的
时钟</a><br>
<a href="time8.htm" target="_target"> <img SRC="blank.gif" BORDER="0">全中文日期
显示</a><

文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册(不仅仅适用于asp)
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名: 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明:刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。