ddreamc-CSDN博客

原创表常量声明

<% 数据库表定义Const TAB_PRODUCT = "product"Const TAB_CATE = "category"Const TAB_STORAGE = "storage"Const TAB_INVENTORY = "inventory"Const TAB_INV_IN = "inv_in"Const TAB_INV_IN_DETAIL = "in

2009-11-25 01:30:00 264

原创 Const常量声明

<%版本Const SESS_VERSION = "config_version"SO -- Server ObjectConst SO_CONN = "ADODB.Connection"Const SO_REC = "ADODB.RecordSet"Const SO_CMD = "ADODB.Command"Const SO_STRM = "adodb.str

2009-11-25 01:29:00 461

原创文件常量声明

<% 文件及文件夹定义Const FILE_DEFAULT = "main.asp"Const FILE_LOGIN = "login.asp"Const FILE_EXIT = "exit.asp"Const FILE_INSTALL = "install.asp"Const FILE_CONFIG = "include/config.xml"Const PAT

2009-11-25 01:29:00 343

转载验证码图片

<%Response.Expires = 0Dim numRnd,strRnd,site_verCookiesnumRnd = (Fix(Timer) mod 9999) * 999strRnd = Right("000" & numRnd,4)sys.setSession SESS_VERIFY_CODE,strRndDisplayBMP strR

2009-11-25 01:28:00 297

转载 MD5函数

<%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lValue, iShiftBits

2009-11-25 01:27:00 235

原创 cookies对象

// old school cookie functions grabbed off the webvar Cookies = {};Cookies.set = function(name, value){ var argv = arguments; var argc = arguments.length; var expires = (argc > 2

2009-11-25 01:26:00 281

原创 func业务功能对象

// 2009-11-18var func = {};// 剪切板取数据，适用于ebay英文地址func.getInfo = function(){ var info = {fullname:,address:,city:,state:,zip:,country:,tel:,ebay_id:,email:}; var data = win

2009-11-25 01:22:00 289

原创 js公用功能对象

/** 将函数交由js对象管理*/// 扩展基础对象功能String.prototype.trim=function(){ return this.replace(/(^/s*)|(/s*$)/g,"");}String.prototype.ltrim=function(){ return this.replace(/(^/s*)/g,"");}Str

2009-11-25 01:16:00 464

原创 TUpload无组件上传类

<%response.charset = "utf-8"if request("act") = "upload" Then Dim up: Set up = new TUpload up.exec() response.write up.paramEnd IfClass TUpload Private FMaxSize,FAutoSave,FFil

2009-11-25 01:07:00 900

原创 TFunc业务功能类

<%业务功能类Dim func : Set func = new TFuncClass TFunc 去掉 CKeditor 产生的多余换行 Function clear(aHtml) Dim dirtyHtml dirtyHtml = "([^a-zA-Z]|(&nbsp)|(br))*?" clear = sys.replaceRegExp(aHt

2009-11-25 01:04:00 300

原创 TManager 全局控制类

<% TManager 全局控制默认打开Dim mgr,pageSet mgr = new TManagerSet page = mgr.pagepage.OnAction = "OnAction"page.OnBeforeEcho = "OnBeforeEcho"page.OnEcho = "OnEcho"page

2009-10-20 17:52:00 399

原创 GUI->TFrame 外层框架类

<% 外层框架类不保证独立调用可靠性需填充Content属性Class TFrame Private FOrigin,FPage,FTitle Private FContent Sub Class_initialize 转至Page属性设置时初始化 End Sub Property Let Title(value) FTitle

2009-10-20 17:37:00 437

原创 GUI->TTable类

<% TTable类未能保证独立调用可靠性Class TTable Private FOrigin,FPage Private FTHead,FTBody,FTFoot Sub class_initialize End Sub Property Set Page(ByRef value) 初始化在这里 Set FPage = v

2009-10-20 17:34:00 286

原创 GUI->TForm 类

<% TForm 类不保证独立调用可靠性Class TForm Private FOrigin,FPage,FTable,FRow 由table控制 Private FInnerHtml,FAction,FSingleRow Sub Class_initialize 转至Page属性设置时初始化 FSingleRow = false E

2009-10-20 17:33:00 261

原创 GUI->TElement 页面元素基础类

<%----------------------------------------------------------- Class TElement 基础类-----------------------------------------------------------Class TElement Private FName,FTag,FSingle,FInner

2009-10-20 17:30:00 286

原创 TPage 页面控制类

<%--------------------------------------------------------------利用Origin属性防继承Class TPage Private FDocType,FXmlns,FCharset,FInitHead,FIsHtml,FVisible Private FOrigin,FHead,FBody,FE

2009-10-20 17:21:00 524

原创 TConfig 配置管理类（业务功能）

<% TConfig 配置管理类（业务功能） include const.asp,file_define.asp,system.aspClass TConfig Private FFilename,FXML,FFSO Dim MSG_FILE_NOT_EXISTS,MSG_PATH_NOT_EXISTS,SQL_CONFIG Sub Class_Initialize

2009-10-20 17:16:00 886

原创 TRSProxy Recordset 代理类

<%ASP Recordset 代理类，包含分页Class TRSProxy Private FRS Private FPageSize,FAbsPage,FPageCount,FRecordCount Private FURL Dim QS_PAGE,QS_FIELD,QS_SORT Dim C_TITLE_IMG,C_TITLE_LINK,C_IMG_ASC,C

2009-10-20 17:14:00 240

原创 TDB 数据库管理类

2009-10-20 17:11:00 1016

原创 TSystem 系统函数类

<% TSystem 系统函数类可独立，不用包含其他文件Dim sys : Set sys = new TSystemClass TSystem Property Get SID() SID = Session.SessionID End Property Function getSession(aKey) getSession = Session

2009-10-20 17:09:00 345

转载 js 日历

/** * Calendar * @param beginYear 1990 * @param endYear 2010 * @param language 0(zh_cn)|1(en_us)|2(en_en)|3(zh_tw) * @param patternDelimiter "-"

2009-10-20 17:03:00 338

原创简单AJAX函数

/*----------------通用简单Ajax脚本函数(过程)GET方式请求，失败返回false传递参数为请求地址链接:aUrl，显示区域ID:aShow2008-3-28------------------*/function ajax(aUrl,aShow){ var xmlObj = false; try { xmlObj=new XMLHtt

2009-10-20 17:00:00 221

转载 yahoo css reset

在用的CSS RESET/* yahoo css reset */body,div,dl,dt,dd,ul,ol,li,h1,h2,h3,h4,h5,h6,pre,form,fieldset,input,textarea,p,blockquote,th,td { padding: 0; margin: 0; }table { border-collapse: col

2009-10-20 16:51:00 247

原创网站内容很好...

网站内容很好，但速度好像挺慢....

2008-05-19 11:05:00 232

ASP纯OOP编程之仿DOM类库编写进销存系统

用ASP仿DOM模式,伪继承,伪事件 Element基本元素类,Table类,Datagrid类,Page类伪事件:OnCreate,OnAction,OnEcho 利用Ext-js桌面框架数据库连接类:TDB,按需连接,销毁自动断开连接记录集代理类:支持分页,排序功能无组件上传类:TUpload,支持多文件与表单内容同时提交系统函数类:TSystem,包含常用函数功能,正则替换... ...

2010-06-27

ASP OOP 系统基础类

数据库连接类：TDB 记录集代理类: TRSProxy 页面处理类：TPage 权限控制类：TPrivilege 登录类：TLogin 配置管理类：TConfig 系统函数类：TSystem OOP之ASP应用原创代码，技术交流，尽量勿用于商业用途，否则不承担任何责任

2009-10-12

ASP 数据库类封装

数据库类封装不再使用conn.asp格式封装使得按需连接销毁前自动关闭连接

2009-10-09

ASP RS代理类（包含排序，分页）

ASP中记录集类排序：getHeader(aTitle,aField) 分页：paging

2009-10-09

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人