ASP从字符串中提取数字或者字符串转数字型的方法
作者:随然 日期:2009-01-14
Cint函数是返回一个数字类型但是参数需要是有效的表达式,也就是说转换的的确是数字,比如字符串“123”,就可以用Cint("123") 转换成数字型。 类似“6879汉字汉字”这样的字符串Cint函数是没法转换的,这是指定内容的提取。用下面的函数可以达到把字符串中的数字提取出来。
<%
Function getNum(str)
Dim length,num
length=Len(str)
num=0
For i=1 To length
char=Mid(str,i,1)
If isNumeric(char) Then num=num*10+Int(char)
Next
<%
Function getNum(str)
Dim length,num
length=Len(str)
num=0
For i=1 To length
char=Mid(str,i,1)
If isNumeric(char) Then num=num*10+Int(char)
Next
常用的几种asp排序方法介绍
作者:随然 日期:2009-01-13
以下代码为常用的几种asp排序方法
<%
Dim aData
aData = Array(3,2,4,1,6,0)
Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
<%
Dim aData
aData = Array(3,2,4,1,6,0)
Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
ASP读取记录总数的方法
作者:随然 日期:2009-01-12
asp导出excel用到的类
作者:随然 日期:2009-01-11
因为项目需要,所以从网上找了一个类,但是那个类问题比较多,所以自己修改了一下,增加容错程度,提升一些性能,里面有部分代码是根据我的项目修改的,所以大家在使用的时候自己改一下就可以了。
使用方法:
使用方法:
复制内容到剪贴板 程序代码
<%On Error Resume Next%>
<!--#include file="../Include/Constants.Class.asp"-->
<!--#include file="../Include/Config.Class.asp"-->
<!--#include file="../Include/DBControl.Class.asp"-->
<!--#include file="../Include/FunctionLib.Class.asp"-->
<!--#include file="../Include/Manager.Class.asp"-->
<!--#include file="../Include/Export2Excel.Class.asp"-->
<%
<!--#include file="../Include/Constants.Class.asp"-->
<!--#include file="../Include/Config.Class.asp"-->
<!--#include file="../Include/DBControl.Class.asp"-->
<!--#include file="../Include/FunctionLib.Class.asp"-->
<!--#include file="../Include/Manager.Class.asp"-->
<!--#include file="../Include/Export2Excel.Class.asp"-->
<%
ASP导出EXCEL代码
作者:随然 日期:2009-01-11
XSL.ASP
复制内容到剪贴板 程序代码
<!--#include file="conn.asp"-->
<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
ASP导出Excel数据的方法
作者:随然 日期:2009-01-08
ASP.net随机数应用实例
作者:随然 日期:2008-12-09
在.net framework中提供了一个专门用来产生随机数的类system.Random,使用这个类时必须导入system命名空间。当然,命名空间system在每个asp.net页面中都是自动导入的,所以我们可以直接使用这个类。
对于随机数,大家都知道,计算机不可能产生完全随机的数字,所谓的随机数发生器都是通过一定的算法对事先选定的随机种子做复杂的运算,用产生的结果来近似的模拟完全随机数,这种随机数被称作伪随机数。伪随机数是以相同的概率从一组有限的数字中选取的。所选数字并不具有完全的随机性,但是从实用的角度而言,其随机程度已足够了。伪随机数的选择是从随机种子开始的,所以为了保证每次得到的伪随机数都足够地“随机”,随机种子的选择就显得非常重要。如果随机种子一样,那么同一个随机数发生器产生的随机数也会一样。一般地,我们使用同系统时间有关的参数作为随机种子,这也是.ne...
对于随机数,大家都知道,计算机不可能产生完全随机的数字,所谓的随机数发生器都是通过一定的算法对事先选定的随机种子做复杂的运算,用产生的结果来近似的模拟完全随机数,这种随机数被称作伪随机数。伪随机数是以相同的概率从一组有限的数字中选取的。所选数字并不具有完全的随机性,但是从实用的角度而言,其随机程度已足够了。伪随机数的选择是从随机种子开始的,所以为了保证每次得到的伪随机数都足够地“随机”,随机种子的选择就显得非常重要。如果随机种子一样,那么同一个随机数发生器产生的随机数也会一样。一般地,我们使用同系统时间有关的参数作为随机种子,这也是.ne...
ASP.NET代码 随机函数生成密码和一个随机整数
作者:随然 日期:2008-12-09
我们在asp中,经常会在使用的过程中,随机生成一个密码,或者随机生成在某个范围内的一个数字。在学习asp+的过程中,由于使用的是Replease 版本,虽然在帮助上有 Randomize 和 Rnd 函数的使用,但是在实际的调试过程中却总是无法通过,看来在正式版本中 MS 应该是支持的。经过一翻的努力,找到了一种方法,使用asp+ 中的一个Random 对象。
请看下面的例子:
请看下面的例子:
复制内容到剪贴板 程序代码
<%@ page language="VB" %>
<%@ import namespace="System.Random" %>
<script language=VB runat=server>
...
<%@ import namespace="System.Random" %>
<script language=VB runat=server>
...