Response.Write(tdStart)
Response.Write(tbContent)
Response.Write(tdEnd)
Next
Response.Write("</tr>" & vbCrLF)
DataSource.MoveNext
Next
'Draw Pageing Row
if DataSource.PageCount > 1 and LCase(pageingStyle) <> "none" then
Dim i,EndPage,StartPage
response.write("<tr>")
response.write("<td colspan=" & Columns.Count & " " & PageingStyle & ">")
'改进分页功能
'Code by Redsun
'Date:2005-1-17
If CurPage>4 Then
If CurPage+2<DataSource.PageCount Then
StartPage = CurPage-2
EndPage = CurPage+2
Else
StartPage = DataSource.PageCount-4
EndPage = DataSource.PageCount
End If
Else
StartPage = 1
If DataSource.PageCount>5 Then
