试下:
Set oLink=Description.Create()
olink("tag Name").value="A"
Set sRecords=objInvoicePage.Frame("Frame").ChildObjects(oLink)
LinkNumbers=sRecords.Count()
Msgbox LinkNumbe
Dim oLink
Set oLink= Description.Create
oLink("micclass").value = "link"
oLink("html tag").Value = "A"
Set sRecords=objInvoicePage.Frame("Frame").ChildObjects(oLink)
LinkNumbers=sRecords.Count()
Msgbox LinkNumbers