'插件引用
	Document.write("<OBJECT classid=clsid:D40EEC21-337A-45E5-82C7-430BADAF2D92 id=ET99 name=ET99 STYLE='LEFT: 0px; TOP: 0px' width=0 height=0></OBJECT>")

	'測(cè)試是否安裝，安裝過返回true
	function Check()	
		On Error Resume Next
		dim	Ts
			Ts = ET99.Test
			If Err Then 
				Check = false
			else
				Check = true
			End If
	End Function
	
	'用戶已經(jīng)安裝客戶端就自動(dòng)啟動(dòng)，沒有安裝則下載
	If not Check() Then
		'沒有安裝Ukey驅(qū)動(dòng) 
  	window.parent.document.form1.ready.value = ""
		window.parent.document.getElementById("sErr").innerHTML = "<a href='/inc/key/ukey_driver_10.exe' target='_blank'><font color='#0000CC'><b>安裝驅(qū)動(dòng)！</b></font></a>"
	Else
		Dim snID
		snID=ET99.GetSN
		
		Dim Digest
		ET99.RndData = window.parent.document.getElementById("RndData").value
		'MsgBox window.parent.document.getElementById("RndData").value
		Digest=ET99.MD5HMAC
		
		if snID="Error" or Digest="Error" then 
		  'Ukey錯(cuò)誤
			window.parent.document.form1.ready.value = ""
			window.parent.document.getElementById("snID").innerHTML =  "<input type='hidden' name='snID' Value=''>"
			window.parent.document.getElementById("Digest").innerHTML =  "<input type='hidden' name='Client_Digest' Value=''>"
			window.parent.document.getElementById("sErr").innerHTML = "<font color='#cc0000'><b>插入U(xiǎn)KEY！</b></font>"
		Else 
		  'Ukey正確
			window.parent.document.form1.ready.value = "1"
			window.parent.document.getElementById("snID").innerHTML =  "<input type='hidden' name='snID' Value='" & snID & "'>"
			window.parent.document.getElementById("Digest").innerHTML =  "<input type='hidden' name='Client_Digest' Value='" & Digest & "'>"
			window.parent.document.getElementById("sErr").innerHTML = "<font color='#00cc00'><b>找到UKEY！</b></font>"
		end if

	End If