支持多风格变换的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
　　%>