求一段跟随滚动条上下移动的右侧广告条代码 15

aspVBScript中求一段跟随滚动条上下移动的右侧广告条代码。此广告条不会随页面的最大化，还原而改变位置。如http://www.theskinfood.com/(无... asp VBScript中求一段跟随滚动条上下移动的右侧广告条代码。此广告条不会随页面的最大化，还原而改变位置。如http://www.theskinfood.com/(无法显示再刷新一次即可)右侧的一样。谢谢
谢谢你的回答，但我用的是VB，有没有VB的代码展开

 我来答

1个回答

#热议# 空调使用不当可能引发哪些疾病？

百度网友27182fc
2007-10-26 · TA获得超过185个赞

知道小有建树答主

回答量：812

采纳率：0%

帮助的人：488万

我也去答题访问个人页

关注

展开全部

以下代码可以实现，可在页面任何位置放，只要你自己改数值就行了
这是用JAVASCRIPT做的，不是VBSCRIPT

示例
<div class="xScrollStick" style="left:0px;top:0px">
Content...
</div>
示例2：

<div class="xScrollStick positionStyleName">
Content...
</div>
演示：

运行代码框

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>xScrollStick Demo</title>
<script type="text/javascript">

/*
说明：
x系列是Hutia开发的系列JS代码，配合相应的css后可以实现快速的自定义标签
目前xScrollStick支持的浏览器类型为：IE5.5, FF1.5

xScrollStick的标签为
<div class="xScrollStick">
Content...
</div>

支持属性：
无
支持方法：
无
*/

//**载入CSS*****
var xScrollStickCssFilePath="sp\/css\/xframe.css";
//document.write("<style>@import url("+xScrollStickCssFilePath+");</style>");

//**检测浏览器种类*****
var BROWSERNAME="";
switch(navigator.appName.toLowerCase()){
case "netscape":
BROWSERNAME="ns";
break;
case "microsoft internet explorer":
default:
BROWSERNAME="ie";
break;
}

//**设置初始化事件******
switch(BROWSERNAME){
case "ns":
window.addEventListener("load",_xScrollStick_init,false);
break;
case "ie":
default:
window.attachEvent("onload",_xScrollStick_init);
}

//**初始化函数******
function _xScrollStick_init(){
var allTheScrollSticks=document.getElementsByTagName("div");
for(var i=0;i<allTheScrollSticks.length;i++){
if(allTheScrollSticks[i].className.match(/^((xScrollStick)|(.+ +xScrollStick)|(xScrollStick +.+)|(.+ +xScrollStick +.+))$/))_xScrollStick_event_doInit(allTheScrollSticks[i]);
}
window_event_scroll();
}

//**事件响应函数区******

function _xScrollStick_event_doInit(element){
//初始化变量
element.offX=element.offsetLeft;
element.offY=element.offsetTop;

//设置方法
element.Stick=_xScrollStick_method_Stick;

//设置事件
switch(BROWSERNAME){
case "ns":
window.addEventListener("scroll",window_event_scroll,false);
break;
case "ie":
default:
window.attachEvent("onscroll",window_event_scroll);
}

//获取设置
//无
document.body.parentNode.onscroll=window_event_scroll;

}

function window_event_scroll(){
var allTheScrollSticks=document.getElementsByTagName("div");
for(var i=0;i<allTheScrollSticks.length;i++){
if(allTheScrollSticks[i].className.match(/^((xScrollStick)|(.+ +xScrollStick)|(xScrollStick +.+)|(.+ +xScrollStick +.+))$/))try{allTheScrollSticks[i].Stick();}catch(e){}
}
}

//**方法函数区******
function _xScrollStick_method_Stick(){
var x=this.offX, y=this.offY, po=this;
this.style.position="absolute";
x+=document.body.parentNode.scrollLeft;
y+=document.body.parentNode.scrollTop;
this.style.left=x+"px";
this.style.top=y+"px";

}

//**通用函数区***
//无
//]]>
</script>
<style>
.xScrollStick{
position:absolute;
padding:15px;
border:1px solid black;
width:120px;
height:24px;
}

.d1 { left:0px;top:0px; }
.d2 { right:0px;top:0px; }
.d3 { left:0px;bottom:0px; }
.d4 { right:0px;bottom:0px; }
</style>
</head>
<body style="text-align:center;">
<div class="xScrollStick d1">
<a href="http://www.163.com">浮动条</a>
</div>
<div class="xScrollStick d2">浮动条2</div>
<div class="xScrollStick d3">浮动条3</div>
<div class="xScrollStick d4">浮动条4</div>

<div style="top:0px;width:400px;height:2000px;">
afosdhfosdhg<br>
afosdhfosdhg<br>afosdhfosdhg<br>
afosdhfosdhg<br>afosdhfosdhg<br>
afosdhfosdhg<br>afosdhfosdhg<br>
afosdhfosdhg<br>afosdhfosdhg<br>
afosdhfosdhg<br>afosdhfosdhg<br>
afosdhfosdhg<br>
</div>

</body>
</html>

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求一段跟随滚动条上下移动的右侧广告条代码 15

其他类似问题

为你推荐：