dim g_ImgUrl
	sub document_onmouseover()
		dim SourceUrl
		if UCase(window.event.srcElement.tagName) = "IMG"  then 		   
		   SourceUrl = window.event.srcElement.src
		   if Instr(SourceUrl,"_1") > 0 or Instr(SourceUrl,"_3") > 0  then  '浮动页面

				window.event.srcElement.style.cursor = "hand"   '变手形
				g_ImgUrl = 	window.event.srcElement.src
				if Instr(SourceUrl,"_1") > 0 then 					
					window.event.srcElement.src = Replace(SourceUrl,"_1","_2")
				end if
				
				if Instr(SourceUrl,"_3") > 0 then 					
					window.event.srcElement.src = Replace(SourceUrl,"_3","_2")
				end if 
								
			end if 
		end if 								
	
	end sub
	
	Sub Document_onmouseout()
		
		dim SourceUrl
		if UCase(window.event.srcElement.tagName) = "IMG"  then
			SourceUrl = window.event.srcElement.src
			if Instr(SourceUrl,"_2") > 0 then 
				window.event.srcElement.src = g_ImgUrl
			end if 
		end if 
			
	end sub
	Sub document_onclick()
		Dim eventElt 
		set eventElt = window.event.srcElement		
		if Lcase(eventElt.className) = "title_2" then 
			
			if eventElt.nextSibling.style.display = "none" Then 
				eventElt.nextSibling.style.display = "block"
				eventElt.title = "点击隐藏节点内容"
			else
				
				eventElt.nextSibling.style.display = "none"
				eventElt.title = "点击隐藏节点内容"
			end if
		end if 
					
	End Sub
	
	Sub window_onload()
		
		Dim objDiv		
		For each objDiv in document.all.tags("DIV")
			if Lcase(objDiv.className) = "content" then 
				objDiv.style.display = "none"
			End if 
			
			if Lcase(objDiv.className) = "title_2" then 
				objDiv.style.cursor = "hand"
				objDiv.title = "点击查看详细内容"
			end if 
		Next
		
				
			
		
		
	End sub