<%
	Function CheckKey(sFlag)
		Dim cCheckKey
		Dim sRet
		Dim sStr
		set cCheckKey=server.CreateObject("LKOAPubFun.LKOACheckKey")	
		sRet=cCheckKey.CheckKey (&HC44C,&HC8F8,"Active")
		set ccheckkey=nothing
		
		select case sRet
			Case "SUCCESS"
				sStr="OK"
				CheckKey=3
			Case "NOFILE"
				sStr="系統文件丟失，不能使用"
				CheckKey=1
			Case else
				sStr="沒有注冊,軟件已使用" & sRet & "天,還能使用" & 30-sRet & "天"
				if sRet>30 or sRet<0 then
					CheckKey=2
					sStr="OK"
				else
					CheckKey=0
				end if
		end select		
		if sFlag = "ShowMsg" then
			if sStr<>"OK" and sStr<>"NOFILE"then			
				Response.Write "<SCRIPT LANGUAGE=VBscript>" & vbcrlf
				Response.Write "<!--" & vbcrlf
				Response.Write "msgbox """ & sStr  & """,,""請及時注冊""" & vbcrlf
				Response.Write "//-->" & vbcrlf
				Response.Write "</SCRIPT>" & vbcrlf		
			end if
		end if
	end function		
	
	dim CK_CheckKeyStr
	CK_CheckKeyStr = CheckKey("No")
	if CK_CheckKeyStr <> 0 then
		if CK_CheckKeyStr =1 then
			Response.Write "<p><Font color=red size=2><B>系統文件丟失，不能使用，建議重新安裝聚源數據辦公助手。</B></font></p>"
		end if
		if CK_CheckKeyStr =2 then
			'Response.Write "<p><Font color=red size=2><B>軟件沒有注冊，請及時注冊！</B></font></p>"
		end if
		if CK_CheckKeyStr =3 then
			Response.Write "<p><Font color=red size=2><B>非法注冊！請購買正版軟件！</B></font></p>"
		end if
		'Response.End 
	end if	
%>