生成表格
请问下
当我读取数据库中的数据形成表格时,如果某一条记录没有数据,
怎样不生成这一行的表格
谢谢!
通过循环IF判断来实现,有数据则继续循环,没有数据则不循环
比如如下表格TestTable
id name telphon joindata
0 a abc xxxxx
1 b avc xxxxx
2 c def xxxxxx
3 e xxxxxx
4 f xxxxx
5 g xxxxx
生成Table就可以写
Dim HtmlTable
HtmlTable="<table>
Do Until rs.EOF
IF rs("telphon")<>"" Then
HtmlTable=HtmlTable&"<tr>"
HtmlTable=HtmlTable&"<td>"&rs("id")&"</td>"
HtmlTable=HtmlTable&"<td>"&rs("name")&"</td>"
HtmlTable=HtmlTable&"<td>"&rs("telphon")&"</td>"
HtmlTable=HtmlTable&"<td>"&rs("joindata")&"</td>"
HtmlTable=HtmlTable&"</tr>"
End IF
rs.MoveNext
Loop
HtmlTable=HtmlTable&"</table>"
Response.Write HtmlTable
上面这段程序就是只有表中telphon这个字段有数据的记录,才会生成table中的一行。