<%
Function beginAdminHtml()
%>
<%
Response.Write html_admin_title
%>
<%
End Function
Function beginAdminTitle(strMessage)
%>
<%=strMessage%>
<%
End Function
Function alertMessage(strMessage)
If strMessage <> "" Then
%>
<%
End If
End Function
Function goBack(strMessage)
If strMessage <> "" Then
%>
<%
End If
Response.End
End Function
Function goURL(strMessage, strURL)
If strMessage <> "" Then
%>
<%
End If
Response.End
End Function
Function closeWin(strMessage)
If strMessage <> "" Then
%>
<%
End If
Response.End
End Function
Function showPageButton(objRs, intCurrentPage, strCurrentPage, strWebAddress)
If intCurrentPage > 1 Then
If intCurrentPage < objRs.PageCount Then
%>
<%
Else
%>
<%
End If
Else
If intCurrentPage < objRs.PageCount Then
%>
<%
Else
%>
<%
End If
End If
%>
<%
Response.Write "" & intCurrentPage & "/" & objRs.PageCount & "页 共" & objRs.RecordCount & "条记录"
End Function
Function showFrontPageButton(objRs, intCurrentPage, strCurrentPage, strWebAddress)
If intCurrentPage > 1 Then
If intCurrentPage < objRs.PageCount Then
%>
首页上一页下一页尾页
<%
Else
%>
首页上一页
下一页
尾页
<%
End If
Else
If intCurrentPage < objRs.PageCount Then
%>
首页
上一页
下一页尾页
<%
Else
%>
首页
上一页
下一页
尾页
<%
End If
End If
%>
第<%=intCurrentPage%>页 共<%=objRs.PageCount%>页
<%
End Function
Function showNumberPageButton(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
%>
7
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
Next
End If
%>
8
<%
End Function
Function showNumberPageButton1(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
%>
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
Next
End If
%>
<%
End Function
Function showNumberPageButtonNew(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
Dim flag
%>
7
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
flag = 0
If intCurrentPage > i_page Then
If (intCurrentPage - i_page) < 8 Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage < i_page Then
If ((intCurrentPage - i_page) > -8) Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage = i_page Then
flag = 1
End If
If flag = 1 Then
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
End If
Next
End If
%>
8
<%
End Function
Function showNumberPageButtonRed(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
Dim flag
%>
7
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
flag = 0
If intCurrentPage > i_page Then
If (intCurrentPage - i_page) < 8 Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage < i_page Then
If ((intCurrentPage - i_page) > -8) Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage = i_page Then
flag = 1
End If
If flag = 1 Then
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
End If
Next
End If
%>
8
<%
End Function
%>
<%
End Function
Function showNumberPageButtonNew(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
Dim flag
%>
7
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
flag = 0
If intCurrentPage > i_page Then
If (intCurrentPage - i_page) < 8 Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage < i_page Then
If ((intCurrentPage - i_page) > -8) Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage = i_page Then
flag = 1
End If
If flag = 1 Then
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
End If
Next
End If
%>
8
<%
End Function
Function showNumberPageButtonRed(objRs, intCurrentPage, strCurrentPage, strWebAddress)
Dim i_page
Dim flag
%>
7
<%
If objRs.PageCount <= 1 Then
%>
1
<%
Else
For i_page = 1 To objRs.PageCount
flag = 0
If intCurrentPage > i_page Then
If (intCurrentPage - i_page) < 8 Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage < i_page Then
If ((intCurrentPage - i_page) > -8) Then
flag = 1
Else
flag = 0
End If
End If
If intCurrentPage = i_page Then
flag = 1
End If
If flag = 1 Then
If intCurrentPage = i_page Then
%>
<%=i_page%>
<%
Else
%>
<%=i_page%>
<%
End If
End If
Next
End If
%>
8
<%
End Function
%>