<%
'<!-----------------------------------------------分页功能模块------开始----------------------------------------------->

'分页函数
Function A_Asp_Page_Function(Content)
CurrentPage=Int(Request.QueryString("Page"))

If instr(Content,"|||")>0 Then
'手动分页
Contenttemp=split(Content,"|||")
PageCountn=ubound(Contenttemp) +1

If CurrentPage<1 Then
CurrentPage=1 '如果分页变量小于１,则将分页变量设为１
End If

If CurrentPage>PageCountn Then
CurrentPage=PageCountn '如果分页变量大总页数，则将分页变量设计为总页数
End If

Content=Contenttemp(CurrentPage-1)

'以上截取出来每一页的文字

Pagebar_Count=10 'Pagebar_Count的意思是每一次显示多少个页码

ListBegin=CurrentPage-Pagebar_Count\2 '从第几页开始显示分页信息
If ListBegin<1 Then
ListBegin=1
End If

ListEnd=CurrentPage+Pagebar_Count\2 '分页信息显示到第几页
If ListEnd>PageCountn Then
ListEnd=PageCountn
End If

If CurrentPage=1 Then
PageBar="<<&nbsp;"
Else
PageBar="<br/><a href=""?Page="&CurrentPage-1&GetUrlStr()&""" class=""page""><<</a> "
End If

For w=ListBegin to ListEnd
If w<=PageCountn Then
If not CurrentPage=w Then
PageBar=PageBar&"<a href=""?Page="&w&GetUrlStr()&""" class=""page"">["&w&"]</a> "
Else
PageBar=PageBar&"<font color=#ff4400>["&w&"]</font> "
End If
End If
Next

If CurrentPage=PageCountn Then
PageBar=PageBar&">>"
Else
PageBar=PageBar&"<a href=""?Page="&CurrentPage+1&GetUrlStr()&""" class=""page"">>></a> "
End If

'Response.Write Content&"<div style=""width:95%; text-align:right;"">"&PageBar&"</div>"

cText = Content
cText = RemoveHrefTag(cReg,cText)

Set aRs = OpenRs("Select * From KeyWord Order By AddDate Desc")

Do While Not aRs.Eof
'aTitle="<a href='"&aRs("Url")&"'>"&aRs("Title")&"</a>"
'cText=REPLACE(cText,aRs("Title"),aTitle)

c_key_Str = aRs("Title")
position = inStr(cText,c_key_Str)
If position>0 then
cText = mid(cText,1,position-1)&"<a href='"&aRs("Url")&"' target='_blank'>"&c_key_Str&"</a>"&mid(cText,position+len(c_key_Str),len(cText))
End if
aRs.Movenext
Loop

Response.Write cText&"<div style=""width:95%; text-align:right;"">"&PageBar&"</div>"
Else
'Response.Write Content

cText = Content
cText = RemoveHrefTag(cReg,cText)

Set aRs = OpenRs("Select * From KeyWord Order By AddDate Desc")

Do While Not aRs.Eof
'aTitle="<a href='"&aRs("Url")&"'>"&aRs("Title")&"</a>"
'cText=REPLACE(cText,aRs("Title"),aTitle)

c_key_Str = aRs("Title")
position = inStr(cText,c_key_Str)
If position>0 then
cText = mid(cText,1,position-1)&"<a href='"&aRs("Url")&"' target='_blank'>"&c_key_Str&"</a>"&mid(cText,position+len(c_key_Str),len(cText))
End if
aRs.Movenext
Loop

Response.Write cText
End If
End Function

'<!-----------------------------------------------分页功能模块------结束----------------------------------------------->
%>