4 系统关键部分实现
(1)登录密码保护及身份识别
<%
nowusername=request.form("username")
nowpassword=request.form("password")
sql="select * from login where username='"&nowusername&"' and password='"&nowpassword&"'"
set rs=conn.execute(sql)
if rs.eof then
%>
<script language=javascript>
alert('用户名称或口令错误！')
window.history.go(-1)
</script>
<%
response.end
end if
session("username")=nowusername
response.redirect "main.asp"
%>
(2)本单位仓库管理限制
sql="select * from ku order by id"
set rs_ku=conn.execute(sql)
<select name="ku">
<%
do while rs_ku.eof=false
if rs_ku("login")=session("username") then
%>
<option value="<%=rs_ku("id")%>" selected="selected"><%=rs_ku("ku")%></option>
<%
end if
%>
<% rs_ku.movenext
loop
%>
</select>
(3)权限管理（对系统一级菜单设置访问权限）
sql="select * from login where username='"&session("username")&"'"
set rs_login=conn.execute(sql)
quanxian=rs_login("quanxian")
qx=split(quanxian,",")
qx0=qx(0)
qx1=qx(1)
qx2=qx(2)
qx3=qx(3)
<%
if qx2="0" then
%>
<font color="#FF0000">你不具备此权限！</font>
5 系统界面示例
6 结束语
本系统的使用提升了物资管理水平，系统操作方便、运行可靠、简单实用。
