asp 文字循环滚动(up)
<div id="storyScroller" style="width:100%;height:140px;line-height:28px;overflow:hidden;">
<div id="storyScrollMid">
<ul id="storyScrollUl" style=" list-style-type:circle; list-style-position: outside; margin-left:18px; margin-right:0px">
<li>item01</li>
<li>item02</li>
<li>item03</li>
<li>item04</li>
<li>item05</li>
<li>item06</li>
<li>item07</li>
<li>item08</li>
</ul>
</div>
</div>
<script type="text/javascript">
var scrollstory = document.getElementById('storyScroller');
var storycontainer = document.getElementById('storyScrollMid');
var storyliHeight;
var storylis = storycontainer.getElementsByTagName('li');
var isstory_stop = 0;
scrollstory.onmouseover = function() { isstory_stop = 1; }
scrollstory.onmouseout = function() { isstory_stop = 0; }
function story_scroller(){
var story_step = 1;
var timer1 = setInterval(function(){
if(isstory_stop) return false;
storyliHeight = storylis[0].offsetHeight;
var timer2 = setInterval(function(){
scrollstory.scrollTop += story_step;
if(scrollstory.scrollTop >= storyliHeight){
clearInterval(timer2);
storylis[0].parentNode.appendChild(storylis[0]);
scrollstory.scrollTop = 0;
}
},10);
},5000);
}
story_scroller();
</script>
相关文档:
开发环境:VS2008
WEB服务器:IIS7.0
为何在调试时,可正常显示报表内容,可生成后,运行时,只显示报表框架,并不能正常显示报表内容.
我把浏览器所有限制选项都取消了,还是一样的问题,不知为何.正在寻找答案................... ......
我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值,然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......
废话不多说,贴代码:
先来看看ByVal传值:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值:"&a(0)&","&a(1)&","&a(2))
......
首先贴代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("这是修改之前的值:" & objDic.Item("key")(0))
objDic.Item("key")(1) = ob ......