易截截图软件、单文件、免安装、纯绿色、仅160KB

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>


相关文档:

Windows XP home版安装asp运行环境

    本人的本本上是home版的XP,无法正常安装IIS,但是网上查到几篇博文,说是能安装IIS,于是按照上面的描述亲自试了一下。
    其大致方法如下:
     1、首先打开C盘Windows目录中inf目录下的sysoc.inf文件(可以在运行中直接输入“c:\windows\inf\sysoc.inf&rdqu ......

asp数组随机排序

这段代码的功能是:将一个数组打乱顺序,显示出来,让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序  
leng=UBound(tt)
randomize  
for ii=0 to leng-1  
 b=int(rnd()*leng)  
 temp=tt(b)  
 tt(b ......

关于asp中的数据库连接问题

我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值,然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......

ASP中Dictionary对象的一个奇怪问题

首先贴代码:
<%@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 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号