我用Biokey.ocx指纹仪控件指纹数据保存进数据库了但怎么读出数据验证指纹呢

hhfh 2006-11-04 12:04:56

Sub ZKFPEngX1_OnCapture(ActionResult,ATemplate)
Dim Score
dim ProcessNum
dim fi
dim user

If FMatchType = 2 Then '1:N
Score = 8

fi = ZKFPEngX1.IdentificationInFPCacheDB(fpcHandle, ATemplate, cint(Score), cint(ProcessNum))
alert(fi)
If fi < 0 Then
alert("该用户不存在！")
Else
user = "fpnameid"+cstr(fi)
user = document.getElementById(user).value
alert("验证成功,姓名为:"+user)
document.form1.hidfinger1.value=user
document.form1.bsp.value=1
document.form1.submit()

End If
End If
End Sub

读取数据
<%
dim counts
dim arrTemp()
dim fpname()

'counts=0 'fpfs(counts)=rs_s("fingerprint")
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from FPfeature ",conn,1,1
rs_s.MoveFirst()
redim arrTemp(rs_s.recordcount-1)
redim fpname(rs_s.recordcount-1)

Response.Write("<INPUT type=hidden id=hdnArrValue name=ArrValue value=""" & rs_s.recordcount & """>" & vbCrLf)
while not rs_s.EOF
arrTemp(counts)=rs_s("fingerprint")
fpname(counts)=rs_s("fpName")
counts=counts+1
rs_s.MoveNext()
wend

for i=0 to UBound(arrTemp) step 1
Response.Write("<INPUT type=text id=""hdnArrValue" & i & """ name=""ArrValue" & i & """ value=""" & arrTemp(i) & """>" & vbCrLf)
Response.Write("<INPUT type=text id=""fpnameid" & i & """ name=""fpnamen" & i & """ value=""" & fpname(i) & """>" & vbCrLf)
next
rs_s.close
set rs_s=nothing
conn.Close
set conn = nothing%>

...全文