合并列的问题?

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>

如果三个列都相同,请问在<% %>里怎么合并这个列
...全文
96 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
安迪 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>
wdfboy1978 2005-07-12
  • 打赏
  • 举报
回复
这个很难实现,我们曾经读取数据库记录,想将相同的列合并为一个格式,但是在翻页后就乱了,因为你要算出一个偏移量,也就是当前页最下页的记录有几行拼在一起,然后到了后一页有前面有几行拼在一起.所以算法挺复杂,但是我相信应该是有办法的,视目以待!
chaiuong 2004-12-08
  • 打赏
  • 举报
回复
DX我不明白,您说的能在清楚点吗
李尸尸 2004-12-08
  • 打赏
  • 举报
回复
..........
do while
........

loop
........

rs.movenext

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧