| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 486 人关注过本帖
标题:[求助]这里怎么是反着的啊
只看楼主 加入收藏
system32
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:58
帖 子:3096
专家分:0
注 册:2006-9-24
收藏
 问题点数:0 回复次数:9 
[求助]这里怎么是反着的啊

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<script language="vbscript">

document.Write("<table border='1'width='500'>")
Dim i,j
For i=1 To 6
document.Write("<TR bgColor='"& color &"'>")
For j=1 To 4
document.Write("<TD align='center'>"&i&j&"</TD>")
If i Mod 2 = 1 Then '这里怎么是反着的啊, 判断是偶数行的时候才填绿色,应该写成 if i mod 2=0 啊 ,怎么要=1 才能实现啊

color="#009900"
Else
color="#FFFFFF"
End if
Next


document.Write("</Tr>")
Next
document.Write("</table>")
</script>

</BODY>
</HTML>

搜索更多相关主题的帖子: PUBLIC border color 
2007-03-27 13:39
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
i Mod 2 = 0

i Mod 2 <> 0


其实我很低调,只是你不知道...
2007-03-27 13:41
system32
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:58
帖 子:3096
专家分:0
注 册:2006-9-24
收藏
得分:0 
<> 才是 等于???
vbscript 里?

[glow=200,blue,1]世界上妞是无限的,而我们的精力是有限的,用有限去搞无限,死定了。要用有限的精力去泡一个有钱妞,要发达,吃软饭![/glow]
2007-03-27 13:44
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
还有就是 看你写的很迷糊

变量哪有先用 后赋值的啊(color)

其实我很低调,只是你不知道...
2007-03-27 13:46
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
等于=
不等于<>

其实我很低调,只是你不知道...
2007-03-27 13:47
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
你是向把我和白雪给你的例子结合啊....

其实我很低调,只是你不知道...
2007-03-27 13:48
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
白雪的思路是
先定义颜色 再交替改变颜色

Sub PrintStr(TrNo,TdNo)
BgColr="#FFFFFF" '定义颜色
response.Write("<table border='1'>")
For i=1 To TrNo
response.Write("<TR bgColor='"& BgColr &"'>") '用到了BgColr
For j=1 To TdNo
Response.Write("<TD align='center'>"& i & j &"</TD>")
Next
Response.Write("</TR>")
If BgColr="#FFFFFF" Then '这里判断 是白色就BgColr = "#009900" 下次就是"#009900"
BgColr = "#009900"
Else 下次是"#009900"了 不是"#FFFFFF" 就变成"#FFFFFF"
BgColr="#FFFFFF"
End IF
Next
Response.Write("</table>")
End Sub
Call PrintStr(6,4)

其实我很低调,只是你不知道...
2007-03-27 13:52
做人很低调
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1268
专家分:0
注 册:2006-8-2
收藏
得分:0 
而我写的就是
直接判断行的奇偶 并相应选择颜色

其实我很低调,只是你不知道...
2007-03-27 13:53
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
楼主应该先去看看VBScript的基本语法,先学习一下基础的知识。
2007-03-27 15:00
system32
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:58
帖 子:3096
专家分:0
注 册:2006-9-24
收藏
得分:0 

呵呵,是的, 我正在学。 才开始。 多谢大家了


[glow=200,blue,1]世界上妞是无限的,而我们的精力是有限的,用有限去搞无限,死定了。要用有限的精力去泡一个有钱妞,要发达,吃软饭![/glow]
2007-03-27 16:21
快速回复:[求助]这里怎么是反着的啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019868 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved