'直接退出
sub win_close()
	window.close
end sub
'提示是否離開,离开后直接关页面
'参数1：提示
'参数2: 标题
'参数3: 打开页面url
'例如：
'win_close2 "","",""   win_close2 '','',''
'win_close2 "","","1"
'(win_close2("","","2")=true)
'win_close2 "","","http://www.baidu.com"
function win_close2(question_,title_,url)
	dim title,Location
	title=ucase(document.title)
	Location=instr(title,"V")
	if Location=0 then 
		Location=Len(title)
	else
		Location=Location-1
	end if
	title=left(title,Location)
	if question_=""then
		question_="您真的要退出"&title&"嗎？"
	end if
	if title_=""then
		title_="X-POS雲通商務網"
	end if
	if msgbox (question_,VBYesNo+256,title_)=VBYes then
		'按下“是”時
		if url="" or url="0" then
			window.close
		elseif url="1"then
			window.history.go(-1)
		elseif url="2"then
			win_close2=true
		else
			window.location.href=url
		end if
	else
		'按下“否”時
	end if
end function

Function Ean(ByVal cnItemNo,ByVal lNotUdfNo)    
		Dim nTotSing,nTotDubl,nTempNo1
		If lNotUdfNo="" Then
			lNotUdfNo=False
		End If
		cnItemNo=Trim(CStr(cnItemNo))
		If IsNumeric(cnItemNo) Then
			If Len(cnItemNo)>=13 Then
				cnItemNo=Mid(cnItemNo,1,13)
			Else
				cnItemNo=Right(String(13,"0")&cnItemNo,13)
			End If
			nTempNo1=CInt(Mid(cnItemNo,1,3))
			If Not lNotUdfNo And (nTempNo1>=22 And nTempNo1<=26) Then
				cnItemNo=Mid(cnItemNo,1,9)+"00000"
			End If
			nTotSing=(CInt(Mid(cnItemNo,1,1))+CInt(Mid(cnItemNo,3,1))+CInt(Mid(cnItemNo,5,1))+CInt(Mid(cnItemNo,7,1))+CInt(Mid(cnItemNo,9,1))+CInt(Mid(cnItemNo,11,1))+CInt(Mid(cnItemNo,13,1)))*3
			nTotDubl=CInt(Mid(cnItemNo,2,1))+CInt(Mid(cnItemNo,4,1))+CInt(Mid(cnItemNo,6,1))+CInt(Mid(cnItemNo,8,1))+CInt(Mid(cnItemNo,10,1))+CInt(Mid(cnItemNo,12,1))
			cnItemNo=cnItemNo&Right(CStr(1000-nTotSing-nTotDubl),1)
			Ean=cnItemNo
		Else
			Ean=0
		End If
End Function