|
3.3 用户登录模块的实现 用户登录时采用的身份验证算法如图3-2所示。 paper51.com
根据以上算法设计出login.asp页面，其关键代码为： paper51.com <% copyright paper51.com response.expires = -1 paper51.com if request("Action")="Sys_LoginCheck"then 内容来自www.paper51.com
username=trim(Request.form("username")) '获取用户名 paper51.com password=replace(trim(Request.Form("password")),"'","''")'获取密码,并加密 copyright paper51.com Md5_Pass=password 内容来自www.paper51.com Sys_CheckCode=replace(trim(Request("Sys_CheckCode")),"'","")'获取验证码 内容来自www.paper51.com if username="" or password=""then '判断用户名和密码是否正确 copyright paper51.com response.write"<script>alert(""用户名和密码不能为空！""); location.href=""Login.asp"";</script>" paper51.com Response.end paper51.com end if 内容来自www.paper51.com ifSys_CheckCode<>CStr(session("CheckCode")) then 内容来自论文无忧网 www.paper51.com Response.write"<script>alert(""验证码不正确，请刷新后重新登陆! ""); location.href=""Login.asp"";</script>" http://www.paper51.com Response.end paper51.com end if 内容来自论文无忧网 www.paper51.com setrs=server.createobject("adodb.recordset") 内容来自论文无忧网 www.paper51.com sql="select * from Users whereloginid='"&username&"'andpwd='"&Md5_Pass&"'" 内容来自www.paper51.com rs.open sql,conn,1,3 内容来自论文无忧网 www.paper51.com if not rs.EOF then '登录成功 http://www.paper51.com gonghaoID=Rs("gonghao") 内容来自论文无忧网 www.paper51.com session.Timeout=120 内容来自www.paper51.com Session("AdminID")=gonghaoID'保存员工工号 内容来自论文无忧网 www.paper51.com Session("adminName")=Rs("name") '保存员工姓名 内容来自论文无忧网 www.paper51.com
Session("adminLoginId")=Rs("loginid") '保存员工登录帐号名 paper51.com setrst=server.createobject("adodb.recordset") '读取权限 paper51.com
sql="select * from Quanxian wheregonghao='"&gonghaoID&"'" 内容来自论文无忧网 www.paper51.com rst.open sql,conn,1,3 http://www.paper51.com if not(rst.eof) then http://www.paper51.com
LoginArray= rst.GetRows() 内容来自论文无忧网 www.paper51.com
Session("LoginArray")=LoginArray'用数组方式保存员工操作权限 paper51.com else 内容来自www.paper51.com Response.write"<script>alert(""权限读取错误!""); location.href=""Login.asp"";</script>" paper51.com Response.end http://www.paper51.com end if 内容来自论文无忧网 www.paper51.com
rst.close paper51.com
setrst=nothing http://www.paper51.com response.redirect ("mainframe.asp") '验证成功,跳转主页面 paper51.com
else '登录失败 paper51.com
Response.write"<script>alert(""密码错误或者无此用户！ ""); location.href=""Login.asp"";</script>" 内容来自www.paper51.com Response.End paper51.com
end if 内容来自www.paper51.com rs.close copyright paper51.com set rs=nothing 内容来自www.paper51.com end if http://www.paper51.com if request("Action")="LoginOut" then copyright paper51.com
Session("AdminID")="" '用户安全注销，结束会话 内容来自www.paper51.com Session("adminName")="" copyright paper51.com Session("adminLoginId")="" copyright paper51.com
Session("LoginArray")="" http://www.paper51.com Response.Write"<script>location.href=""javascript:window.close()"";</script>" paper51.com
end if %> 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
图3-2 用户身份验证算法 paper51.com 3.4 商品信息管理模块的实现 copyright paper51.com 3.4.1 商品分类 内容来自www.paper51.com
对商品分类可以便于对商品的管理，本系统中采用二级商品分类的方法，一级类别描述产品所属的大致类别，二级类别则在一级类别的基础上，对商品进行细致的划分。 copyright paper51.com 商品分类包括对商品类型的增加，修改和删除，商品类型增加的界面如图3-3所示。 内容来自www.paper51.com
内容来自www.paper51.com 图3-3 增加商品类型 内容来自www.paper51.com 用户输入类型信息增加后会在数据库中增加相应的记录，其实现代码是： copyright paper51.com setrst=server.CreateObject("adodb.recordset") paper51.com sql="insert intoSpfenlei(fenleiname,fenleimatou,beizhu)&_ values('"&fenleiname&"',upper('"&fenleimatou&"'),'"&beizhu&"')" copyright paper51.com rst.Open sql,Conn paper51.com 用户输入类型信息修改后会在数据库中对相应的记录进行更新，其实现代码是： paper51.com
sql="update Spfenlei setfenleiname='"&fenleiname&"',&_ 内容来自www.paper51.com fenleimatou=upper('"&fenleimatou&"'), beizhu='"&beizhu&"'where &_ 内容来自www.paper51.com
id='"&id&"'" copyright paper51.com rst.Open sql,Conn http://www.paper51.com
删除商品类型的实现代码是： copyright paper51.com sql="DeleteFrom Spfenlei Where id='"&id&"'" 内容来自www.paper51.com
rst.Open sql,Conn paper51.com 3.4.2 商品增加 paper51.com 用户在系统初期时会录入商品详细信息，其录入界面如图3-4所示。 内容来自www.paper51.com 商品编号是根据当前日期自动生成的唯一编号，不能由用户修改。类型为商品的实际类型，如果当前列表中无该类型可点击右边的[增加类型]增加商品类型。商品供货商可以直接双击选择相应的供货商，该供货商是已经在客户管理中增加的。商品增加是将商品信息增加到数据库中，首先是检查该商品是否已经存在，其实现代码是： paper51.com set rs=conn.execute("select * from [Shangpin] wherebianhao ='"&bianhao&"'") paper51.com if not(rs.bof or rs.eof) then 内容来自论文无忧网 www.paper51.com ... '报错处理 paper51.com rs.close 内容来自www.paper51.com 如果没有该商品就将其添加到商品信息表中和商品仓库表中，代码是： 内容来自论文无忧网 www.paper51.com sql="insert into Shangpin (fenleiname,bianhao,name,xinghao,danwei,&_ gonghuoshang,beizhu)values('"&fenleiname &"','"&bianhao&"','"&name&_ &"', '" & xinghao&"','" & danwei &"','" & gonghuoshang&"','" &beizhu &"')" http://www.paper51.com
rst.Opensql,Conn '增加商品信息表资料 内容来自论文无忧网 www.paper51.com sqlck="insert into Spcangku(bianhao,name,fenleiname,xinghao,danwei,&_ gonghuoshang,shuliang,jiage,jiagehe,beizhu)values('"&bianhao&"',&_ '"&name&"','"&fenleiname&"','"&xinghao&"','"&danwei&"','"&gonghuoshang&_ 内容来自www.paper51.com &"','"&shuliang&"',"&jiage&","&jiagehe&",'"&beizhu&"')" 内容来自论文无忧网 www.paper51.com rck.Opensqlck,Conn '增加商品仓库信息表资料 http://www.paper51.com copyright paper51.com 图3-4 商品增加 paper51.com 3.4.3 商品修改 内容来自论文无忧网 www.paper51.com 商品修改可以在商品列表中选择对应的商品进行修改，商品修改界面如图3-5所示。 paper51.com http://www.paper51.com 图3-5 商品修改 内容来自论文无忧网 www.paper51.com
商品修改是对相应的商品信息进行更新，即更新其商品信息表和商品仓库表，代码是： 内容来自论文无忧网 www.paper51.com sql="update shangpin set name='"&name&"',fenleiname='"&fenleiname&_&"',xinghao='"&xinghao&"',danwei='"&danwei&"',gonghuoshang='"&gonghuosh&_ang&"',beizhu='"&beizhu&"' wherebianhao='"&bianhao& "'" paper51.com rst.Opensql,Conn '修改商品信息表资料 http://www.paper51.com sql="update Spcangku setname='"&name&"',fenleiname='"&fenleiname&_&"',xinghao='"&xinghao&"',danwei='"&danwei&"',gonghuoshang='"&gonghuos&_ 内容来自论文无忧网 www.paper51.com hang&"',beizhu='"&beizhu&"'where bianhao='"&bianhao& "'" paper51.com rck.Opensql,Conn '修改商品仓库信息表资料 http://www.paper51.com http://www.paper51.com |