用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,小数点精确到百分位

赞 (0)

相关推荐

  • 用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 = FormatNu

  • ASP脚本组件实现服务器重启

    大家知道直接使用ASP是不能够重启服务器的,这时我们需要制作一个组件来实现功能,ASP通过这个组件调用系统API,然后按照不同的重启和关机方式进行操作! 下面先说COM的制作,在VB中新建一工程,当然是AceiveX dll的. 1)先修改工程属性,在工程属性窗口将工程名称改为system,在类模块窗口将模块名称改为contral,保存工程; 2)然后添加一个模块,用来声明需要使用的API和常数,下面是模块中的内容. Declare Function ExitWindowsEx Lib "use

  • ASP.NET组件System.Web.Optimization原理及缓存问题详解

    ASP.NET组件System.Web.Optimization原理及缓存问题详解

    1]开篇介绍 这篇文章将简单的分析一下有关静态文件捆绑的ASP.NET组件System.Web.Optimization的运行原理及基本的缓存问题: 在我们的项目里面充斥着很多静态文件,为了追求模块化.插件化很多静态文件都被设计成模块的方式或者被分解,在需要的时候在通过组合的方式在UI层上使用:这就带来一个问题,文件多了会影响浏览器加载页面的速度,而且由于浏览器的并发限制,对于并行的请求不是无限制的,所以捆绑静态文件的功能就产生:其实在以前,IIS还没有集成管道模型的时候我们只能通过动态资源的方

  • 利用PHP实现与ASP Banner组件相似的类

    <?php /******************************************************* 作者: 吴振亨 (Biz)--phpscript E-mail:wuzhenheng@china.com web: http://phpscript.osh.com.cn 文件名:AdRotator.class.php3                  版权声明: 如果您使用了本文件,请给作者写一封E-mail    如有问题欢迎与作者联系 谢谢您的关注!       

  • ASP wsImage组件添加水印的实用代码

    ASP给图片加水印是需要组件的...常用的有aspjpeg软件和中国人自己开发的wsImage软件,可以上网搜索下载这两个软件,推荐使用咱们中国人自己开发的wsImage,毕竟是中文版,容易操作． 注册组件的方法: 命令提示符下输入"regsvr32 [Dll路径]" 就可以了． 图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧. 一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白) 复制代码 代码如下

  • Asp无组件生成缩略图的代码

    还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,height是图片的高度.缩略图的生成其实就是在原始尺寸上缩放.但一般为了尽量少失真,我们都会按比例缩放.于是,获取图片的长宽尺寸也就成了生成缩略图的重点. 下面便是编

  • asp水印组件之AspJpeg的结合代码实例

    1.什么是AspJpeg? AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件,网络上对其进行详细和深入介绍的中文文章并不多,即使有一般也只是牵涉到图片缩略图和图片水印,这与其为英文版本有着密切的关系. AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象,支持的图象格式有:JPEG, GIF, BMP, TIFF, PNG AspJpeg主要可以做到: 生成缩略图片 生成水印图片 图片合并 图片切割 数据库支持 安全码技术

  • Asp无组件上传进度条解决方案

    一.无组件上传的原理我还是一点一点用一个实例来说明的吧,客户端HTML如下.要浏览上传附件,我们通过<input type="file">元素,但是一定要注意必须设置form的enctype属性为"multipart/form-data": <form method="post" action="upload.asp" enctype="multipart/form-data">&l

  • 我用ASP写的m行n列的函数,动态输出创建TABLE行列

    没有用正常的循环tr内循环td的方法,所以就没有计算最后一页的记录集数量. 但当记录集不足时也同样能够自动补空行空列,如有不足请指出,谢谢. 使用方法很简单: 复制代码 代码如下: <%  showData("查询语名")  Call pagehead(行数,列数)  '-------------------------------------------------------------------------------  '可以把下面的Response.Write()写到

  • ASP 写的自动生成SELECT 表单的函数

    对于ASP高手当然没什么用了,但是对于刚入门的初学者和美工就有些用处了. Function selectdo(a,d,b,c)  Response.write"<select name='"&a&"'><option>"&d&"</option>"  for i=b to c    if i<10 then      i="0"&i    end

随机推荐