|
4 系统功能模块分析 内容来自论文无忧网 www.paper51.com
4.1 前台功能模块分析 paper51.com 4.1.1 数据库连接 http://www.paper51.com 专门独立一页面除了作为进行数据库连接功能的实现，同时写入系统常用的几个函数，其目的是方便以后其它页面的功能实现时能直接调用此页面，而不需反复写入代码，提高效率。函数的编写主要是利用了ASP内置几个重要函数来实现的。Conn_xt文件下包含两个页面。 内容来自论文无忧网 www.paper51.com 页面shopxt.asp： http://www.paper51.com <% copyright paper51.com Rem 过滤HTML代码 内容来自论文无忧网 www.paper51.com function HTMLEncode(fString) 内容来自www.paper51.com if not isnull(fString) then 内容来自www.paper51.com fString = replace(fString,">", ">") copyright paper51.com fString = replace(fString,"<", "<") http://www.paper51.com fString = Replace(fString,CHR(32), " ") http://www.paper51.com fString = Replace(fString,CHR(9), " ") 内容来自www.paper51.com fString = Replace(fString,CHR(34), """) copyright paper51.com fString = Replace(fString,CHR(39), "'") 内容来自www.paper51.com fString = Replace(fString,CHR(13), "") 内容来自www.paper51.com
fString = Replace(fString,CHR(10) & CHR(10), "</P><P> ") http://www.paper51.com fString = Replace(fString,CHR(10), "<BR> ") copyright paper51.com 'fString=ChkBadWords(fString) paper51.com HTMLEncode = fString copyright paper51.com else http://www.paper51.com HTMLEncode=fstring paper51.com end if http://www.paper51.com end function copyright paper51.com Rem 过滤SQL非法字符 内容来自www.paper51.com function checkStr(str) 内容来自www.paper51.com
ifisnull(str) then http://www.paper51.com
checkStr= "" http://www.paper51.com exitfunction copyright paper51.com endif http://www.paper51.com
checkStr=replace(str,"'","''") http://www.paper51.com end function paper51.com Rem 判断字符是否是整型 内容来自www.paper51.com function isInteger(para) paper51.com on errorresume next copyright paper51.com dim str 内容来自www.paper51.com dim l,i paper51.com ifisNUll(para) then http://www.paper51.com isInteger=false http://www.paper51.com exit function paper51.com end if 内容来自论文无忧网 www.paper51.com
str=cstr(para) paper51.com if trim(str)=""then paper51.com isInteger=false copyright paper51.com exit function 内容来自www.paper51.com end if paper51.com l=len(str) paper51.com for i=1 tol 内容来自www.paper51.com if mid(str,i,1)>"9" or mid(str,i,1)<"0" then http://www.paper51.com
isInteger=false copyright paper51.com exit function http://www.paper51.com end if 内容来自论文无忧网 www.paper51.com
next paper51.com
isInteger=true http://www.paper51.com iferr.number<>0 then err.clear 内容来自www.paper51.com end function 内容来自论文无忧网 www.paper51.com %> 内容来自论文无忧网 www.paper51.com 4.1.2 菜品图片浏览 http://www.paper51.com
用户可直接在主页面查看菜品信息包括菜品图示以及价格。操作简单只需将鼠标放在菜名上即可显示菜品图示。浏览方便，特色性强。采用JavaScript语言编写。在网上搜索代码嵌入页面使用。如图4-1所示。 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 图4-1 菜单浏览页面 内容来自www.paper51.com paper51.com 4.1.3 订单填写 paper51.com
订单是用户管理自己在网站订餐的一个模块，此功能在这里不仅给用户提供了查看自己的订餐，还提供了自动计算功能。如图4－2所示。 内容来自论文无忧网 www.paper51.com http://www.paper51.com 图4-2 订单菜单 内容来自www.paper51.com 页面dingcan.asp： 内容来自www.paper51.com function subm(){ 内容来自论文无忧网 www.paper51.com
if(!checkDate())return; 内容来自www.paper51.com var str = '您的订单如下：\n\n-------------------\n\n'; 内容来自论文无忧网 www.paper51.com var ts = ''; copyright paper51.com var allN = 0; copyright paper51.com for(var i =0;i < form3.length;i ++){ http://www.paper51.com if(form3(i).name=='number'){ http://www.paper51.com if(form3(i).value>0){ copyright paper51.com ts+= '⊕'+form3(i-2).value+' '+form3(i-1).value+'元 X '+form3(i).value+'份='+(form3(i-1).value*form3(i).value)+'元 \n\n' copyright paper51.com
allN +=(form3(i-1).value*form3(i).value); 内容来自论文无忧网 www.paper51.com } http://www.paper51.com
} paper51.com } http://www.paper51.com str += ts +'-------------------------------------\n\n总计: '+allN+'元'; 内容来自www.paper51.com str += '\n\n送餐时间：'+form3.hours.value+'点'+form3.minutes.value+'分'; http://www.paper51.com if(ts == '')return alert 内容来自www.paper51.com if(confirm(str)){ copyright paper51.com form3.list.value = ts; 内容来自论文无忧网 www.paper51.com form3.list1.value = allN 内容来自www.paper51.com form3.submit(); 内容来自www.paper51.com
} 内容来自www.paper51.com } 内容来自论文无忧网 www.paper51.com 查看订单状态： paper51.com 此功能为会员所特有，只有会员登陆后才能查看订单信息。如图4－3所示。 http://www.paper51.com http://www.paper51.com 图4-3 查看订单 内容来自论文无忧网 www.paper51.com
网页：ckdd.asp 内容来自www.paper51.com <%dim aa paper51.com aa=session("names") 内容来自论文无忧网 www.paper51.com setrs=server.CreateObject("adodb.recordset") 内容来自www.paper51.com rs.open "select * from tdgl whereyhm='"&aa&"' order by id desc",conn,1,3 http://www.paper51.com if rs.eof and rs.bof then paper51.com response.write "您还没订过餐！！" http://www.paper51.com 'response.End copyright paper51.com
Else %> paper51.com <% 内容来自www.paper51.com
ifnot rs.eof then copyright paper51.com i=1 copyright paper51.com dowhile not rs.eof %> paper51.com <% 内容来自论文无忧网 www.paper51.com
rs.movenext paper51.com i=i+1 http://www.paper51.com loop http://www.paper51.com rs.close 内容来自论文无忧网 www.paper51.com endif copyright paper51.com
endif %> http://www.paper51.com
4.1.4 在线留言 内容来自www.paper51.com 在网站建设初期，针对所有用户开放留言区，用户可以提出对菜品信息、如何送货以及对网站建设的任何问题。在网站正式步入轨道后将改为只针对会员开放。如图4－4所示。 paper51.com http://www.paper51.com 图4-4 用户留言页面 copyright paper51.com 网页：liuyan.asp paper51.com 主要介绍分页代码： 内容来自www.paper51.com ConstMaxPerPage=10 http://www.paper51.com dimtotalPut http://www.paper51.com dimCurrentPage http://www.paper51.com dimTotalPages 内容来自论文无忧网 www.paper51.com dimj copyright paper51.com dimsql 内容来自论文无忧网 www.paper51.com ifNot isempty(request("page")) then copyright paper51.com
currentPage=Cint(request("page")) copyright paper51.com
else http://www.paper51.com currentPage=1 内容来自论文无忧网 www.paper51.com endif 内容来自论文无忧网 www.paper51.com ifcurrentpage<1 then http://www.paper51.com currentpage=1 内容来自www.paper51.com endif 内容来自www.paper51.com if(currentpage-1)*MaxPerPage>totalput then paper51.com if(totalPut mod MaxPerPage)=0 then copyright paper51.com currentpage=totalPut \ MaxPerPage http://www.paper51.com else 内容来自论文无忧网 www.paper51.com currentpage=totalPut \ MaxPerPage + 1 内容来自www.paper51.com endif http://www.paper51.com endif http://www.paper51.com copyright paper51.com 检查留言信息是否填完整： copyright paper51.com
内容来自论文无忧网 www.paper51.com 图4-5 查看留言填写完整 paper51.com
页面：liuyan1.asp http://www.paper51.com <!--#includefile="conn_xp/xp.asp" --> copyright paper51.com <% paper51.com
ifrequest.Form("name")=""orrequest.Form("email")=""orrequest.Form("textarea")="" then paper51.com response.Write("<script>alert(请填写完整!'); paper51.com location.href=""liuyan.asp""</script>") copyright paper51.com response.end() 内容来自论文无忧网 www.paper51.com end if 内容来自www.paper51.com names=request.Form("name") 内容来自www.paper51.com email=request.Form("email") copyright paper51.com title=request.Form("title") 内容来自www.paper51.com textarea=request.Form("textarea") http://www.paper51.com exec="select * from liuyan" 内容来自www.paper51.com
setrs=server.createobject("adodb.recordset") http://www.paper51.com
rs.open exec,conn,2,3 内容来自www.paper51.com rs.addnew copyright paper51.com
rs("name")=names copyright paper51.com rs("email")=email 内容来自论文无忧网 www.paper51.com rs("title")=title copyright paper51.com rs("content")=textarea 内容来自论文无忧网 www.paper51.com rs("adddate")=now() http://www.paper51.com rs.update copyright paper51.com rs.close paper51.com response.Write("<script>alert('多谢支持!');location.href=""liuyan.asp""</script>") http://www.paper51.com set rs=nothing paper51.com conn.close 内容来自论文无忧网 www.paper51.com set conn=nothing copyright paper51.com %> 内容来自www.paper51.com
|