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

'分页函数尾 
'无参数 
'------------------------------------------------------------------------------- 
Public Function PageFoot() 
　　strr="<table width=""500"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & VbCrLf 
　　strr=strr&"  <tr>" & VbCrLf 
　　strr=strr&"    <td valign=""top""><div align=""Right"">" 
'大于1页才会显示首页和上一页(可选) 
' If pageno>1 Then 
　　 strr=strr&"<a href=""?pageno=1"" title=""首页""><font face = Webdings>9</font></a>" 
　　 strr=strr&" " 
　　 strr=strr&"<a href=""?pageno="&pageno-1&""" title=""上一页""><font face = Webdings>7</font></a>" 
' End If 
　　strr=strr&" "&pageno&" " 
'小于最大页数才会显示下一页和尾页(可选) 
' If pageno<maxpageno Then 
　　 strr=strr&"<a href=""?pageno="&pageno+1&""" title=""下一页""><font face = Webdings>8</font></a>" 
　　 strr=strr&" " 
　　 strr=strr&"<a href=""?pageno="&maxpageno&""" title=""""><font face = Webdings>:</font></a>" 
' End If 
　　strr=strr&"    " 
　　strr=strr&(pageno-1)*maxpagesize+1&"/"&maxredcount&"条记录" 
　　strr=strr&"    " 
　　strr=strr&pageno&"/"&maxpageno&"页" 
　　strr=strr&"</div></td>" & VbCrLf 
　　strr=strr&"  </tr>" & vbCrLf 
　　strr=strr&"</table>" 
　　PageFoot=strr 
End Function 
'进行行列格式化函数 
'TableWidth  =表格宽度 
'TableHeight =表格高度(因浏览器不同可能无效) 
'------------------------------------------------------------------------------- 
Public Function FormatCRtable(TableWidth,TableHeight) 
　　Dim i,strr 
　　i=0 
　　strr="" 
　　strr=strr&"<table width="""&TableWidth&"""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf 
　　strr=strr&"  <tr>" & VbCrLf 
　　If maxredcount>0 Then 
　　 Do While i<maxpagesize 
　　  i=i+1 
　　  If Not Rs.eof Then 
　　   strr=strr&"    <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">有记录则进行输出</td>" & vbCrLf