首先利用vc++或是vb等其他语言编写好com组件，成功运行后进行注册，regsvr32 ***.dll 即可，在页面当中利用object调用组件，使用函数。代码如下：
<html xmlns="http://www.w3.org/1999/xhtml">
<body>
<%
Dim card
Dim n
Set card=Server.CreateObject("LuhnChecker.CardCheck")//这个地方直接调用组件的名称
card.cardType=request.form("cardtype")//调用函数
n=card.Validate(request.form("cardno"))//函数
if n <> 0 then
response.write "Invalidate card number. Please recheck"
else
response.write "Thank you for shopping at the Art Shop"
end if
%>
</body>
</html>
扫一扫
5413
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
