'开始
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


'是否不支持png
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