关 键 词：

asp access 基于 bs 产品 销售 管理 系统 源代码 论文

资源描述：

ASP+ACCESS基于BS产品销售管理系统(源代码+论文),asp,access,基于,bs,产品,销售,管理,系统,源代码,论文

内容简介：

杭州科技职业技术学院毕业设计（论文）第一章、引言1课题提出杭州萧山慧飞窗帘网站平台是为杭州萧山慧飞窗帘店设计的。公司简介：本店开张于1986年，是一家专业从事各类中高档化纤、棉纺织品类面料的纺织企业，现总占地面积2.1万平方米。公司拥有意大利进口喷气织机及相关配套的倍捻机、整经机、浆纱机等设备，产品质量稳定，年产化纤弹力、牛仔弹力、纯棉、TR/TC等织物1200万米；公司拥有自营进出口权，产品已远销印度尼西亚、美国、阿联酋等多个国家和地区。 大西纺织公司是由荣利布业公司在原基础上投入6000万元新建的一家从事年产各类涤纶丝3万余吨的纺丝企业，现总占地面积3.8万平方米。公司拥有国内先进的北化涤纶长丝纺丝机、江苏宏源加弹机及相关的配套设备。生产各种规格的半消光POY丝、阳离子POY丝、有色POY丝及DTY丝。2. 课题意义当今世界，已是一个趋向网络的世界。越来越多的人进入这个网络世界，越来越多的企业也跻身于这个网络世界。在这样一个情况下，要想立于不败之地，就要好好利用这个网络世界，发展自己，开拓市场。对一个公司来说，组建网站的主要目的是希望借助网络快速传递信息的功能，加强企业在信息传递和沟通协调上的能力。因特网的魅力就在于它能实现快速，准确地传递信息。认识到这一点，公司就更要抓住机会，组建公司自己的网站，不但可以扩大公司的知名度，方便了用户，从而给公司本身也带来了新的发展生机。杭州荣利布业、大西纺织有限公司根据上述情况及其他一些相关情况，结合公司自己的实际情况设计开发了杭州荣利布业、大西纺织有限公司网站平台。本网站侧重于信息的浏览，及查询。浏览者可能网站内查询不到所需的信息，可能需要寻求帮助。所以系统开发了留言板模。第二章、开发环境介绍1.开发运行环境a) 操作系统本系统是在Microsoft Windows XP 操作系统下开发完成的。b) 开发工具Microsoft office2003的FrontPage、Access、Word及Dreamweaver Mx、Photoshop 6.0、IIS。c) 运行环境本系统运行于Windows XP 操作系统下。2. 网页制作工具a) 网页设计工具网页主要使用Frontpage2003，Dreamweaver Mx辅助制作。 Frontpage 2003frontpage2003是在frontpage2000基础上的网页工具。frontpage2003保留和发展了frontpage 2000的优秀功能，并根据用户的的要求再次增加了九大新功能。1提供制作网页的基本功能、建立网站的相关工具、提供互动式网页所需资源和动态网页编辑功能。2支援网站管理能力。3 除了基本功能外，它还有很多辅助工具。frontpage 2003的新功能简介：1）自定义浏览器分辨率预览检查（点击菜单栏上的“视图描摹图像设置”，在弹出对话框中，选择指定图像，再设置其坐标，最后，设置透明度，再确认即可）。2）描摹图像（点击菜单栏上的“视图描摹图像设置”，在弹出对话框中，选择指定图像，再设置其坐标，最后，设置透明度，再确认即可）。3）层功能（点击菜单栏上的“插入层”，将在当前页面中显示一个默认为“layer1”的层。用鼠标在各节点上拖曳，调节其大小，然后把光标插入点置于层中，输入所需的文字。另外，将光标定位于该层内，在其右键弹出菜单中选择“层属性”，就可在界面右侧的任务窗格上设置该层的ID，边框和底纹的样式、边距，以及定位样式与位置等参数）。4）插入交互式按钮（点击菜单栏上的“插入交互式按钮”，弹出一个对话框，在“按钮”标签页中，设置按钮的显示文字、样式以及链接。在“字体”标签页中设置其相关选项。最后，我们再切换到“图像”标签页，设置悬停图像及鼠标键按下时的图像等）。5）行为的应用（点击菜单栏上的“格式行为”，查看界面右侧的“行为”窗格，点击“插入”向下箭头按钮，在弹出菜单中可选择播放声音、弹出消息、调用脚本及弹出菜单等事件。在选择指定的插入对象后，将弹出相应的设置对话框，在其中按需操作）。6）使用网页重定向（点击菜单栏上的“工具中文简繁转换插入重定向代码”，在弹出对话框中，设置简体页面网址及繁体页面网址）。7）检查网页错误（点击菜单栏上的“工具辅助功能”，在弹出对话框中设置检查范围、内容及显示对象，接着点击“检查”按钮即可）。8）优化HTML代码（点击菜单栏上的“工具优化HTML”，弹出对话框，在其中酌情选择删除对象，包括注释性内容及空白信息）。9）规划页面布局（点击菜单栏上的“表格布局表格和单元格”，在程序右侧窗格中将显示相应的属性设置）。 Dreamweaver Mx 2004DreamweaverMX2004 是一款专业的 HTML 编辑器，用于对 Web 站点、Web 页和 Web 应用程序进行设计、编码和开发。无论您喜欢直接编写 HTML 代码的驾驭感还是偏爱在可视化编辑环境中工作，Dreamweaver 都会为您提供帮助良多的工具，丰富您的 Web 创作体验。 b) 开发语言 ASPASP是Active Server Pages的简称，是服务器端脚本编写环境。用户可以轻松地结合HTML页面、脚本和ActiveX组件创建和运行动态、交互的 Web 服务器应用程序。 ASP内嵌于IIS中，ASP程序可以在Windows系列操作系统下运行。ASP特点： 1.不依赖于浏览器 2.无须编译，容易编写，可在服务器端直接执行 3.ASP源程序不会被传到客户端 4.可使用服务器端的脚本来产生客户端的脚本 5.ActiveX服务器组件可无限扩充 HTML HTML是指超文本标志语言（HyperText Marked Language），它构成了Internet应用程序的基础。3. 数据库开发软件 ACCESS 2000 Access是Microsoft公司开发的一个成功的数据库产品。其核心是Microsoft Jet 数据库引擎。Access是一个可视化的数据库管理系统，提供了非常实用的向导，很容易用它建立数据库的各种对象，如创建表、查询的报表等。4. 图像处理工具 Photoshop 6.0Adobe Photoshop软件拥有多种提高图像表现力的工具，包括平面绘画、涂色、添文字、影像旋转、缩放、色彩及亮度调整、添加及变幻影像效果、文件格式转换等等。Photoshop 6.0使您尽享无限创作活力、创建有吸引力的 Web 图形、增强摄影效果、自动处理重复任务、获得精准的印刷控制。5. 其他相关知识 ADO Active X Data Object (ADO)是一种数据访问编程模式，它具有编程简单、功能强大的特点。它可以把大部分数据源可编程的属性直接扩展到Active Server上，是针对当前Microsoft软件所支持的数据进行操作的极其有效的方法。 ODBCODBC就像数据库中的通用语言，可以与任何具有相应驱动程序的数据源相连接。因此，通过利用ODBC，就能够把来自Access、SQL Server等其他关系数据库数据源的数据综合在一起。第三章、设计任务分析现今飞速发展的网络为公司与带来的便利性举世皆知。更为公司带来广阔的发展空间。宣传，对公司来讲是个不可缺的工具，更是一个无法缺少的纽带，它是连接消费者与服务提供商的桥梁，是业务的来源之力。为了更好的推销本公司，为了更好的让客户了解本公司，更方便的服务客户，且能更方便的与本公司联系，节约时间，及时发挥效应。更加系统和有效地管理公司业务，方便客户能够在任何地点、任何时间及时地了解和掌握公司的最新行情；更加系统和有效地管理公司业务，方便客户购物，实现客户与公司的相互交流和预订业务功能！第四章、详细设计1.网站前台架构介绍整个网站前台的基本架构，详细信息如表1。杭州萧山慧飞窗帘网用户登录用户注册用户注册最新动态产品世界留言板联系地址布艺窗帘成品窗帘轨道辅料轨道辅料客户留言留言查看管理员登陆公司简介表1 网站前台架构2.网站后台架构修改新闻添加新闻新闻管理删除新闻添加产品修改产品产品管理管理员登录删除产品登录在线定购删除留言留言管理表2 网站后台架构3. 网站功能模块的具体实现31前台模块311首页介绍（1）图示信息如图1图1网站首页（2）详细信息首页介绍了整个网站的内容，包括的内容有：用户登录：注册过的用户输入用户名和密码就能登录网站，即可在线订购。相关搜索：输入的内容将会为你搜索有关的信息。公司简介：本店的概况。产品世界：把最新推荐的产品进行展示。动态新闻：发布最新的窗帘新闻。 友情链接：链接一些相关网站，以方便浏览者浏览。联系方法：了解本店的联系方法。公告栏：本店的最新优惠消息。浏览者可以通过点击“注册”进入注册页面。注册页面是sign1.htm 执行页面sing1.asp下面是sing1.asp%If request.form(user_name)and request.form(password)then dim db,rsset db=server.createobject(ADODB.connection)db.open dbq=&server.mappath(userinfo.mdb)&;driver=microsoft access driver (*.mdb);dim strsql,user_name ,Password,name name=request.form(user_name)strSql=select * from user Where user_name= & Request.Form(user_name) & Set rs=db.Execute(strSql)If not rs.eof thenResponse.Write 对不起，用户名已被注册，请重新注册 rs.close else user_name=request.form(user_name) Password=request.form(Password) strsql=insert into user(user_name ,Password)values(&user_name&,&Password&) db.execute(strsql) response.redirect cg.htm end if else response.write请将所有信息填写完整 response.write重新注册end if%312其他页面介绍图二:产品介绍图三:留言本图四:新闻发布32后台模块321后台管理首页简介进入后台管理，进行管理员登录（index1.asp），进入管理首页（glzx.asp）。整个后台分为四个模块：（1）新闻管理包括对新闻的添加、修改与删除。（2）产品管理包括对产品的添加与修改。（3）订单管理包括对订单的确认与删除。（4）留言管理包括删除留言内容。管理员登录界面图11管理员登陆（admin.asp）对输入的用户名和密码进行判断代码页面 login.asp：%查看有无该用户dim db,strsql,rsset db=server.createobject(ADODB.connection)db.open dbq=&server.mappath(userinfo.mdb)&;driver=microsoft access driver (*.mdb);strSql=Select user_name,password,user_type From usersstrSql=strSql & Where user_name= & Request.Form(user_name) & And password= & Request.Form(password) & Set rs=db.Execute(strSql)If not rs.eof and not rs.bof Then如果有记录，表示有该用户，则将用户名和用户类型保存到Session中Session(user_name)=rs(user_name)session(user_type)=rs(user_type)Session(password)=rs(password)如果是普通用户，重定向到首页；如果是管理员，重定向到管理员页面If Session(user_type)=A ThenResponse.Redirect houtai.aspELseResponse.Redirect houtai2.aspEnd IfElse如果没有记录，表示没有该用户，请给出提示信息Response.Write 对不起，用户名或密码有误，请返回重新登录End If%后台界面图12超级管理员后台界面（houtai.asp）图13普通管理员后台界面（houtai.asp）图13普通用户管理员后台界面（user.asp）附录源码:超级管理员后台界面（houtai.asp）% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to executeMM_editQuery = % * Insert Record: set variablesIf (CStr(Request(MM_insert) = 3) Then MM_editConnection = MM_coon_STRING MM_editTable = xinwen MM_editRedirectUrl = yjxw.asp MM_fieldsStr = 1|value|2|value MM_columnsStr = biaoti|,none,|meirong|,none, create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i) Next append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request(MM_insert) ) Then create the sql insert statement MM_tableValues = MM_dbValues = For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),) MM_delim = MM_typeArray(0) If (MM_delim = none) Then MM_delim = MM_altVal = MM_typeArray(1) If (MM_altVal = none) Then MM_altVal = MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = none) Then MM_emptyVal = If (MM_formVal = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_altVal ElseIf (MM_delim = ) Then escape quotes MM_formVal = & Replace(MM_formVal,) & Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields) Then MM_tableValues = MM_tableValues & , MM_dbValues = MM_dbValues & , End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = insert into & MM_editTable & ( & MM_tableValues & ) values ( & MM_dbValues & ) If (Not MM_abortEdit) Then execute the insert Set MM_editCmd = Server.CreateObject(ADODB.Command) MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl ) Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%Dim rs2_MMColParamrs2_MMColParam = 1If (Request.QueryString(id) ) Then rs2_MMColParam = Request.QueryString(id)End If% * Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim rs1_totalDim rs1_firstDim rs1_last set the record countrs1_total = rs1.RecordCount set the number of rows displayed on this pageIf (rs1_numRows 0) Then rs1_numRows = rs1_totalElseif (rs1_numRows = 0) Then rs1_numRows = 1End If set the first and last displayed recordrs1_first = 1rs1_last = rs1_first + rs1_numRows - 1 if we have the correct record count, check the other statsIf (rs1_total -1) Then If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End If If (rs1_numRows rs1_total) Then rs1_numRows = rs1_total End IfEnd If% 0) Then rs1.MoveFirst Else rs1.Requery End If set the number of rows displayed on this page If (rs1_numRows rs1_total) Then rs1_numRows = rs1_total End If set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows - 1 If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End IfEnd If% * Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = rs1MM_rsCount = rs1_totalMM_size = rs1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = (Request.QueryString(MM_paramName) )End If% * Move To Record: handle index or offset parameterif (Not MM_paramIsDefined And MM_rsCount 0) then use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString(index) If (MM_param = ) Then MM_param = Request.QueryString(offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If if we have a record count, check if we are past the end of the recordset If (MM_rsCount -1) Then If (MM_offset = MM_rsCount Or MM_offset = -1) Then past end or move last If (MM_rsCount Mod MM_size) 0) Then last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF) And (MM_index % * Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size 0 Or MM_index MM_offset + MM_size) MM_rs.MoveNext MM_index = MM_index + 1 Wend if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount - MM_size Or MM_offset = -1) Then If (MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If reset the cursor to the beginning If (MM_rs.CursorType 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index % * Move To Record: update recordset stats set the first and last displayed recordrs1_first = MM_offset + 1rs1_last = MM_offset + MM_sizeIf (MM_rsCount -1) Then If (rs1_first MM_rsCount) Then rs1_first = MM_rsCount End If If (rs1_last MM_rsCount) Then rs1_last = MM_rsCount End IfEnd If set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount -1 And MM_offset + MM_size = MM_rsCount)% * Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem create the list of parameters which should not be maintainedMM_removeList = &index=If (MM_paramName ) Then MM_removeList = MM_removeList & & & MM_paramName & =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone= add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item) End IfNext add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item) End IfNext create the Form + URL string and remove the intial & from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = & Else MM_joinChar = End IfEnd Function% 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, &) MM_keepMove = For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) - 1) If (StrComp(MM_nextPa