鱼的天堂与地狱

Class DataBaseToExcel/***************************************************************************/*               转移数据到Excel文件(备份数据库类  Excel篇）  V1.0/*作者：死在水中的鱼(死鱼）/*日期：2004年8月4日/*Blog:http://blog

以前写ASP总是很懒,喜欢直接用Request("XXX")获取提交数据.并且以为这样是直接获取FORM和QUERYSTRING里的数据.可是有次弄一个页面时.突然发现获取到的数据竟然不是想要的数据.查看了大半天的代码却也发不了哪里有错.怪事.过后.静下来想了一次突然想起自己曾用JS脚本写了COOKIES标记.会不会REQUEST时是获取了这个COOKIES标记??于是查看脚本代码.突然发现Req

论坛里又有人问起日期怎样格式化为:2004-08-09 05:02:20这样的格式:于是写了一个左(右)对齐的函数.这函数等价于.NET里String对象的PadLeft和PadRight函数Function PadLeft(Value,Length,sChar)   Dim strText,I   strText = String(Length,sChar)   strText = strT

此类个人觉得是很有用的！！！对于以后提交表单数据，不用再一个一个去写了，直接引用该类，再SAVE或EDIT即可，简单多了，但当然，因为它不是智能的，所以对于某些数据格式是不能做核查的！！使用示例代码如下：Dim actionaction=Request("action")If  action="save" Then Dim objClass Set objClass=New SaveFormDat

支持判断返回任何数值型的类型数据：Function GetNumType(sVal)Dim sTypeIf Not IsNumeric(sVal) Then   GetNumType="Unknow"   Exit FunctionEnd IfExecute "sType=TypeName("&sVal&")"GetNumType=sTypeEnd Function测试：Response.Writ

这类程序在网上很多，但拿来练练“正则表达式”也不错的，所以就随手写了这个，现在只能对代码（函数，关键字，对象，字符串）进行着色，下一步想对函数块加入折叠效果（.NET代码编辑器的效果）。演示效果代码：（ChangeVBToColor函数即是重点函数）---------------------------------------------------------------------------

使用“二进制文件操作类编写的[文件分割]和[文件合并]代码例子：Dim objSet obj=New FileClass文件分隔Dim iObj.OpenFile "G:/2.mp3",""i=0Do While Not Obj.Eof   If Obj.NewFile("G:/2_"&i&".mp3",Obj.Read(2048*1024)) Then         分隔成2M大小的文件 

画走势图，此类是根据提交的数据信息输出VML代码，产生VML图。此类可以画多条走线，算是较完美的代码吧，但就是不太美观。呵呵类的源代码（drawclass.asp)======================================类名：画走势图的类======================================Class DrawClassdim D_ColData,D

今天无事.随便写了这个类.这个类很简单,但也很实用,以后只要直接包含这个类文件进需要的文件去然后就可以随时更改数据库的类型了.==============================================================类名:DBaseClass用途:可以根据用户参数返回SQL或ACCESS的Connection对象用法:(Access数据库) set

写此类的原因是因为个人所写的"模版类".,因为很多免费的个人主页空间(因为阿拉穷啊,没钱买空间啊=.=)都不提供FSO.所以导致Scripting.Dictionary也不能使用,所以那"模版类"就不能运行了.于是就有了自己写一个"字典类"的念头.此类同Scripting.Dictionary对象的使用没有任何的区别,所以以前是根据Scripting.Dictionary来写的程序,不用怎样的

写过ASP.Net 程序的都知道ASP.Net提供有一个StringBuilder类,此类有点类似于JAVA的String流,就是同ASP中的字符串变量差不多的了.但如果对于数据多的话则此类的字符串处理比动态字符串变量的性能要好得多!具体原因可以看此文[改进 ASP 应用程序中的字符串处理性能].并且我写的"模版类"也会有时对大量的数据进行连接使用.所以就写了这个类似StringBuilder的类

刚写的一个函数,但只能对"亿"以下的数值有效.如果超过Long类型的数值范围则转换会出错!!!!函数直接使用ChangeMoney(数值)即可!!得到的则是转换后的大写数额以下是第一次写的：对0不起隐藏作用Response.Write(ChangeMoney(235))Function ChangeMoney(sMoney)On Error Resume NextDim sToDim iInt,i

/*================================================/*函数作用：判断字符串是否包含有数字/*函数参数：Str=要检测的字符串/*返回值：True=包含有数字  False=没有包含有数字/*说明：使用正则表达式的"/d"来测试有没有数字/*================================================F

因为某此原因有时需要备份数据库,如SQL数据库的备份,但SQL数据库的备份有时有点麻烦,直接在页面不好弄,所以就这个原因,写了以下类.此类很简单,设置好备份文件地址和数据源后就直接Transfer。类使用方法在以下的注解有详细说明。此类还有一些好处是可以对每个不同的表可以保存到不同的文件，并且又不用重新定义类，方法就是在Transfer表之前换一个不同的目标文件，如：ObjClass.Target

此版本比1.0版本功能增强了许多，并且也和ACCESS那类一样，可以多表存为一个文件，并也可每一表存一文件，使用方法都是相同的了。在此版本中还增加了一个方法：[Obj].Close，此方法是为了不想注销类，但又想结束类使用的Excel进程时所增加的。Class DataBaseToExcel/****************************************************

一、删除表格里重复某些值的数据行，并只保留一条记录！条件：在表格里有一个唯一字段.DELETE FROM [表名] WHERE 唯一字段 比如:你的表格名是SM_Test .唯一字段是ID,重复字段是MemberName 重复数据是user001.则SQL语句为:DELETE FROM [SM_Test] WHERE ID 二、论坛短信息功能实例。     假如有A表[用户表]：有ID，Membe