UC知道求高人帮写个VBscript代码
来源：百度知道 编辑：UC知道 时间：2024/06/18 22:33:21
<html>
<title>颜色变换
</title>
<head>
<Script Language="VBScript">
</Script>
</head>
<body>
<table align="center" width="200" border="3" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="#FF0000"> </td>
<td bgcolor="#FF6633"> </td>
<td bgcolor="#FFFF33"> </td>
<td bgcolor="#00FF00"> </td>
<td bgcolor="#6699FF"> </td>
<td bgcolor="#0033CC"> </td>
<td bgcolor="#9933CC"> </td>
</tr>
</table>
<center><input type="button" value="循环"> <input type="button" value="停止"&g
<title>颜色变换
</title>
<head>
<Script Language="VBScript">
</Script>
</head>
<body>
<table align="center" width="200" border="3" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="#FF0000"> </td>
<td bgcolor="#FF6633"> </td>
<td bgcolor="#FFFF33"> </td>
<td bgcolor="#00FF00"> </td>
<td bgcolor="#6699FF"> </td>
<td bgcolor="#0033CC"> </td>
<td bgcolor="#9933CC"> </td>
</tr>
</table>
<center><input type="button" value="循环"> <input type="button" value="停止"&g
<html>
<head>
<title>颜色变换 </title>
<Script Language="VBScript">
Dim i,j,colorarray(6)
i=0
j=5
colorarray(0)="#FF0000"
colorarray(1)="#FF6633"
colorarray(2)="#FFFF33"
colorarray(3)="#00FF00"
colorarray(4)="#6699FF"
colorarray(5)="#0033CC"
colorarray(6)="#9933CC"
window.setInterval "changecolor()",1000
function changecolor()
if i=1 then
for k = 1 to 7
document.getElementById("td"+cstr(k)).bgcolor=colorarray((j+k) mod 7)
next
j=j-1
if j<0 then j=6 end if
end if
end function
function startnow()
i=1
end function
function endnow()
i=0
end function
</Script>
</head>
<body>
<table align="center" width="200" border="3" cell