end if
case else
response.Redirect("cgindex.asp") '重新定向到指定页面
end select
end if
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
alert("没有找到您要查询的记录!") '弹出提示对话框
history.back(1) '返回上一级页面
</script>
<%response.End()
end if%>
采购查询页面的运行结果如图14、图15所示。
图14 采购查询条件页面运行结果
图15 采购查询结果页面运行结果
9 系统设置主要功能模块详细设计
系统设置页面主要是对操作员的信息进行添加、修改、删除的操作。主要包括添加操作员、更改操作员密码、删除操作员3部分。
9.1 删除操作员设计
用户可以通过单击菜单主导航“系统设置”/“删除操作员”超链接，进入删除操作员页面，用户单击“删除操作员”图片链接进行操作员的删除操作。
删除操作员页面的设计效果如图33所示。
图33 删除操作员页面的设计效果
首先进行判断当前用户是否具备删除操作员的权限，完整代码如下：
<!--#include file="../conn/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from userlist where name='"&session("name")&"' and quan='a'"
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
alert("对不起！您没有这个权限") //弹出提示对话框
history.back(1) //返回上一级页面
</script>
<%response.end()
end if
rs.close() '关闭数据集
set rs=nothing '将数据集在系统内存中清除
%>
首先通过查询语句检索userlist数据表中的全部数据，并按照权限进行顺序排序，检索数据库表中是否有该操作员的信息，如果没有检索到，则弹出相应的信息提示，代码如下：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from userlist order by quan" '查询数据
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
alert("暂无操作员信息!");
parent.location.href="login.asp"; //跳转到指定页面
</script>
<%response.End()
else%>
<% for i=1 to rs.recordcount%>
<tr bgcolor="#CCE3FF">
<td align="center"><%=rs("name")%></td>
<%
if rs("quan")="a" then quan="系统管理员"
if rs("quan")="c" then quan="普通管理员"
%>
<td align="center"><%=quan%></td>
<td align="center"><a href="delczy_deal.asp?id=<%=rs("id")%>"><img src="../images/del.gif" width="22" height="22" border="0"></a></td>
</tr>
<%rs.movenext
next%>
<%end if%>
从上面的代码中可以看出，首先利用for循环语句来判断变量quan的值，来确定当前操作员的管理权限。如果变量“quan”的值为a，那么权限为系统管理员；如果变量“quan”的值为c，那