支持多风格变换的ASP分页类

Private Function StyleC()
　　"首页 |< |<< 1 2 3 4 5 6 7 >>| >| 尾页
　　"//此风格在StyleB的基础上修改，增加两个标签：{N9}上10页 {N10}下10页
　　"//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
　　Dim T
　　T=StyleB()
　　"//前十页
　　M="|<<"
　　If CurrPage-10>=1 Then
　　 M="<a href=""&UrlStr&"Page="&CurrPage-10&"">"&"|<<"&"</a>"
　　End If
　　T=Replace(T,"{N9}",M)
　　M=">>|"
　　If CurrPage+10<=TotalPage Then
　　 M="<a href=""&UrlStr&"Page="&CurrPage+10&"">"&">>|"&"</a>"
　　End If
　　T=Replace(T,"{N10}",M)
　　StyleC=T
　　End Function

　　Private Function StyleD()
　　"//此风格在StyleC的基础上修改
　　"//共{N8}条记录 {N6}页 当前为第{N5}页 每页{N7}条

数据挖掘实验室

　　"//首页 |< |<< 1 2 3 4 5 6 7 >>| >| 尾页
　　"//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
　　Dim T
　　T=StyleC()
　　T=Replace(T,"{N8}",TotalRecord)
　　T=Replace(T,"{N6}",TotalPage)
　　T=Replace(T,"{N5}",CurrPage)
　　T=Replace(T,"{N7}",PageN)
　　StyleD=T
　　End Function 数据挖掘实验室

　　End Class
　　%> 数据挖掘研究院