<% Response.Buffer = True %>
<!-- #INCLUDE FILE = "CheckSession.asp"-->
<%
	Function ConnCheckKey(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"
				ConnCheckKey=3
			Case "NOFILE"
				sStr="系統(tǒng)文件丟失，不能使用"
				ConnCheckKey=1
			Case else
				sStr="沒有注冊,軟件已使用" & sRet & "天,還能使用" & 30-sRet & "天"
				if sRet>30 or sRet<0 then
					ConnCheckKey=2
					sStr="OK"
				else
					ConnCheckKey=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 CheckKeyStr 
	CheckKeyStr = ""
	CheckKeyStr = ConnCheckKey("No")
	if CheckKeyStr <> 0 then
		if CheckKeyStr =1 then
			Response.Write "<p><Font color=red size=2><B>系統(tǒng)文件丟失，不能使用，建議重新安裝聚源數(shù)據(jù)辦公助手。</B></font></p>"
		end if
		if CheckKeyStr =2 then
			'Response.Write "<p><Font color=red size=2><B>軟件沒有注冊，請及時注冊！</B></font></p>"
		end if
		if CheckKeyStr =3 then
			Response.Write "<p><Font color=red size=2><B>非法注冊！請購買正版軟件！</B></font></p>"
		end if
		'Response.End 
	end if
	
	Dim Conn
	on error resume next
	Set Conn=server.CreateObject ("ADODB.CONNECTION")
	Conn.Open Application("ConnectString")
	if Err<>0 then
	%>
		<script language="vbscript">
			msgbox "無法連接數(shù)據(jù)庫！錯誤信息:" & chr(13)  & chr(13) & "<%=Err.Description%>",vbCritical,"錯誤"
		</script>
	<%	
		Response.End 
	end if
	on error goto 0
%>

<%

Function conStr(data)
   dim res1,res2,cons
	on error resume next
   res1=instr(1,data,"<",1)
   if  res1<>0 then
       cons = replace(data,"<","&lt")
   else
       cons=data    
   end  if 
   res2=instr(1,cons,">",1)
   if res2<>0 then
      cons = replace(cons,">","&gt")
   else
       cons=cons   
   end if         
   constr = Replace(cons,"'","''")
End Function 
 
 function constr1(data)
 constr1=replace(data,"'","''")
 end function
function constri(data)
    dim res1,res2,cons
 
   res1=instr(1,data,"<",1)
   if  res1<>0 then
       cons = replace(data,"<","&lt")
   else
       cons=data    
   end  if 
   res2=instr(1,cons,">",1)
   if res2<>0 then
      cons = replace(cons,">","&gt")
   else
       cons=cons   
   end if  
   constri=cons       
end function
function constrj(keybord)
   constrj = replace(data,">","&gt")
end function

%>