用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,小数点精确到百分位
复制代码 代码如下:
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,小数点精确到百分位
上一篇: 北方秋分吃什么?为什么吃这些东西?
下一篇: 如何酿酒,简单又好喝