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

aspVBScript中求一段跟随滚动条上下移动的右侧广告条代码。此广告条不会随页面的最大化，还原而改变位置。如http://www.theskinfood.com/(无... asp VBScript中求一段跟随滚动条上下移动的右侧广告条代码。此广告条不会随页面的最大化，还原而改变位置。如http://www.theskinfood.com/(无法显示再刷新一次即可)右侧的一样。谢谢
谢谢你的回答，可这不是我想要的啊，我只要右侧的，并且是代码，还有你的JS好象不能在VB里用啊，好象只能用在静态网页的啊，我也不知道怎么用的啊。展开

 我来答

2个回答

#合辑# 机票是越早买越便宜吗？

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

知道小有建树答主

回答量：812

采纳率：0%

帮助的人：488万

我也去答题访问个人页

关注

展开全部

<!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>

你先把我这个复制下来，然后用记事本保存成htm格式的文件运行一下看是不是你想要的？
顺便说一下，估计你应该能看懂代码吧？你想只要右边的浮动条的话可以改一下代码
在<body>上面有个<style>,里面有。d1，。d2，。d3。d4这四个就是你看到的四个浮动条，不想要哪个直接删除就行了，然后在<body>里把对应的项目删掉就是你想要的效果了

本回答由提问者推荐

已赞过 已踩过<

评论收起

VB妮可
2007-11-01 · TA获得超过3333个赞

知道大有可为答主

回答量：2574

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

里面的0002-可关闭的对联广告,就是你要的效果了..下载地址如下:

http://www.makewing.com/lanren/jscode/js-0002.rar

参考资料： http://www.makewing.com/lanren/jscode/jscode_5.shtml

已赞过 已踩过<

评论收起

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

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

其他类似问题

为你推荐：