Call Init()
Select Case Style
Case 1
Response.Write StyleA()
Case 2
Response.Write StyleB()
Case 3
Response.Write StyleC()
Case 4
Response.Write StyleD()
Case Else
ErrInfo=ErrInfo&"不存在当前样式..."
Response.Write ErrInfo
End Select
End Sub
Public Function ShowStyle(Style)
If IsErr=True Then
ShowStyle=ErrInfo
Exit Function
End If Call Init()
Select Case Style
Case 1
ShowStyle= StyleA()
Case 2
ShowStyle= StyleB()
Case Else
ErrInfo=ErrInfo&"不存在当前样式..."
ShowStyle=ErrInfo
End Select
End Function 数据挖掘工具
Private Function StyleA()
"首页 上一页 下一页 尾页 本页为第1/20页，共20页，每页10条，文章总数200条
"//分页样例：[首页] [上页] [下页] [尾页] [页次：4/5页] [共86篇 20篇/页] 转到：_ 页
"//标签：{N1} {N2} {N3} {N4} || 共:{N8}条记录 {N6}页 当前为第{N5}页 每页{N7}条
If IsEmpty(TempStr) Then
ErrInfo=ErrInfo&"模板为空..."
StyleB=ErrInfo
Exit Function
End If
Dim M
If TotalPage>1 Then
If CurrPage>1 Then
M="<a href=""&UrlStr&"Page=1">"&"首页"&"</a>"
TempStr=Replace(TempStr,"{N1}",M)
M="<a href=""&UrlStr&"Page="&CurrPage-1&"">"&"上一页"&"</a>"
TempStr=Replace(TempStr,"{N2}",M)
If CurrPage<TotalPage Then
M="<a href=""&UrlStr&"Page="&CurrPage+1&"">"&"下一页"&"</a>" 数据挖掘交友
TempStr=Replace(TempStr,"{N3}",M)
M="<a href=""&UrlStr&"Page="&TotalPage&"">"&"尾页"&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
Else
TempStr=Replace(TempStr,"{N3}","下一页")
TempStr=Replace(TempStr,"{N4}","尾页")
End If
Else
TempStr=Replace(TempStr,"{N1}","首页")
TempStr=Replace(TempStr,"{N2}","上一页")
M="<a href=""&UrlStr&"Page="&CurrPage+1&"">"&"下一页"&"</a>"
TempStr=Replace(TempStr,"{N3}",M)
M="<a href=""&UrlStr&"Page="&TotalPage&"">"&"尾页"&"</a>"
TempStr=Replace(TempStr,"{N4}",M) 数据挖掘工具
End If
Else
TempStr=Replace(TempStr,"{N1}","首页")
TempStr=Replace(TempStr,"{N2}","上一页")
TempStr=Replace(TempStr,"{N3}","下一页")
TempStr=Replace(TempStr,"{N4}","尾页")
End If
T=TempStr
T=Replace(T,"{N8}",TotalRecord)
T=Replace(T,"{N6}",TotalPage)
T=Replace(T,"{N5}",CurrPage)
T=Replace(T,"{N7}",PageN)
TempStr=T
StyleA=TempStr
End Function
数据挖掘研究院
