用ASP實現分級許可權控制

來源:互聯網
上載者:User
控制 本文實現的是一個帳務管理系統中分級許可權的控制,程式使用ASP和JavaScript編寫,在裝有IIS4.0的win NT伺服器上運行,速度快,易維護。
權限等級劃分如下:
①、院長和財務科長:不能輸入,可以無限制查詢、統計;
②、副院長:不能輸入,可以查詢、統計其分管部門的帳務;
③、部門領導:不能輸入,可以查詢、統計本部門的帳務;
④、會計:能輸入各部門的帳務(一個會計有時要做幾個部門的帳),只能查詢、統計自己輸入的帳務。
涉及的資料庫和欄位如下
①、JK_USER資料庫及欄位:id(序號),bmid(部門號),username(使用者名稱),pwd(口令),right(許可權值);
②、BM資料庫及欄位:id(序號) ,bmid(部門號);
③、JZPZ資料庫及欄位:id(序號),bm(部門), zgs(子公司),xmz(項目組),xm(項目),sr(收入),zc(支出),szfx(收支方向),szxs(收支形式),rq(日期),jbr(經辦人),lrr(錄入人),szsm(收支說明);  
④、ZGS資料庫及欄位:id(序號),zgs(子公司)name(公司名),bmid(部門編號)。
1.首先進行使用者身份合法性驗證
將使用者提交的使用者名稱和口令與資料庫JK_USER中的欄位對照對照,以確定其合法性,只有合法的使用者(系統管理員為其開過戶)才可以進入,合法使用者有四種權限等級,分別賦予“1”、“2”、“3”、“4”四種許可權值。(程式略)。
2.憑證記帳(分級許可權控制)
憑證記帳功能是專為會計人員服務的,其他人不可以使用,如以非會計人員身份進入憑證錄入介面時,只有“查詢記帳憑證”功能按鈕可見,其它功能按鈕不可見。錄入的憑證先存放在一個暫存資料表裡,稱為“未記帳憑證庫”,只有運行“憑證記帳”功能後才進入“憑證庫”在“未記帳憑證庫”中的憑證可以修改。部分程式如下:
’非會計人員進入,不顯示“憑證記帳”和“儲存未記帳憑證”功能按鈕
if (thisPage.firstEntered) then  
if session("tright")<> "1" then  
button1.hide
button2.hide
end if
…………
’自動填寫時間和操作人
Textbox7.value=year(date) & "-" & month(date) & "-" & day(date)
Textbox9.value =session("username")  
set cnn1=server.CreateObject("adodb.connection")
set rst1=server.CreateObject("adodb.recordset")
cnn1.CursorLocation=3
cnn1.ConnectionTimeout =30
cnn1.Open "DSN=jky"
rst1.Open "select * from bm ",cnn1,1,1,adcmdtext
if rst1.RecordCount >0 then
RST1.MoveFirst  
Id=rst1.Fields("id")
do while not rst1.EOF
Listbox3.addItem rst1.Fields("bmName"),cint(rst1.Fields("id"))
'Response.Write rst1.Fields("bmname") & rst1.Fields("id")
rst1.MoveNext  
loop
end if
rst1.Close
rst1.Open "select zgsname from zgs where bmid=" & id,cnn1,1,1,adcmdtext
if rst1.RecordCount >0 then
rst1.MoveFirst  
do while not rst1.EOF
Listbox4.addItem cstr(rst1.Fields("zgsname"))
rst1.MoveNext  
loop
end if
rst1.Close
cnn1.close
call writerst
end if
end function
………………
’憑證記帳
sub button2_onclick
dim s
s=Listbox1.selectedIndex
Response.Write s
end sub
sub listbox3_onchange
dim id,i
i=Listbox4.getCount()
do while i>-1
call Listbox4.removeItem(i)
i=i-1
loop
id=listbox3.getValue (listbox3.selectedIndex)
set cnn2=server.CreateObject("adodb.connection")
set rst2=server.CreateObject("adodb.recordset")
cnn2.CursorLocation=3
cnn2.ConnectionTimeout =30
cnn2.Open"DSN=jky"
rst2.Open "select zgsName from zgs where bmid=" & id,cnn2,1,1,adcmdtext
if rst2.RecordCount >0 then
RST2.MoveFirst  
do while not rst2.EOF
Listbox4.addItem cstr(rst2.Fields("zgsName"))
rst2.MoveNext  
loop
end if
rst2.Close
cnn2.Close
end sub
sub button2_onclick
set cnn5=server.CreateObject("adodb.connection")
cnn5.CursorLocation=3
cnn5.ConnectionTimeout =30
cnn5.Open"DSN=jky"
cnn5.Execute "insert into jzpz(bm,zgs,xmz,xm,sr,zc,szfx,szxs,rq,jbr,lrr,szsm) select bm,zgs,xmz,xm,sr,zc,szfx,szxs,rq,jbr,lrr,szsm from wjzpz where lrr='" & session("username") & "'"
cnn5.Execute "delete from wjzpz where lrr='" & session("username") & "'"
end sub
3.資料查詢(分級許可權控制)
以憑證的欄位為條件進行查詢,在供選條件前有一方框供打“√”,其中“部門“條件必選(程式自動加上),部門內容由程式根據使用者的許可權自動從資料庫中調用相應值,分公司內容根據所屬部門自動調整,部分程式如下:
……………
’根據許可權值進入相應的查詢介面
……………
function thisPage_onenter()
set cnn1=server.CreateObject("adodb.connection")
set rst1=server.CreateObject("adodb.recordset")
cnn1.CursorLocation=3
cnn1.ConnectionTimeout =30
cnn1.Open "dsn=jky"
select case session("Tright")
case "3"'副院長
rst1.Open "select bm.bmName from jk_user ,bm where JK_user.bmid=bm.id and jk_user.username ='"& session("username") & "'",cnn1,1,1,adcmdtext
if rst1.RecordCount >0 then
RST1.MoveFirst  
do while not rst1.EOF
Listbox1.addItem cstr(rst1.Fields("bmName"))
rst1.MoveNext  
loop
end if
rst1.Close
rst1.Open "select zgsname from zgs ",cnn1,



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。