- 博客(24)
- 资源 (4)
- 收藏
- 关注
原创 表常量声明
<% 数据库表定义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 273
原创 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 479
原创 文件常量声明
<% 文件及文件夹定义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 359
转载 验证码图片
<%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 308
转载 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 250
原创 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 290
原创 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 305
原创 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 478
原创 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 944
原创 TFunc业务功能类
<%业务功能类Dim func : Set func = new TFuncClass TFunc 去掉 CKeditor 产生的多余换行 Function clear(aHtml) Dim dirtyHtml dirtyHtml = "([^a-zA-Z]|( )|(br))*?" clear = sys.replaceRegExp(aHt
2009-11-25 01:04:00 310
原创 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 418
原创 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 448
原创 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 305
原创 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 277
原创 GUI->TElement 页面元素基础类
<%----------------------------------------------------------- Class TElement 基础类-----------------------------------------------------------Class TElement Private FName,FTag,FSingle,FInner
2009-10-20 17:30:00 300
原创 TPage 页面控制类
<%--------------------------------------------------------------利用Origin属性防继承Class TPage Private FDocType,FXmlns,FCharset,FInitHead,FIsHtml,FVisible Private FOrigin,FHead,FBody,FE
2009-10-20 17:21:00 547
原创 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 916
原创 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 254
原创 TDB 数据库管理类
<%Class TDB private FConn,FConnStr,FSQL,FRS RS用于临时数据集 Dim SQL_INJECT,MSG_DB_ERR,MSG_INJECT_ERR 初始化还不连接,需要时再连接 sub Class_Initialize SQL_INJECT = "select|update|insert|delete|exec|trunc
2009-10-20 17:11:00 1091
原创 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 356
转载 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 351
原创 简单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 232
转载 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 257
ASP纯OOP编程之仿DOM类库编写进销存系统
2010-06-27
ASP OOP 系统基础类
2009-10-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人