Function SelectBbq(Bbq)
Dim IsFind
IsFind = False
Dim oDescBbq
Set oDescBbq = Description.Create()
oDescBbq("micclass").Value = "Link"
oDescBbq("text").Value = "[1-9]月|10月|11月|12月"
oDescBbq("html tag").Value = "A"
Set oDescBbqCollection = Browser("Wtap2.0").Page("DataManagePage").Frame("CalendarFrame").ChildObjects(oDescBbq)
oDescBbqCollectionCount = oDescBbqCollection.Count
For i = 0 to oDescBbqCollectionCount-1
SearchString = oDescBbqCollection(i).GetRoproperty("outerhtml")
(outerhtml的内容:"<A class=none id="""" style=""WHITE-SPACE: nowrap"" href=""javascript:void(0);"" bbqStr=""200802--"">2月</A>" )
SearchPara = Bbq
nPose= InStr(SearchString, SearchPara)
If nPose <> 0 Then
oDescBbqCollection(i).click
IsFind=True
End If
Next
If IsFind = False Then
Browser("Wtap2.0").Page("DataManagePage").Frame("CalendarFrame").WebElement("前一页").Click
Call SelectBbq(Bbq)
else
Exit Function
End If
End Function作者: FLY000 时间: 2010-11-5 17:41
最后用DOM方法来处理的作者: skyzhu 时间: 2010-11-5 17:56 本帖最后由 skyzhu 于 2010-11-5 18:04 编辑