打开VB,新建AXDLL,工程名为Str,类名count,输入如下代码:

复制代码 代码如下:

PublicFunctionadd(ByValaAsDouble,ByValbAsDouble,ByValcAsInteger,ByValdAsInteger)AsDouble

d=CInt(d)

Ifc=1Then'加

add=FormatNumber(a+b,d)

ElseIfc=2Then'减

add=FormatNumber(a-b,d)

ElseIfc=3Then'乘

add=FormatNumber(a*b,d)

ElseIfc=4Then'除

add=FormatNumber(a/b,d)

EndIf

EndFunction

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

客户端ASP文件代码:

复制代码 代码如下:

setobj=server.CreateObject("str.count")

dimc

c=obj.Add(455,45,4,2)

Response.Writec

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