关于VBSCRIPT的问题

[复制链接]

顺其自然

电梯直达

1^#

发表于 2010-1-11 01:47:57 | 只看该作者回帖奖励

|正序浏览 |阅读模式

asp初学者，在这段程序中，FOR...NEXT..语句看不太懂，高手帮忙讲解一下
谢谢啦
<%@ Language=VBScript %>
<html>
<title>
移动鼠标改变背景颜色
</title>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

</SCRIPT>
<center>
<table cellspacing=2 Border="0">
<tr>
<%
Dim I1, I2, I3 ' Looping variables for RGB Color
For I1 = 0 to 15 step 3
For I2 = 0 to 15 step 3
For I3 = 0 to 15 step 3
Color = Hex(I1) & Hex(I1) & Hex(I2) & Hex(I2) & Hex(I3) & Hex(I3)
%>
<td bgcolor="#<%=Color%>">
<a href="#" LANGUAGE=javascript OnMouseOver="return MakeColor('#<%=Color%>');">
<img src="clear.gif" width=10 height=10 border="0"></a>
</td>
<%
Next
Next
%>
</tr>
<tr>
<%
Next
%>
</tr>
</table>
</center>
</html>

收藏0

使用道具举报

oscar

4^#

发表于 2010-2-14 15:05:11 | 只看该作者

注:我是来收集资料滴...

回复支持反对

使用道具举报

Kdsffsd

3^#

发表于 2010-1-11 01:48:05 | 只看该作者

谢谢版主

回复支持反对

使用道具举报

神①→沙加

2^#

发表于 2010-1-11 01:48:01 | 只看该作者

Dim I1, I2, I3       '定义颜色变量
For I1 = 0 to 15 step 3    ’从0到15循环，步长为3,即取值为0 3 6 9 12 15
For I2 = 0 to 15 step 3
For I3 = 0 to 15 step 3
Color = Hex(I1) & Hex(I1) & Hex(I2) & Hex(I2) & Hex(I3) & Hex(I3)'转换为16进制
%>

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册