Dim thide
thide=0

function ShowSpan(obj)
	obj.style.display=""
end function

function HideSpan(obj)
	obj.style.display="none"
end function

function noHide()
thide=0
end function

function HideSpan1()
		thide=1
		id=setTimeOut("HideSpan3()",1000,"vbscript")
end function

sub HideSpan3()
if thide=1 then
	if len(shanghai.style.display)=0 then	shanghai.style.display="none"	end if
	if len(haerbin.style.display)=0 then	haerbin.style.display="none"	end if
	if len(changchun.style.display)=0 then	changchun.style.display="none"	end if
	if len(xianyang.style.display)=0 then	xianyang.style.display="none"	end if
	if len(sanmenxia.style.display)=0 then	 sanmenxia.style.display="none"	end if
	if len(jining.style.display)=0 then	jining.style.display="none"	end if
	if len(anshan.style.display)=0 then	anshan.style.display="none"	end if
	if len(zhengzhou.style.display)=0 then	zhengzhou.style.display="none"	end if
	if len(kaifeng.style.display)=0 then	kaifeng.style.display="none"	end if
	if len(luoyang.style.display)=0 then	luoyang.style.display="none"	end if
	if len(huhehaote.style.display)=0 then	huhehaote.style.display="none"	end if
	if len(nanchang.style.display)=0 then	nanchang.style.display="none"	end if
	if len(wuhan.style.display)=0 then	wuhan.style.display="none"	end if
	if len(zibo.style.display)=0 then	zibo.style.display="none"	end if
	if len(yuxi.style.display)=0 then	yuxi.style.display="none"	end if
	if len(ningbo.style.display)=0 then	ningbo.style.display="none"	end if
	if len(luoyang.style.display)=0 then	luoyang.style.display="none"	end if
	if len(yuxi.style.display)=0 then	yuxi.style.display="none"	end if
	if len(dalian.style.display)=0 then	dalian.style.display="none"	end if
	if len(wuxi.style.display)=0 then	wuxi.style.display="none"	end if
	if len(daqing.style.display)=0 then	daqing.style.display="none"	end if
	if len(baoding.style.display)=0 then	baoding.style.display="none"	end if
	if len(baotou.style.display)=0 then	baotou.style.display="none"	end if
	if len(jinan.style.display)=0 then	jinan.style.display="none"	end if
	if len(shijiazhuang.style.display)=0 then	shijiazhuang.style.display="none"	end if
	if len(handan.style.display)=0 then	handan.style.display="none"	end if
	if len(zhenjiang.style.display)=0 then	zhenjiang.style.display="none"	end if
end if
end sub

function HideSpan2()
	thide=0
	if IsObject(shanghai.style) then	shanghai.style.display="none" end if
	if IsObject(haerbin.style) then	haerbin.style.display="none" end if
	if IsObject(changchun.style) then	changchun.style.display="none"	end if
	if IsObject(xianyang.style) then	xianyang.style.display="none"	end if
	if IsObject(sanmenxia.style) then	sanmenxia.style.display="none"	end if
	if IsObject(jining.style) then	jining.style.display="none"	end if
	if IsObject(anshan.style) then	anshan.style.display="none"	end if
	if IsObject(zhengzhou.style) then	zhengzhou.style.display="none"	end if
	if IsObject(kaifeng.style) then	kaifeng.style.display="none"	end if
	if IsObject(luoyang.style) then	luoyang.style.display="none"	end if
	if IsObject(huhehaote.style) then	huhehaote.style.display="none"	end if
	if IsObject(nanchang.style) then	nanchang.style.display="none"	end if
	if IsObject(wuhan.style) then	wuhan.style.display="none"	end if
	if IsObject(zibo.style) then	zibo.style.display="none"	end if
	if IsObject(yuxi.style) then	yuxi.style.display="none"	end if
	if IsObject(ningbo.style) then	ningbo.style.display="none"	end if
	if IsObject(luoyang.style) then	luoyang.style.display="none"	end if
	if IsObject(wuxi.style) then	wuxi.style.display="none"	end if
	if IsObject(daqing.style) then	daqing.style.display="none"	end if   
	if IsObject(baoding.style) then	baoding.style.display="none"	end if   
	if IsObject(baotou.style) then	baotou.style.display="none"	end if   
	if IsObject(jinan.style) then	jinan.style.display="none"	end if   
	if IsObject(shijiazhuang.style) then	shijiazhuang.style.display="none"	end if   
	if IsObject(handan.style) then	handan.style.display="none"	end if   
	if IsObject(dalian.style) then	dalian.style.display="none"	end if   
	if IsObject(zhenjiang.style) then	zhenjiang.style.display="none"	end if	
end function

Dim tdBgColor
Dim tflag
tflag=0

function ChangeBg(td0,td1,tdimg)
tdBgColor=td0.bgcolor
td0.bgcolor="#F26522"
td1.bgcolor="#F26522"
if right(tdimg.src,6)="on.jpg" then
	tflag=1
else
	tflag=0
end if
tdimg.src=replace(tdimg.src,"off","on")
end function

function unChangeBg(td0,td1,tdImg)
td0.bgcolor=tdBgColor
td1.bgcolor=tdBgColor
if tflag=1 then
	tdimg.src=replace(tdimg.src,"off","on")
else
	tdimg.src=replace(tdimg.src,"on","off")
end if
end function