影片租赁系统的分析与设计

2019-05-28 15:23:49
来源：51板报网
编辑：51板报网
己被围观488次

1.7管理界面设计管理界面的设计采用了框架的结构，框架构建文件为admin_index.asp，可以根据Request(“Type”)获取用户需要显示的管理页面。这样的设计可以使用户使用清晰明了，能快速找出所要使用的功能。admin_menu.asp为管理项目列表，所在的框架名称为leftFrame。而mainFrame显示的是管理选项页面。在每个管理界面当中均采用<!-#include file=”ChkAdmin.asp”-->方法引用了ChkAdmin.asp文件，这种设计是为了检测用户是否拥有管理权限，防止没有管理权限的用户非法篡改系统数据。1.7.1系统信息的查看与修改模块设计系统信息的查看与修改模块拥有两个选项： 查看系统信息 admin_sysset.asp 修改系统选项 admin_sysmodify.asp系统信息查看模块的功能是通过读取数据库内的信息实现的，由于实现简单在此不再赘述。但此模块的设计当中读取数据库路径和数据库大小的功能是值得注意的。实现方法请参见例程1-16，实现效果如图1-23。图1-23 系统信息的查看例程1-16读取数据库路径及大小Dim DBPath,DBSizeDim objFSO,objFile'数据库路径DBPath=Server.MapPath(db)'数据库大小Set objFSO=Server.CreateObject("Scripting.FileSystemObject")Set objFile=objFSO.GetFile(DBPath)DBSize=objFile.SizeSet objFile=NothingSet objFSO=Nothing注意：Server.MapPath()方法的作用是把虚拟路径转换为实际的物理路径。系统信息的修改模块的具体实现方法请参见例程1-17。例程1-17 系统信息的修改admin_sysmodify.asp<%Dim SysOwner,SysAbout,SysContact,SysLogoSet objRS=Server.CreateObject("ADODB.RecordSet")'取得系统信息strSQL="SELECT * FROM [SysInfo]"objRS.Open strSQL,objConn,1,3SysOwner=objRS("SI_Owner_S")SysAbout=objRS("SI_About_S")SysContact=objRS("SI_Contact_S")SysLogo=objRS("SI_Logo_S")objRS.CloseIf Request("IsModify")<>"" ThenSysOwner=Trim(Request("SysOwner"))SysAbout=Trim(Request("SysAbout"))SysContact=Trim(Request("SysContact"))SysLogo=Trim(Request("SysLogo"))'判断输入的字符数是否在限制的数量之内If Len(SysOwner)>250 Or Len(SysAbout)>250 Or Len(SysContact)>250&_Or Len(SysLogo)>250 ThenResponse.Write GetErr(9)Response.EndEnd If'过滤SQL字符SysOwner=ChkSQL(SysOwner)SysAbout=ChkSQL(SysAbout)SysContact=ChkSQL(SysContact)SysLogo=ChkSQL(SysLogo)'写入数据库strSQL="UPDATE [SysInfo] SET SI_Owner_S='"&SysOwner&"',SI_About_S='"&_SysAbout&"',SI_Contact_S='"&SysContact&"',SI_Logo_S='"&SysLogo&"'"objConn.Execute(strSQL)'输出信息Call ResultMsg("修改成功！")Else%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>修改系统设置</title><link href="style.css" rel="stylesheet" type="text/css"></head><body><form action=admin_sysmodify.asp method=post><table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=97% height=25% ><tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center>修改系统信息</th></tr><tr><td class=TableBody2 align=right width=15% >系统使用者：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysOwner><%=SysOwner%></textarea></td></tr><tr><td class=TableBody2 align=right width=15% >系统描述：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysAbout><%=SysAbout%></textarea></td></tr><tr><td class=TableBody2 align=right width=15% >联系人：<br>（不多于250字）</td><td class=TableBody1 align=left><textarea cols=125 rows=5 name=SysContact><%=SysContact%></textarea></td></tr><tr><td class=TableBody2 align=right width=15% >系统Logo：<br>（不多于250字）</td><td class=TableBody1 align=left><input type=text maxlength=200 name=SysLogo size=125 value=<%=SysLogo%>></td></tr><tr><td class=TableBody2 align=right colspan=2><center><input type=submit value=修改> <input type=reset value="复原"></center></td></tr></table><input type=hidden name=IsModify value=Yes></form></body></html><%End If%>1.7.2用户管理模块设计用户管理模块拥有四个选项： 查找用户 admin_finduser.asp 用户列表 admin_listuser.asp 供应商列表 admin_listuser.asp 被锁定的用户 admin_listuser.aspadmin_finduser.asp文件为纯html文件，作用是提供查找用户的查找选项。admin_listuser.asp是这个模块的功能之所在，此模块当中最重要的是通过客户端浏览器传递的信息，来判断用户的查询条件。可把查询条件分为主查询条件和附加查询条件两种。主查询条件包括用户名、Email和QQ，而附加查询条件为用户的附加属性，如管理员、锁定、供应商等。还可以选择是否将用户级别作为查询选项。在admin_finduser.asp文件中有一个名为AsCondition的勾选框（checkbox），当其被选中时AsCondition传来的值不为空，则将其作为查询条件；若没有被选中，那么AsCondition传来的是空值，则不将其作为查询条件。而多个查询条件的判别及累加，是通过多个If判断和Select Case实现的。此模块的难点，是当用户的查询没有主查询条件时，如何依据附加查询条件进行查询。在此使用了一个If判断，当驻查询条件SearchStr为空时，则默认主查询条件为strSQL="SELECT * FROM [UserInfo] WHERE UI_ID_N<>NULL "，这样在附加查询条件时就能顺利进行。有读者会问为什么不使用strSQL="SELECT * FROM [UserInfo]”而非要在其后加上一个WHERE子句？这是因为附加查询条件都是以AND开头，如：strSQL=strSQL&" AND UI_IsAdmin_B=True"目的就是为了能够同时附加多个查询条件，如果失去WHERE子句，会造成数据库查询错误。此模块的具体实现方法请参见例程1-18，实现效果图如图1-24和图1-25。图1-24 用户管理模块查找用户图1-25 用户管理模块用户列表例程1-18 用户管理模块用户列表admin_listuser.asp<%Dim SearchCondition,SearchStrDim UserLevel,LevelStatus,AsConditionDim IsAdmin,IsLocked,IsProviderDim tmpTD,tmpUserStatustmpTD="<td class=TableBody1 align=center width=17% >"

本文标题：影片租赁系统的分析与设计 - 计算机论文
本文地址：www.51banbao.com/fanwen/jisuanjilunwen/1082.html

　　相关推荐：

上一篇：在线图书交易系统论文

下一篇：ASP.NET学生宿舍管理网站

标签(TAG)

影片租赁系统的分析与设计

更多精彩内容