合并列的问题?

chaiuong 2004-12-08 11:06:27

<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>

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

...全文

67 点赞收藏 5

写回复

5 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

安迪 2005-07-12

<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

回复赞

tigerwen01 2005-07-12

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>

回复赞