刚做完一个控件，要求嵌入在C/S结构的网页中，我 在HTML中嵌入vbscript脚本来调用控件中的方法和属性的，为啦以后做个参考，把它的源码给写下来，也希望能给一些同僚们做一个参考。
我的控件接口是：FpGather
在html中的调用
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<h1><center>指纹演示 </center></h1>
<h3> </h3>
<BODY>
<form NAME=MyForm> ‘包含控件的from
<P>模板特征值: </P>
<P><input name=”FeatureTemplate” style=”WIDTH: 910px; HEIGHT: 30px” size =30></P>
<P>特征值:</P>
<P><input name=”Feature” style=”WIDTH: 910px; HEIGHT: 30px” size =30></P>
<P>比对结果:</P>
<P><input name=”Match” style=”WIDTH: 910px; HEIGHT: 30px” size =30></P>
<div></P>
<OBJECT ID=”FpGather” CLASSID=”CLSID:13761DC3-D2C9-4ECE-8143-C12B870D9006″></OBJECT>
<td height=”161″ width=”33%”>
<div align=”left”>
<P> </P>
<P> </P>
<p>
<input TYPE=”button” NAME=”btnEnter” VALUE=”指纹登记” style=”WIDTH: 125px; HEIGHT: 33px”>
<input TYPE=”button” NAME=”btnGather” VALUE=”指纹采集” style=”WIDTH: 125px; HEIGHT: 33px”>
<input TYPE=”button” NAME=”btnMatch” VALUE=”指纹比对” style=”WIDTH: 125px; HEIGHT: 33px”>
</p>
<P></P>
</div>
</td>
</form>
<script LANGUAGE=”VBScript”>
<!–
dim m_Finger
dim m_vtFea1
m_vtFea1=empty
sub btnEnter_OnClick()
m_Finger=MyForm.FpGather.EW_FpEnroll() ‘调用控件方法EW_FpEnroll()
‘msgbox m_Finger
m_vtFea1=MyForm.FpGather.FeatureTemplate ‘调用控件属性FeatureTemplate
MyForm.FeatureTemplate.value=m_vtFea1
End Sub
dim m_vtFea2
m_vtFea2=empty
sub btnGather_OnClick()
MyForm.FpGather.EW_FpCapture()
m_vtFea2=MyForm.FpGather.Feature
MyForm.Feature.value=m_vtFea2
End Sub
dim RetVal
RetVal=0
sub btnMatch_OnClick()
RetVal=MyForm.FpGather.EWFpMatch(DATA_TYPE_BIN,m_vtFea1,m_vtFea2,4)
if RetVal=0 then
MyForm.Match.value=”失败”
else
MyForm.Match.value=”成功”
end if
End Sub
//->>
</script>
</BODY>
</HTML>
