鉴于大家对ASP类作品十分关注，我们编辑小组在此为大家搜集整理了“企业物流网站的设计”一文，供大家参考学习!
1．分公司管理员修改 分公司管理员修改页面主要用于修改管理员密码、管理员所在分公司，在对管理员进行修改时用户名不可以进行修改。管理员修改页面的设计效果如图32所示。 图32 分公司管理员修改页面设计效果 分公司管理员修改页面中所涉及到的HTML重要表单元素如表10所示。 表10 分公司管理员修改页面中所涉及到的HTML重要表单元素
将用户名文本框的readonly属性设为true，此时的文本框是不可编辑的。管理员修改时所涉及到相关程序代码如下： <% if request("post")<>"" then set rs2=server.CreateObject("adodb.recordset") sql2="select * from fuser where id="&request("id") rs2.open sql2,conn,1,3 rs2("username")=request("username") rs2("userpwd")=request("userpwd") ''修改管理员密码 rs2("fengongsi")=request("gongsi") ''修改管理员所在分公司 rs2.update rs2.close response.Write("<script language=javascript>alert(''修改成功'');location=''fgongsi.asp''</script>") response.End end if %> 分公司管理模块运行结果如图33所示。 图33 分公司管理模块运行结果 2．分类查看用户信息 通过下拉列表选择所要查看各分公司的用户详细信息，分类查看页面设计效果如图34所示。 图34 分类查看页面设计效果 在下拉列表中选择所要查看的公司名称后可以查看相对应公司下的所有用户详细信息。分类查看用户信息所涉及到的程序代码如下： <script language="JavaScript" type="text/JavaScript"> function jumpMenu(targ,selObj,restore) { eval(targ+".location=''"+selObj.options[selObj.selectedIndex].value+"''"); if (restore) selObj.selectedIndex=0; } </script> <select name="menu1" onChange="jumpMenu(''self'',this,0)"> <% set rs=server.CreateObject("adodb.recordset") sql="select * from fgongsi" rs.open sql,conn,1,1 if rs.eof then%> <option selected>－请添加分公司－</option> <%else response.Write(" <option value=fgongsi.asp>－显示全部分公司－</option>") %> <%for i=1 to rs.recordcount and not rs.eof if int(request("fenlei"))=rs("id") then %> <option value=fgongsi.asp?fenlei=<%=rs("id")%> selected><%=rs("fengongsi")%> </option> <% Else %> <option value=fgongsi.asp?fenlei=<%=rs("id")%>><%=rs("fengongsi")%></option> <% end if rs.movenext if rs.eof then exit for next end if %> </select> | ||||||||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | ||||||||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
