asp服装企业商务网站

asp服装企业商务网站内容摘要：

产品基本参数设置 产品参数 添加产品 产品管理 添加分类 添加信息 信息管理 添加分类 分类管理 添加频道 频道管理 添加案例 案例管理 添加分类 分类管理 留言管理 招聘管理 账号管理 友情链接 服装企业时代广阳网站后台 功能菜单 系统管理 信息管理 产品管理 案例管理 其他管理 管理首页 退出系统 14 第 4 章 系统设计 设计目标 本 网站是根据企业实际要求进行开发 设计的，主要实现如下目标：  网页风格符合企业 文化 的特点，界面美观大方。  能够对公司的产品进行及时的宣传。  针对某行业或某一问题提供相应的解决方案。  充分为用户着想，提供细致周到的技术支持。  提供为用户快速留言的留言簿，并具有 管理员 回复功能。  为网站管理员提供方便、快捷的网站维护平台。  提供用户精确查找功能。  网站运行安全稳定。 开发及运行环境 硬件平台：  CPU： 酷睿 2 ；  内存： 1GB 以上。 软件平台：  操作系统： Windows XP/Windows 2020；  数据库： ACCESS 2020；  开发 软件 ： Dream wear ， IIS， Photoshop ， Flash ；  浏览器： ,推荐使用 ；  分辨率：最佳效果 1024*768 像素。 数据库设计 本系统数据库采用 ACCESS 数据库，系统数据库名称为 database。 数据 15 库 database 中包含 28 张表。 第 5 章 代码 基本操作的 代码 编写 根据系统的需求编写需要的代码。 下面将给出网站中所需要的部分代码的编写过程。 ASP 连接 access 数据 库 ： % dim db,conn,myconn db=/database/ 39。 数据库文件相对路径 Set Conn = () 39。 创建对象实例 myconn=Provider=。 DataSource=amp。 (amp。 dbamp。 ) MyConn % 下面是获取数据表的方法： 直接用 ado的 OpenSchema()方法打开 adSchemaTables，建立一个 schema记录集 ： % Const adSchemaTables = 20 adSchemaColumns = 4 dim Conn,db dim ConnStr db= 39。 ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径 16 ConnStr = Provider=。 Data Source= amp。 (db) Set conn = () connstr Dim rstSchema Dim I Set rstSchema = (adSchemaTables) Do while not (Table name: amp。 rstSchema(TABLE_NAME) amp。 vbCr amp。 _ Table type: amp。 rstSchema(TABLE_TYPE) amp。 vbCr) (br/) I = I + 1 Loop % 数据库记录通用快速分页类 ： %@LANGUAGE = VBScript CODEPAGE=936% %Option Explicit% % Dim intDateStart intDateStart = Timer() Rem 打开数据库连接 Rem function f__OpenConn() Dim strDbPath 17 Dim connstr strDbPath = ../db/ connstr = Provider=。 Data Source= connstr = connstr amp。 (strDbPath) Set conn = () connstr End function Rem Rem 关闭数据库连接 Rem function f__CloseConn() If IsObject(conn) Then End If Set conn = nothing End function Rem Rem 获得执 行时间 Rem function getTimeOver(iflag) Dim tTimeOver If iflag = 1 Then tTimeOver = FormatNumber(Timer() intDateStart, 6, true) getTimeOver = 执行时间 : amp。 tTimeOver amp。 秒 18 Else tTimeOver = FormatNumber((Timer() intDateStart) * 1000, 3, true) getTimeOver = 执行时间 : amp。 tTimeOver amp。 毫秒 End If End function Rem Class Cls_PageView Private sbooInitState Private sstrCookiesName Private sstrPageUrl Private sstrPageVar Private sstrTableName Private sstrFieldsList Private sstrCondiction Private sstrOrderList Private sstrPrimaryKey Private sintRefresh Private sintRecordCount Private sintPageSize Private sintPageNow Private sintPageMax Private sobjConn Private sstrPageInf Private Sub Class_Initialize Call ClearVars() End Sub Private Sub class_terminate() 19 Set sobjConn = nothing End Sub Public Sub ClearVars() sbooInitState = False sstrCookiesName = sstrPageUrl = sstrPageVar = page sstrTableName = sstrFieldsList = sstrCondiction = sstrOrderList = sstrPrimaryKey = sintRefresh = 0 sintRecordCount = 0 sintPageSize = 0 sintPageNow = 0 sintPageMax = 0 End Sub Rem 保存记录数的 Cookies 变量 Public Property Let strCookiesName(Value) sstrCookiesName = Value End Property Rem 转向地址 Public Property Let strPageUrl(Value) sstrPageUrl = Value End Property Rem 表名 Public Property Let strTableName(Value) 20 sstrTableName = Value End Property Rem 字段列表 Public Property Let strFieldsList(Value) sstrFieldsList = Value End Property Rem 查询条件 Public Property Let strCondiction(Value) If Value Then sstrCondiction = WHERE amp。 Value Else sstrCondiction = End If End Property Rem 排序字段 , 如 : [ID] ASC, [CreateDateTime] DESC Public Property Let strOrderList(Value) If Value Then sstrOrderList = ORDER BY amp。 Value Else sstrOrderList = End If End Property Rem 用于统计记录数的字段 Public Property Let strPrimaryKey(Value) sstrPrimaryKey = Value End Propert Rem 每页显示的记录条数 Public Property Let intPageSize(Value) 21 sintPageSize = toNum(Value, 20) End Property Rem 数据库连接对象 Public Property Let objConn(Value) Set sobjConn = Value End Property Rem 当前页 Public Property Let intPageNow(Value) sintPageNow = toNum(Value, 1) End Property Rem 页面参数 Public Property Let strPageVar(Value) sstrPageVar = Value End Property Rem 是否刷新 . 1 为刷新 , 其他值则不刷新 Public Property Let intRefresh(Value) sintRefresh = toNum(Value, 0) End Property Rem 获得当前页 Public Property Get intPageNow() intPageNow = singPageNow End Property Rem 分页信息 Public Property Get strPageInfo() strPageInfo = sstrPageInfo End Property Rem 取得记录集 , 二维 数组或字串 , 在进行循环输出时必须用 IsArray() 判断 22 Public Property Get arrRecordInfo() If Not sbooInitState Then Exit Property End If Dim rs, sql sql = SELECT amp。 sstrFieldsList amp。 _ FROM amp。 sstrTableName amp。 _ sstrCondiction amp。 _ sstrOrderList Set rs = () sql, sobjConn, 1, 1 If Not( or ) Then = sintPageSize = sintPageNow If Not( or ) Then arrRecordInfo = (sintPageSize) Else arrRecordInfo = End If Else arrRecordInfo = End If Set rs = nothing End Property Rem 初始化记录数 Private Sub InitRecordCount() sintRecordCount = 0 23 If Not(sbooInitSta。