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 結束語
本系統的使用提升了物資管理水平，系統操作方便、運行可靠、簡單實用。
