我用ASP写的m行n列的函数,动态输出创建TABLE行列(3)

　　   Rs.movenext 
　　  Else 
　　   strr=strr&"    <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">记录集不足时补余</td>" & VbCrLf 
　　  End If 
　　  If i Mod Cols = 0 Then 
　　   strr=strr&"  </tr>" & VbCrLf 
　　   strr=strr&"  <tr>" & vbCrLf 
　　  End If 
　　 Loop 
　　Else 
　　 strr=strr&"<td height="""&TableWidth&""" valign=""top"">目前没有记录集</td>" 
　　End if 
　　strr=strr&"  </tr>" & VbCrLf 
　　strr=strr&"</table>" & VbCrLf 
　　FormatCRtable=strr 
End Function 
%>