ASP
文章平均质量分 67
ddreamc
这个作者很懒,什么都没留下…
展开
-
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 · 1090 阅读 · 0 评论 -
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 阅读 · 0 评论 -
表常量声明
<% 数据库表定义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 阅读 · 0 评论 -
验证码图片
<%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 阅读 · 0 评论 -
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 · 943 阅读 · 0 评论 -
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 · 478 阅读 · 0 评论 -
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 · 249 阅读 · 0 评论 -
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 · 417 阅读 · 0 评论 -
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 · 304 阅读 · 0 评论 -
GUI->TElement 页面元素基础类
<%----------------------------------------------------------- Class TElement 基础类-----------------------------------------------------------Class TElement Private FName,FTag,FSingle,FInner原创 2009-10-20 17:30:00 · 299 阅读 · 0 评论 -
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 阅读 · 0 评论 -
TPage 页面控制类
<%--------------------------------------------------------------利用Origin属性防继承Class TPage Private FDocType,FXmlns,FCharset,FInitHead,FIsHtml,FVisible Private FOrigin,FHead,FBody,FE原创 2009-10-20 17:21:00 · 547 阅读 · 0 评论 -
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 阅读 · 0 评论 -
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 · 912 阅读 · 0 评论 -
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 阅读 · 0 评论 -
文件常量声明
<% 文件及文件夹定义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 · 358 阅读 · 0 评论