ÿþ'_ËY

sub window_onload()

	GoToPng

end sub



sub PngImageChange()

	for pngi=0 to document.images.length-1

		set img = document.images(pngi)

		if right(lcase(img.src),4)=".png" then

			t1=img.style.cssText

			if instr(t1,"%")>0 then

				t3="scale"

			else

				t3="image"

			end if

			t2="filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(src='"&img.src&"',sizingMethod='"&t3&"')"

			if t1<>"" then t2=t1&";"&t2

			img.style.cssText=t2

			img.src="Images/noimage.gif"

		end if

	next

end sub

sub GoToPng()

	if GetIEVer then

		PngImageChange

	end if

end sub





'/f&T
N/e
cpng

function GetIEVer()

	if navigator.platform = "Win32" and navigator.appName = "Microsoft Internet Explorer" and instr(navigator.appVersion,"MSIE 7")=0 and instr(navigator.appVersion,"MSIE 8")=0 then

		GetIEVer=true

	else

		GetIEVer=false

	end if

end function