Question

ASP表格循环

<TR><td>25</td>
<td>26</td>
<td>27</td>
<td>28</td>
<td>29</td>
<td>30</td>
<td>01</td>
</tr>
<tr>
<td>02</td>
<td>03</td>
<td>04</td>
<td>05</td>
<td>06</td>
<td>07</td>
<td>08</td>
</tr><tr>
<td>09</td>
<td>10</td>
<td>11</td>
<td>12</td>
<td>13</td>
<td>14</td>
<td>15</td>
</tr><tr>
如何在循环的时候，在每个TR第一个TD里面加入一个class="border1"
比如：
<TR><td class="border1">25</td>
<td>26</td>
<td>27</td>
<td>28</td>
<td>29</td>
<td>30</td>
<td>01</td>
</tr><tr>
<td class="border1">02</td>
<td>03</td>
<td>04</td>
<td>05</td>
<td>06</td>
<td>07</td>
<td>08</td>
</tr>
........

Answer 1

用IF判断一下,不知道你是怎么实现的循环,比如循环变量是i,你可以试试
<%
Dim tstr
If i Mod 7 = 1 Then tstr = " class=""border1"" Else tstr = ""
Response.Write "<td" & tstr & ">"
%>
把代码加在你的循环里的适当位置即可.

追问

不对啊，结果显示的是

09
10
11
12
13
14
15

最后一个有了怎么变成第一个

追答

因为我不知道你循环是怎么控制的,我只是提供一个方法.
你可以按你的需要,修改一下 i Mod 7 = 1 这个表达式.你试试改成 i Mod 7 = 2 看看.
但我感觉你输出的是一个日历吧,所以你一定要用你控制输出TR的方法,而不能简单的把我的代码复制过去就了事.

追问

If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then
你的那个也试过了，结果一样，这个跟TR的输出方法差不多一样

追答

那你就把
If i Mod 7 = 1 Then tstr = " class=""border1"" Else tstr = ""
换成
If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then tstr = " class=""border1"" Else tstr = ""

Answer 2

<%
sql = "select * from news"
set rs = server.CreateObject("ADODB.RECORDSET")
RS.open sql,conn,1,1
i = 0
do while not rs.eof

For ii=0 to rs.fields.count-1
splaceValue = S.SP(rs(ii),VbCrLf,"")
splaceValue = S.SP(splaceValue,chr(34),"'")
splaceValue = trim(splaceValue)
Execute rs.fields(ii).name&"_i"&"="&chr(34)&splaceValue&chr(34)
Next
%>
<TR>
<td class="border1">rs("id")</td>
<td>26</td>
<td>27</td>
<td>28</td>
<td>29</td>
<td>30</td>
<td>01</td>
</tr>
<%
rs.movenext
i = i + 1
loop
rs.close
set rs = nothing
%>