<%
'<!-----------------------------------------------分页功能模块------开始----------------------------------------------->
'分页函数
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 '如果分页变量小于1,则将分页变量设为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="<< "
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
'<!-----------------------------------------------分页功能模块------结束----------------------------------------------->
%>