用ASP写组件

黑妞行不行

黑妞行不行

2016-02-19 09:53

下面图老师小编要跟大家分享用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,小数点精确到百分位

展开更多 50%)
分享

猜你喜欢

用ASP写组件

Web开发
用ASP写组件

用Delphi开发ASP分页组件

ASP
用Delphi开发ASP分页组件

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP ActiveX 组件

ASP
ASP ActiveX 组件

asp组件上传

ASP
asp组件上传

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ASP 组件指南

ASP
ASP 组件指南

ASP定时组件

ASP
ASP定时组件

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何在Windows 8 中创建、删除或格式化硬盘分区

如何在Windows 8 中创建、删除或格式化硬盘分区

myeclipse智能提示设置的实现方法

myeclipse智能提示设置的实现方法
下拉加载更多内容 ↓