请教个题目，进来 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 请教个题目，进来

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 480 人关注过本帖

标题：请教个题目，进来

只看楼主加入收藏

system32

等　级：版主
威　望：58
帖　子：3096
专家分：0
注　册：2006-9-24

楼主

问题点数：0 回复次数：7

请教个题目，进来

ASP练习－第二题说明：
1、使用循环语句最终生成一个六行四列的表格，并且在单元格中填充相应的值和行的背景色，以示例图效果为准。

麻烦告诉我下语法就可以了。怎么实现我自己搞，用什么来控制表格。

弄小个简单的例子给我参照就可以了。谢谢

[此贴子已经被作者于2007-3-26 20:19:48编辑过]

搜索更多相关主题的帖子: 表格　 ASP　效果　

2007-03-26 20:18

system32

等　级：版主
威　望：58
帖　子：3096
专家分：0
注　册：2006-9-24

第 2 楼

得分:0

做人很低调。。帮帮偶

[glow=200,blue,1]世界上妞是无限的，而我们的精力是有限的，用有限去搞无限，死定了。要用有限的精力去泡一个有钱妞，要发达，吃软饭![/glow]

2007-03-26 22:19

system32

等　级：版主
威　望：58
帖　子：3096
专家分：0
注　册：2006-9-24

第 3 楼

得分:0

只要你搞个 2行2列的我看看就可以了，颜色和数字我自己来搞
要服务端程序。

[glow=200,blue,1]世界上妞是无限的，而我们的精力是有限的，用有限去搞无限，死定了。要用有限的精力去泡一个有钱妞，要发达，吃软饭![/glow]

2007-03-26 22:20

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 4 楼

得分:0

[QUOTE]<%
Sub PrintStr(TrNo,TdNo)
BgColr="#FFFFFF"
response.Write("<table border='1'>")
For i=1 To TrNo
response.Write("<TR bgColor='"& BgColr &"'>")
For j=1 To TdNo
Response.Write("<TD align='center'>"& i & j &"</TD>")
Next
Response.Write("</TR>")
If BgColr="#FFFFFF" Then
BgColr = "#009900"
Else
BgColr="#FFFFFF"
End IF
Next
Response.Write("</table>")
End Sub
Call PrintStr(6,4)
%>[/QUOTE]

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2007-03-27 08:31

做人很低调

等　级：贵宾
威　望：18
帖　子：1268
专家分：0
注　册：2006-8-2

第 5 楼

得分:0

<%
Dim i,j '声明变量
Response.Write("<table width=""500"" border=""1"" cellspacing=""1"" cellpadding=""0"">")
For i = 1 To 6 '循环6行
Response.Write("<tr>")
For j = 1 To 4 '循环4列
If i Mod 2 <> 0 Then '判断行如果是奇数行则背景为白色
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"">"&i&j&"</td>")
Else '如果是偶数行则背景为绿色
Response.Write("<td bgcolor=""#009933"" align=""center"">"&i&j&"</td>")
End If
Next
Response.Write("</tr>")
Next
Response.Write("</table>")
%>

其实我很低调,只是你不知道...

2007-03-27 08:46

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 6 楼

得分:0

楼主是要绿色行还是随机颜色呀？

2007-03-27 09:22

system32

等　级：版主
威　望：58
帖　子：3096
专家分：0
注　册：2006-9-24

第 7 楼

得分:0

绿色，可以了，之要提示下我自己来研究。
谢谢2位了啊。你们真够热心哦。

[glow=200,blue,1]世界上妞是无限的，而我们的精力是有限的，用有限去搞无限，死定了。要用有限的精力去泡一个有钱妞，要发达，吃软饭![/glow]

2007-03-27 12:34

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 8 楼

得分:0

<html>
<head>
<title>表格循环</title>
</head>
<body>
<%
With Response
.Write "<table border=1 >"&Chr(13)
Dim r,c
Dim TColor
For r=1 To 6
.Write "<tr>"&Chr(13)
For c=1 To 4
IF r Mod 2 <>0 Then
.Write "<td>第"&r&"行"&c&"列</td>"
Else
.Write "<td bgcolor=green >第"&r&"行"&c&"列</td>"
End IF
Next
.Write "</tr>"
Next
.Write "</table>"
End With
%>
</body>
</html>
里面用到的语法
With [某个对象]……End With
省略对象的名称
比如以前写Response.Write
With Response
后里面就可以省略Response直接写.Write
注:只有在End With标记之前才是这个对象的省略范围，End With标记之后省略就是错误的
比如
With Response
End With
.Write
这样写错误。
For循环
语法:For [变量]=[初始值] To 循环终止值
这里For r=0 To 6
就是r这个变量初始值为0一直到r=6时结束循环。
这里是省略了r=r+1这个语句，VBScript里For循环中变量默认情况下是自动加1。
Mod是求余数的运算符
比如 6 Mod 2就是6除以2取余数，除尽余数=0
IF Then Else End IF就不用说了吧？判断语句如果那么否则。

2007-03-27 13:36

快速回复：请教个题目，进来