用ASP写组件
摘要：打开VB,新建AXDLL,工程名为Str,类名count,输入如下代码:复制代码代码如下:PublicFunctionadd(ByValaA...
打开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,小数点精确到百分位
【用ASP写组件】相关文章：
★ ASP 类专题
★ 15种ASP技巧
上一篇：
ASP实现SQL备份、恢复