"
End Sub
Sub AdminAlert(CD_Msg,CD_Url,CD_Type)
If CD_Type=1 Then
Response.Write ""
Else
Response.Write "
"
Response.Write ""
Response.Write "
"
End If
End Sub
Function List_Page(Numbers,Perpage,Curpage,Url_Add,PageA,OffsetA)
'Numbers ------- 数据总数
'Perpage ------- 每页数量
'CurPage ------- 当前页数
'Url_Add ------- 文件地址
ListUrl=Url_Add&"page="
List_Page=""
Dim Page,Offset,PageI
If Int(Numbers)>Int(PerPage) Then
Page=PageA
Offset=OffsetA
Dim Pages,FromPage,ToPage
If Numbers Mod Cint(Perpage)=0 Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
End If
FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
If Page>Pages Then
FromPage=1
ToPage=Pages
Else
If FromPage<1 Then
Topage=Curpage+1-FromPage
FromPage=1
If (ToPage-FromPage)Pages Then
FromPage =Curpage-Pages +ToPage
ToPage=Pages
If (ToPage-FromPage)共有 "&Numbers&" 条记录 "
List_Page=List_Page&"首页"
If Curpage>1 Then
List_Page=List_Page&"上一页"
End If
For PageI=FromPage TO ToPage
If PageI<>CurPage Then
List_Page=List_Page&""&PageI&""
Else
List_Page=List_Page&""&PageI&""
End If
Next
If Curpage下一页"
End If
List_Page=List_Page&"末页"
End If
End Function
%>