????’============================================
????If currentPage >1 Then
????pageObj.Link("pageLink").SetTOProperty "text"??currentPage
????pageObj.Link("pageLink").SetTOProperty "href"??"javascript:forward("&currentPage&")"
????pageObj.Link("text:="&currentPage).Click
????pageObj.Sync
????msgbox  pageObj.GetROProperty("url")
????End If
????’?????????????????????????
????numRows = WebTable_Obj.GetROProperty("rows")
????msgbox numRows
????For i=2 to numRows
????ItemStr =Cstr(WebTable_Obj.GetCellData(i??1))
????If trim(ItemStr) = trim(searchStr)  Then
????reporter.ReportEvent 0??"???????"??"???λ???"&currentPage&"?????"&i&"??"
????Finded = true
????Exit For
????End If
????Next
????’?????????
????If finded = true Then
????Exit For
????End If
????Next
????If finded = false Then
????msgbox "???????????"
????End If