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
建立一个边框有颜色的表格
作者:随然 日期:2009-01-12
建立一个边框为黑色的表格
复制内容到剪贴板
程序代码
程序代码<table border="1" cellpadding="1" cellspacing="0" bordercolor="#000000" width="100%" align="center" style="border-collapse: collapse; border: medium none;font-size:12px;">
<tr>
<td align="center">班级</td><td align="center">02</td>
</tr>
<tr>
<td align="center">学号</td><td align="center">99</td>
</tr>
</table>
<tr>
<td align="center">班级</td><td align="center">02</td>
</tr>
<tr>
<td align="center">学号</td><td align="center">99</td>
</tr>
</table>
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个工作表的子对象
