请求高手帮忙用VBScript实现以下这个js页面的效果

snailili 2003-03-06 08:09:08

两个月了，未遂。
因为我要把这个效果容入到自己的VBScript代码中，感激！
<HTML>

<HEAD>
<TITLE></TITLE>
<META name="Generator" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<META name="Author" content="JnKc">
<META name="Keywords" content>
</HEAD>

<BODY>

<TABLE border="1" cellspacing="3" cellpadding="10" align="center" width="500">
<TR>
<TD><button onClick="show()">显示层</button></TD>
<TD> </TD>
<TD align="right"><button onClick="show()">显示层</button></TD>
</TR>
<TR>
<TD> </TD>
<TD align="center"><button onClick="show()">显示层</button></TD>
<TD> </TD>
</TR>
<TR>
<TD>　</TD>
<TD>　</TD>
<TD><button onClick="show()">显示层</button></TD>
</TR>
</TABLE>

<DIV id="jnkcLayer" style="position:absolute; width:100px; height:100px; z-index:1; background-color: #009966;visibility: hidden"
onclick="this.style.visibility='hidden'">

<BR>
我是一个层，打我我消失。^@^

</DIV>

<script language="javaScript">

function show(){
var obj = event.srcElement;
var jnkcTop = 0;
var jnkcLeft = 0;
var objP = obj;
while (objP.tagName!="BODY"&&objP){
jnkcTop += objP.offsetTop;
jnkcLeft += objP.offsetLeft;
objP = objP.offsetParent;
}
jnkcLayer.style.top = jnkcTop+obj.offsetHeight;
jnkcLayer.style.left = jnkcLeft;
jnkcLayer.style.visibility = 'visible';
}

</script>

</BODY>

</HTML>

...全文

32 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ryuginka 2003-09-05

打赏
举报

snailili 2003-03-06

打赏
举报

问题已经解决，请暂时不要回贴，谢谢！
见
http://expert.csdn.net/Expert/topic/1306/1306957.xml?temp=9.435672E-02

possible_Y 2003-03-06

打赏
举报

<HTML>

<HEAD>
<TITLE></TITLE>
<META name="Generator" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<META name="Author" content="JnKc">
<META name="Keywords" content>
</HEAD>

<BODY>

<TABLE border="1" cellspacing="3" cellpadding="10" align="center" width="500">
<TR>
<TD><button onClick="vbscript:show()">显示层</button></TD>
<TD> </TD>
<TD align="right"><button onClick="vbscript:show()">显示层</button></TD>
</TR>
<TR>
<TD> </TD>
<TD align="center"><button onClick="vbscript:show()">显示层</button></TD>
<TD> </TD>
</TR>
<TR>
<TD>　</TD>
<TD>　</TD>
<TD><button onClick="vbscript:show()">显示层</button></TD>
</TR>
</TABLE>

<DIV id="jnkcLayer" style="position:absolute; width:100px; height:100px; z-index:1; background-color: #009966;visibility: hidden"
onclick="this.style.visibility='hidden'">

<BR>
我是一个层，打我我消失。^@^

</DIV>

<script language="vbscript">

function show()
obj = event.srcElement;
jnkcTop = 0;
jnkcLeft = 0;
objP = obj;
Do while objP.tagName!="BODY"&&objP
jnkcTop += objP.offsetTop;
jnkcLeft += objP.offsetLeft;
objP = objP.offsetParent;
Loop
jnkcLayer.style.top = jnkcTop+obj.offsetHeight;
jnkcLayer.style.left = jnkcLeft;
jnkcLayer.style.visibility = 'visible';
end function

</script>

</BODY>

</HTML>

1.如何最小化、最大化、关闭窗口答：2.如何静止页面缓存答：htm网页或者asp网页response.expires=-1response.expiresabsolute=now()-1response.cachecontrol="no-cache"php网页header("expires:mon,26j

通过ASX文件可以实现歌曲连续播放，但是如何在网页上显示这些歌曲列表，并能够控制自如。... 买了一个扩展，但是现在想用在另外一个网站，因为被授权加密，所以请高手帮忙，看能否解密下面这些加密过的代码

其业务范围通常覆盖全国甚至全球,注册用户通常达到千万级以上,用户活跃度也非常高,经常在同一时间点出现请求并行的情况。代表企业有阿里巴巴、腾讯、百度、东、宇节跳动,美团饿了么等。传统行业通常是指互联网向...

}T 如何用程序控制电源管理设置 Q 我们知道在电源选项属性里面可以设置关闭监视器 1分钟之后，...,从不关闭硬盘 1分钟之后，...,从不待机时间 1分钟之后，...,从不请问这些设置我怎么用程序来实现比