用ASP写组件

打开vb,新建ax dll,工程名为str,类名count,输入如下代码:

public function add(byval a as double, byval b as double, byval c as integer, byval d as integer) as double
d = cint(d)

if c = 1 then '加
add = formatnumber(a + b, d)
elseif c = 2 then '减
add = formatnumber(a - b, d)
elseif c = 3 then '乘
add = formatnumber(a * b, d)
elseif c = 4 then '除
add = formatnumber(a / b, d)
end if

end function

参数说明:a,b 为需要计算的数值,c为计算类型,d为小数点保留多少位

客户端asp文件代码:

set obj=server.createobject("str.count") 
dim c 
c=obj.add(455,45,4,2) 
response.write c  

上面代码执行结果就是:455除以45,小数点精确到百分位