怎么判断记录集中的一条记录是否为空（急，在线，100分）

[dudu81]

我现在做了这么一个网页，如下表，
姓名 五月 六月
张三 12 13
李四 null 34
如果用表格显示的话，空的那条记录周围的表格线都没有，很不好看，怎么能在asp中判断该单位是否为空？如为空，就显示“无”，我些了一个不对
if cstr(StreamManagerReOffice(io)) ="" then
OutExcelStr = OutExcelStr & " <td align=""middle"" >"&StreamManagerReOffice(io)&"</td>"&chr(13)
else
OutExcelStr = OutExcelStr & " <td align=""middle"" >无</td>"&chr(13)
end if
那位能解决一下

[fantiny]

你可以手动设置表格线的。当然也可以判断是否为空。
全部都设置有表格线，比判断为空过程要简单吧。也不用循环。

[dudu81]

怎么手懂设置表格线啊

[cncca]

空的地方放一个空格不就好了？？ : )

[wangshaoquan]

if rs.eof and rs.bof then
response.write " "
else
.
.
.
end if
用空格表示就行了!

[hthunter]

判断是否Null用IsNull函数判断

[hthunter]

当然，你的情况可能Null和空字符串""都要判断

[hthunter]

并且看你代码中的判断都搞反了，你是cstr(StreamManagerReOffice(io)) =""的时候才输出内容，<>""的时候反而输出“无”，当然达不到你要的效果啦，呵呵

为空的时候输出"<td> </td>"，如果输出单纯的空格如"<td> </td>"的话，好像还是会没有表格线的

[阿_浩]

最简单的方法len(StreamManagerReOffice(io))>0

[zwrtv]

路过学习下

[friendlyFour]

在表格中默认加一个 

[ksn520]

试下len(变量)=0看下

[游陆]

<% Dim cn,rs,Sql
Sql = "select top 20 * from tx_link order by link_id asc"
'记录总数
Dim TotalNumbe
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, nn, 3, 1

TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol

jj = 0 ' 自动行不要管
nCol = 4 '定义列数

nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Response.Write "<table width=495 border=0 cellpadding=0 cellspacing0 background=images/bg4.jpg><tr align=center valign=bottom>" & vbCrLf
While not rs.EOF
Response.Write "<td width=124 height=25><a href="&rs("link_url")&" target=_blank> " & rs("link_name") & "</a></td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf

If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr align=center valign=bottom>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td> </td>" & vbCrLf
Next
End If
Response.Write "</tr>" & vbCrLf
End If
Response.Write "</table>"
End If
rs.Close
Set rs = Nothing
%>