欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

用ASP写组件

程序员文章站 2022-08-06 16:51:57
打开vb,新建ax dll,工程名为str,类名count,输入如下代码:复制代码 代码如下:public function add(byva...
打开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,小数点精确到百分位