程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 用ASP寫組件

用ASP寫組件

編輯:關於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,小數點精確到百分位

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved