合并列的问题?

[chaiuong]

<table width="363" height="72" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>8点</td>
<td>9点</td>
<td>10点</td>
</tr>
<tr>
<td>1</td>
<td>1</td>
<td>1</td>
</tr>
</table>


<table width="363" height="72" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>8点</td>
<td>9点</td>
<td>10点</td>
</tr>
<tr>
<td colspan="3">1</td>
</tr>
</table>

如果三个列都相同，请问在<% %>里怎么合并这个列

[李尸尸]

..........
do while
........

loop
........

rs.movenext

[chaiuong]

DX我不明白，您说的能在清楚点吗

[wdfboy1978]

这个很难实现,我们曾经读取数据库记录,想将相同的列合并为一个格式,但是在翻页后就乱了,因为你要算出一个偏移量,也就是当前页最下页的记录有几行拼在一起,然后到了后一页有前面有几行拼在一起.所以算法挺复杂,但是我相信应该是有办法的,视目以待!

[tigerwen01]

iColumn = 3 '每行显示3列
i=1 '一个滚动的标记，每次加1
strSql = "Select name From Category"
Set objRs = objConn.Execute(strSql)

While Not objRs.EOF

Response.Write objRs(0) & " "
objRs.MoveNext

If i Mod iColumn=0 Then '当输出三条记录时，就换行
Response.Write "<br>"
End If
i = i + 1
Wend

-----------------------------
<%
dim ComCategory
ComCategory=Trim(Request.QueryString("ComCategory"))
CategoryName=Trim(Request.QueryString("CategoryName"))
strPageNo=Trim(Request.QueryString("PageNo"))
if ComCategory<>"" then
on error resume next
set conn=server.CreateObject("ADODB.connection")
conn.Open Application("ConnectDataSourceString")
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = 3
SQL="Select * from tb_ProductCateGory where Substring(ProductCategoryCode,1,1)='"+ComCategory+"'"+" order by ProductCategoryCode"
Rs.open SQL,conn,1,1
end if

%>
<%dim ci
ci=1%>
<center>
<table border="0" width="90%" cellspacing="1"><!--公司产品类表开始-->
<%If Not Rs.Eof Then%>
<%While Not Rs.Eof %>
<%
Color1=""
%>
<tr>
<td height="20">
<a href="share/GetCompanyMsg.asp?PageNo=<%=strPageNo%>&ProductCategory=<%=Trim(Rs("ProductCategoryCode"))%>&ProCateName=<%=Trim(Rs("ProductCategoryName"))%>&CategoryName=<%=CategoryName%>" ><%=Trim(Rs("ProductCategoryName"))%></a>
</td>
<% if Not Rs.Eof then
Rs.MoveNext
%>
<td height="20">
<a href="share/GetCompanyMsg.asp?PageNo=<%=strPageNo%>&ProductCategory=<%=Trim(Rs("ProductCategoryCode"))%>&ProCateName=<%=Trim(Rs("ProductCategoryName"))%>&CategoryName=<%=CategoryName%>" ><%=Trim(Rs("ProductCategoryName"))%></a>
</td>
<%End if %>
<% if Not Rs.eof then
Rs.MoveNext
%>
<td height="20">
<a href="share/GetCompanyMsg.asp?PageNo=<%=strPageNo%>&ProductCategory=<%=Trim(Rs("ProductCategoryCode"))%>&ProCateName=<%=Trim(Rs("ProductCategoryName"))%>&CategoryName=<%=CategoryName%>" ><%=Trim(Rs("ProductCategoryName"))%></a>
</td>
<%end if%>
</tr>
<%if Not Rs.Eof then%>
<%Rs.MoveNext%>
<%end if %>
<%ci=ci+1%>
<%Wend%>
<%Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=nothing
%>
<%End if%>

</table> <!--公司产品类表结束-->
</center>

[安迪]

<table width="363" height="72" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>8点</td>
<td>9点</td>
<td>10点</td>
</tr>
<tr>
<%
if 第一个变量=第二个变量 and 第二个变量=第三个变量
%>
<td colspan="3">1</td>
<%
else
%>
<td>第一个变量</td>
<td>第二个变量</td>
<td>第三个变量</td>
<%
end if
%>
</tr>
</table