'接管页面点击事件
	sub document_onclick()				
		Dim srcElement             
		Dim strTemp		
		Dim UserName
		Dim password
		'用户点击软件图片按钮				
		If Ucase(window.event.srcElement.tagName)="SPAN" then 
            set srcElement = window.event.srcElement 		    
		    Select Case srcElement.id
				Case "jiajiao"  '点击精彩欣赏图片
					strTemp = srcElement.dataSrc
					Dim arrSplit
					arrSplit = split(strTemp,"|")				
					dim TypeID
					dim TypeName
					TypeID = arrSplit(0)
					TypeName = arrSplit(1)
					OpenWin1 "EnterSoft.asp?TypeID=" & TypeID & "&TypeName=" & TypeName,650,510
																								
			End select 				
		End if 	
		'用户点击软件图片按钮		
		If Ucase(window.event.srcElement.tagName)="SPAN" then 
            set srcElement = window.event.srcElement 		    
		    '判断帐号有效性
			UserName = "user001"
			Password = "123456"	     
		    if srcElement.id="xiaoxue" then   '点击精彩欣赏图片
					strTemp = srcElement.dataSrc
					
					on error resume next	
					dim pupDownload	
					Set pupDownload = CreateObject("PSRun.IEAutoRun")
					if pupDownload is nothing then  '
						msgbox "您还没有安装《小学英语》!请先安装《小学英语》"
					else															
						pupDownload.RunPupil UserName, Password ,cstr(strtemp)
						
					end if 	
					  
			end if	
		end if				
	End sub
	
		Sub Document_onmouseover()
			Dim srcElement             
			Dim strTemp						
		
			dim SourceUrl
			if UCase(window.event.srcElement.tagName) = "SPAN"  then 		   
				window.event.srcElement.style.cursor = "hand"   '变手形
				window.event.srcElement.style.backgroundColor="#E5EDFE"
			end if
		
			End Sub
		Sub document_onmouseout
			if UCase(window.event.srcElement.tagName) = "SPAN"  then 		   
				window.event.srcElement.style.backgroundColor=""
			end if
					
	
		End Sub
	Sub  OpenWin1(sLogoUrl,nWidth,nHeight)
	
		Dim  HicrownLogo
		Dim nLeft,nTop
		
		nLeft = (cint(window.screen.width)-nWidth) / 2
		nTop = (cint(window.screen.height)-nHeight) / 2
		dim winId		
		set winId = window.open( sLogoUrl,"HicrownLogo","width=" & nWidth & ",height="& nHeight & ",resizable=no,top=" &  nTop &  " , left=" &  nLeft &  ",scrollbars=yes",true)
		winId.focus
        End Sub

	Sub  OpenWin(sLogoUrl,nWidth,nHeight)
	
		Dim  HicrownLogo
		Dim nLeft,nTop
		
		nLeft = (cint(window.screen.width)-nWidth) / 2
		nTop = (cint(window.screen.height)-nHeight) / 2
		dim winId		
		set winId = window.open( sLogoUrl,"HicrownLogo","width=" & nWidth & ",height="& nHeight & ",resizable=no,top=" &  nTop &  " , left=" &  nLeft &  ",scrollbars=no",true)
		winId.focus
     End Sub