checkkey.asp

一个oa软件 有的地方不太好使 但是因为是开放代码 有基础的人该该就应该可以了

<%
	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	
%>