lt;> Empty then DataSource.PageSize = PageSize else DataSource.PageSize = DataSource.RecordCount end if if CurPage = Empty then CurPage = 1 end if if CurPage < 1 then DataSource.AbsolutePage = 1 end if if CurPage >= DataSource.PageCount then DataSource.AbsolutePage = DataSource.PageCount end if if CurPage >= 1 and CurPage <= DataSource.PageCount then DataSource.AbsolutePage = CurPage end if for curRow = 1 to DataSource.PageSize if DataSource.EOF then Exit For end if Response.Write("<tr>") for Each clm in Columns.Keys() if Alternate = 0 then tbStyle = NormalStyle & " " & ItemStyle(clm) else if curRow mod 2 = 0 then tbStyle = AlternateStyle & " " & ItemStyle(clm) else tbStyle = NormalStyle & " " & ItemStyle(clm) end if end if tdStart = "<td " & tbStyle & ">" tdEnd = "</td>" if Templates(clm) = Empty then tbContent = DataSource(clm) else tbContent = Templates(clm) Set regEx = New RegExp regEx.Pattern= "{[A-Za-z0-9_-]+}" regEx.IgnoreCase = True regEx.Global = True Set Matches=regEx.Execute(Templates(clm)) For each match in match
DataSource.PageSize = PageSize
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
