'打开一个新窗口
 	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