ASP实战内容企业网站制作.docx
- 文档编号:24497153
- 上传时间:2023-05-28
- 格式:DOCX
- 页数:22
- 大小:280.38KB
ASP实战内容企业网站制作.docx
《ASP实战内容企业网站制作.docx》由会员分享,可在线阅读,更多相关《ASP实战内容企业网站制作.docx(22页珍藏版)》请在冰豆网上搜索。
ASP实战内容企业网站制作
ASP实战内容企业网站制作
部门:
xxx
时间:
xxx
制作人:
xxx
整理范文,仅供参考,可下载自行修改
企业网站的制作
互联网已经发展成为全球最大信息媒体,其无时间限制、传播速度快、信息容量大、查阅方便、交互性强方面是其它的媒体所不能比拟的,也是较少投入获得最大回报的最优途径,企业上网可以为客户提供各类信息,挖掘潜在的客户,更可以提供强大的交互功能,为企业在互联网提供各类商业贸易服务<即电子商务)。
本章讲述一个通用的企业网站的制作流程,其中包括功能模块设计、数据库设计、界面设计、模块实现、系统发布。
b5E2RGbCAP
1功能模块设计
1.1设计目标
企业网站主要提供公司产品、服务在网上的浏览和查询,以满足客户的需求,扩大企业的知名度、增加产品的销售量、提高服务质量。
一个简单的企业网站主要提供以下功能:
p1EanqFDPw
●了解企业的文化、技术实力<公司简介)
●能够查询企业的最新信息<企业新闻)
●能够查询到所需的产品,并有详细的技术参数说明<产品展示)
●能够在线订单,购买客户自己所需的产品<在线订单)
●客户如有何疑问,可以在线留言<客户留言)
●客户同时还能了解企业的售后服务的情况<售后服务)。
1.2前台框架图
1.3功能模块的说明
1.首页:
把网站的整体信息和风格能够体现。
同时加上计数器、会员登陆注册口、日期显示等。
2.企业介绍:
其为静态页面,主要介绍公司的总体情况。
3.产品展示:
主要显示公司的产品,并能够了解详细的技术参数、在线下单等功能。
4.产品类别:
以产品分类的形式,显示产品列表,并能够在线下单。
5.产品查询:
以产品名称查询、产品类别查询、产品品牌查询。
其结果显示在产品类别页面,同时能够在线下订单。
6.在线订单:
显示客户定购的产品,并能够提交。
7.企业新闻:
显示公司的新闻列表。
8.联系我们:
显示公司的地址、电话、传真、邮编、联系人等信息
9.客户留言:
显示客户给公司所提交留言表单
10.售后服务:
静态页面,显示售后服务的情况。
1.4后台框架图
DXDiTa9E3d
2数据库设计
2.1数据库的需求分析
根据系统分析和功能模块的要求,可以列出如下数据项和数据结构:
●会员信息表:
存放会员的信息,数据项包括用户的名称、密码,权限等
●新闻公告表:
包括新闻标题、新闻内容、新闻发布时间等
●产品信息表:
包括产品的名称、市场价格、产品图片等
●产品类型表:
主要为类型数据项。
●产品品牌表:
主要为产品品牌项。
●订单编号总表:
包括订单编号、用户、总价等
●定单产品明细表:
包括订单编号、产品名称、数量等
●客户留言表:
包括客户名称、留言内容、留言时间等
●计数器表:
包括
2.2数据库的逻辑设计
根据系统需求,可以列出如下数据项和数据结构
1.会员信息表
会员信息表 2.新闻公告表 新闻公告表 3.产品信息表 产品信息表 4.产品类型表: 产品类型表 5.产品品牌表: 产品品牌表 6.订单编号总表 订单编号表 7.定单产品表 定单产品明细表 8.客户留言表 客户留言表 9.计数器表 计数器包含两个表: 当日访问人数表和总访问人数表 当日访问人数表 总访问人数表 3界面设计 在进行了功能模块的划分和数据库表的设计后,我们需要前台界面的设计,我们看看如下的样子<我打开一个网页,让大家看)RTCrpUDGiT 4模块实现 4.1系统公用页面的设计 <1)style文件(样式表>的设计: <2)global.asa文件,统计在线人数: SubApplication_onStart'初始值为0 Application("OnLine">=0 EndSub SubSession_onStart'一个用户访问进行记数加1 Application.Lock Application("OnLine">=Application("OnLine">+1 Application.Unlock EndSub SubSession_OnEnd'一个用户进程的结束,记数减1 )5PCzVD7HxA Application.Lock Application("OnLine">=Application("OnLine">-1 Application.Unlock EndSub <3)权限检查文件 <% if(isempty(session("username">>orlen(session("username">>=0>thenjLBHrnAILg response.Redirect("../index.asp"> endif %> <4)网站访问总人数统计文件 <% session.timeout=20 '***********************************************************xHAQX74J0X dimobjcon,objrs,strsql,objkehu setobjcon=server.createobject("ADODB.connection"> objcon.connectionstring="provider=microsoft.jet.oledb.4.0。 "&_LDAYtRyKfE "datasource="&server.mappath("db/xsj.mdb"> objcon.open '***********************************************************Zzz6ZB2Ltk dimktime'记录开始日期 dimzs'记录访问总人数 dimsf'是否开始统计标志 dimjtime'记录今日日期 dimid'最近记录访问记录ID dimjs'记录今日访问人数 dimtian'统计天数 strsql="select*fromz" setobjrs=server.createobject("ADODB.recordset"> objrs.openstrsql,objcon,1,3,1 ktime=objrs("ktime"> zs=objrs("zs"> sf=objrs("sf"> objrs.close '判断是否初始化 ifsf=1then strsql="selecttop1*fromrorderbyiddesc" setobjrs=server.createobject("ADODB.recordset"> objrs.openstrsql,objcon,1,3,1 jtime=objrs("jtime"> id=objrs("id"> js=objrs("js"> objrs.close '判断是否已登陆过 ifsession("objkehu">=emptythen '判断是否有今日记录<即今日是否有人防问) ifdatediff("d",jtime,date(>><>0then '今日无人访问添加今天访问记录,即第一个人访问。 strsql="insertintor(jtime,js>values('"&date(>&"',1>"dvzfvkwMI1 objcon.execute(strsql> js=1 jtime=date(> else '今天访问数加一 strsql="updatersetjs=js+1whereid="&id objcon.execute(strsql> js=js+1 endif '总访问数加一 strsql="updatezsetzs=zs+1" objcon.execute(strsql> zs=zs+1 session("objkehu">="true" endif endif setobjrs=nothing objcon.close setobjcon=nothing %> <5)数据库连接文件(link_db.asp> <% subsetconn(filename> setconn=server.createobject("ADODB.connection"> conn.connectionstring="provider=microsoft.jet.OLEDB.4.0。 datasource="&server.mappath(filename>rqyn14ZNXI conn.open endsub %> <6)数据库关闭文件(close_db.asp> <% conn.close setconn=nothing %> <7)图片上传处理文件 详细内容看fupload.inc文件。 4.2后台系统管理员页面的设计 <1)后台登陆口的制作。 有4个文件,分别: 登陆文件(login.asp>、登陆处理程序文件 登陆文件(login.asp> ……… <% fori=0toSecond(Now> seed=rnd*100 next Session("seed">=seed %> …………… functioncheck_input(> { if(form2.username.value==""> {alert("请输入管理员账号! ">。 form2.username.focus。 returnfalse。 } if(form2.password.value==""> {alert("请输入账号密码! ">。 form2.password.focus。 returnfalse。 } document.form2.password.value=MD5(document.form2.password.value+document.form2.seed.value>。 6ewMyirQFL returntrue。 } ………. cellSpacing=0class="fontzc"id=Table1 style="WIDTH: 300px。 BORDER-COLLAPSE: collapse。 HEIGHT: 61px">M2ub6vSTnP 22px"vAlign=centerwidth=285bgColor=#ff9900>0YujCfmUCw 录系统 22px">sQsAEJkW5T 99px。 HEIGHT: 21px"GMsIasNXkA tabIndex=1size=11name=username> 24px"bgColor=#e7e7e7> TIrRGchYzg style="WIDTH: 99px。 HEIGHT: 21px"tabIndex=2type=passwordsize=117EqZcWLZNX name=password> 24px"bgColor=#e7e7e7> 22px"bgColor=#e7e7e7>  。  。  。 22px"bgColor=#e7e7e7height=22>fjnFLDa5Zo ………… 登陆处理程序文件 <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%> --#includefile="public/md5.asp"--> --#includefile="public/link_db.asp"--> <% seed=Session("seed"> username=request.Form("username"> sql="select*fromadminwhereusername='"&username&"'andtype='0'"HbmVN777sL 'response.Write(sql> 'response.End(> Setrs=Server.CreateObject("ADODB.recordset"> rs.opensql,conn,1,1 %> <% ifrs.EOFthen %> window.alert("您的账号、密码输入不正确! "> history.back(>。 <% rs.close setrs=nothing conn.close setconn=nothing response.End(> %> <% elseifMD5(rs("Password">&seed><>Request.Form("password">thenV7l4jRB8Hs %> window.alert("您的账号、密码输入不正确! "> history.back(>。 <% rs.close setrs=nothing conn.close setconn=nothing response.End(> else Session("username">=trim(rs("username">> Session("type">=trim(cint(rs("type">>> response.Redirect("admin/news_list.asp"> rs.close setrs=nothing conn.close setconn=nothing response.End(> endif %> 登陆加密文件 这两个文件看盘上。 <2)信息发布管理 看第12章的内容。 <3)产品类型管理 这两个文件流程相同。 ……….. ………… ………. <% ifrequest("tj"><>""then tj=request("tj"> str="insertintopinpai(pinpai>values('"&tj&"'>" conn.execute(str> endif ifrequest("xg"><>""then xg=request("xg"> id=request("hed"> str="updatepinpaisetpinpai='"&xg&"'whereid="&idmZkklkzaaP conn.execute(str> endif ifrequest("bl">="sc"then id=request("id"> sql="deletefrompinpaiwhereid="&id 'response.Write(sql> 'response.End(> conn.execute(sql> endif %> …………………. …………………. ………………… bl=tj">添加品牌ORjBnOwcEd <% str="select*frompinpai" Setrs=Server.CreateObject("ADODB.recordset"> rs.openstr,conn,1,3,1 ifrs.recordcount<>0then %>  。  。  。 <%fori=1tors.recordcount%>  。  。 bl=xg&id=<%=rs("id">%>">修改 。  。  。 bl=sc&id=<%=rs("id">%>">删除 <% rs.movenext ifrs.eofthenexitfor next%> <%else %> <%endif%> <%ifrequest("bl">="tj"then%> asfpsfpi4k 如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。 copyright@ 2008-2022 冰点文档网站版权所有 经营许可证编号:鄂ICP备2022015515号-1
zvpgeqJ1hk 2MiJTy0dTT IAg9qLsgBX
冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。