#1

' 重新設置每頁的記錄數

Function setRecordsPerPage()

If IsNumeric(RecordsPerPage.Value) Then

intRecordsPerPage = CInt(RecordsPerPage.Value)

window_onload

End If

End Function

' 顯示頁數信息

Function setPageCount()

Dim intTotalRecords

PageCount.innerHTML = getNumberOfPages(intTotalRecords)

RecordCount.innerHTML = intTotalRecords

CurrentPage.innerHTML = 1

End Function

' 計算總頁數和總記錄數

Function getNumberOfPages(intTotalRecords)

Dim intPages

intTotalRecords = Data.XMLDocument.selectNodes("/*/*").length

intPages = intTotalRecords / intRecordsPerPage

If InStr(intPages, ".") > 0 Then

intPages = CInt(Left(intPages, InStr(intPages, "."))) + 1

End If

getNumberOfPages = intPages

End Function

' “下一頁”的處理

Function nextPage(intPage)

Dim strDisplay

Dim strDateRange

If CInt(CStr(intPage) * intRecordsPerPage)

intPage = CInt(intPage) + 1

Style.XMLDocument.selectNodes("//@OnClick")(1).Value = "previousPage(" & intPage & ")"

Style.XMLDocument.selectNodes("//@OnClick")(2).Value = "nextPage(" & intPage & ")"

Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).Value = "./*[position() <= " & (CStr(intPage) * intRecordsPerPage) & " and position() > " & (CInt(intPage) - 1) * intRecordsPerPage & "]"

redisplay (intPage)

End If

End Function

' 處理“上一頁”

Function previousPage(intPage)

Dim strDisplay

Dim strDateRange

If intPage > 1 Then

intPage = CInt(intPage) - 1

Style.XMLDocument.selectNodes("//@OnClick")(1).Value = "previousPage(" & intPage & ")"

Style.XMLDocument.selectNodes("//@OnClick")(2).Value = "nextPage(" & intPage & ")"

Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).Value = "./*[position() <= " & (CStr(intPage) * intRecordsPerPage) & " and position() > " & (CInt(intPage) - 1) * intRecordsPerPage & "]"

redisplay (intPage)

End If

End Function

' “第一頁”的處理

Function FirstPage()

Style.XMLDocument.selectNodes("//@OnClick")(1).Value = "previousPage(1)"

Style.XMLDocument.selectNodes("//@OnClick")(2).Value = "nextPage(1)"

Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).Value = "./*[position()  0]"

transform()

setPageCount()

End Function

' “最末頁”的處理

Function LastPage()

Dim intTotalPages

Dim intTotalRecords

intTotalPages = getNumberOfPages(intTotalRecords)

nextPage (intTotalPages - 1)

End Function

華軟新元北京總部全體員工

guoyan用戶賬號>

郭燕姓名>

行政部部門>

外事與文案助理職位>

guoyan@dd.com電子郵件>

員工>

總部員工>

Function getName(node)

getName = node.Item(0).nodeName

End Function

]]>