QTP的分页，另一种方法

'************************************************************************
'功能：分页
'说明：对于需要调用此方法的使用者，可以自己改造，例如对于
' 检查页面值时，可以使用While...Wend 语句，判断当前页是否包括
'如果没有点击下一页或者上一页。

'intTotal_Page 总页数 intCur_Page 当前页
'************************************************************************
 Public Sub Pagination ()
    Reporter.ReportEvent micDone ,"调用 Pagination ()","Start"
 intTotal_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=total_page").GetROProperty("innertext")
    msgbox  intTotal_Page
 intCur_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=cur_page").GetROProperty("innertext")
 msgbox  intCur_Page
    If (intTotal_Page=0and intCur_Page=0)or (intTotal_Page=1and intCur_Page=1) Then
   Reporter.ReportEvent micpass ,"分页","没有分页"
  End If
  if  (intCur_Page<intTotal_Page)  then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_go.gif").Click
   end if
  If  (intTotal_Page= intCur_Page) then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_back.gif").Click
   end if 
    Reporter.ReportEvent micDone ,"调用 Pagination ()","End"
End Sub