UC知道asp如何控制列和行的重复，急！
来源：百度知道 编辑：UC知道 时间：2024/06/03 19:13:17
哪位大哥帮帮忙看看这段代码怎么修改才能行和列重复，需要的效果是：
1：#### 2：##### 下面一行接着是3 和4 。。。 要对齐。谢谢了。
代码：
dim strSQL, rsObj
Response.Write "<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = 'Table3'>"
strSQL = "SELECT * FROM y WHERE t= " & h
Set rsObj = conn.Execute(strSQL)
do while not (rsObj.EOF or Err )
if Not jj Then
Response.Write "<td height = 50 >"
Response.Write "<a href = # >" & rsObj("k") & "</a>"
Response.Write "</td>"
Else
Response.Write " "
Response.Write "<img src = images/9.gif>"
Response.Write " "
Response.Write "<a href = #>" & rsObj("kk") & "</a>"
End if
rsObj.MoveNext
loop
Set rsObj = Nothing
if Not JJ Then
Response.Write "
1：#### 2：##### 下面一行接着是3 和4 。。。 要对齐。谢谢了。
代码：
dim strSQL, rsObj
Response.Write "<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = 'Table3'>"
strSQL = "SELECT * FROM y WHERE t= " & h
Set rsObj = conn.Execute(strSQL)
do while not (rsObj.EOF or Err )
if Not jj Then
Response.Write "<td height = 50 >"
Response.Write "<a href = # >" & rsObj("k") & "</a>"
Response.Write "</td>"
Else
Response.Write " "
Response.Write "<img src = images/9.gif>"
Response.Write " "
Response.Write "<a href = #>" & rsObj("kk") & "</a>"
End if
rsObj.MoveNext
loop
Set rsObj = Nothing
if Not JJ Then
Response.Write "
dim strSQL, rsObj
Response.Write "<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = 'Table3'>"
strSQL = "SELECT * FROM y WHERE t= " & h
Set rsObj = conn.Execute(strSQL)
rownum = 5 '每行显示多少个了
i=1
do while not (rsObj.EOF or Err )
response.write "<tr>"
if Not jj Then
if i mod rownum=1 then
Response.Write "<td height = 50 >"
Response.Write "<a href = # >" & rsObj("k") & "</a>"
Response.Write "</td>"
elseif i mod rownum=0 then ’是5的倍数就结束本行
Response.Write "<td height = 50 >"
Response.Write "<a href = # >" & rsObj("k") & "</a>"
Response.Write "</td></tr>"
else
Response.Write "<td height = 50 >"
Response