<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<input type="button" value="动态按钮" />
</body>
</html>
<script language="vbscript">
<!--
dim scroll_msg,scroll_out,scroll_pos,scroll_delay
scroll_msg="侧测试字符串：你好，朋友。"
scroll_out=""
scroll_pos=100
scroll_delay=5
sub scroller
for i=1 to scroll_pos
scroll_out=scroll_out & " "
next
if scroll_pos>0 then
scroll_out=scroll_out & scroll_msg
else
scroll_out=mid(scroll_msg,-scroll_pos+1,len(scroll_msg))
end if
window.status=scroll_out
scroll_out=""
scroll_pos=scroll_pos-1
if scroll_pos<len(scroll_msg) then scroll_pos=100
settimeout("scroller()",scroll_delay)
end sub
settimeout("scroller()",scroll_delay)
-->
</script>
顺便请大家介绍下一些关于window函数的资料
[此贴子已经被作者于2007-3-26 15:53:11编辑过]
