7 kwi 2008

Lista obrazków w przeglądarce

<SCRIPT LANGUAGE="VBScript">
  Dim images

  Set images = document.all.tags("IMG")
  cnt_images = images.length

  for i = 0 to cnt_images - 1
  img_src = images(i).src
  document.write(img_src)
  next
</SCRIPT>