- 时间：2020-09-02 00:56 编辑： 来源： 阅读：
- 扫一扫，手机访问
摘要：我用ASP写的m行n列的函数,动态输出创建TABLE行列
没有用正常的循环tr内循环td的方法，所以就没有计算最后一页的记录集数量。
但当记录集不足时也同样能够自动补空行空列，如有不足请指出，谢谢。
使用方法很简单：
[url=] 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
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
%>
代码还有很多不足,而且写的也不是很严谨，见笑了。
以后可以会改为Class
转自:http://jorkin.reallydo.com/article.asp?id=15[/url]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
