知识大全用ASP实现分级权限控制

Posted 2022-07-17 记帐

篇首语：心专才能绣得花，心静才能织得麻。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用ASP实现分级权限控制相关的知识，希望对你有一定的参考价值。

用ASP实现分级权限控制 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本文实现的是一个帐务管理系统中分级权限的控制程序使用ASP和JavaScript编写在装有IIS 的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（部门编号）．首先进行用户身份合法性验证将用户提交的用户名和口令与数据库JK_USER中的字段对照对照以确定其合法性只有合法的用户（系统管理员为其开过户）才可以进入合法用户有四种权限级别分别赋予四种权限值（程序略）．凭证记帐（分级权限控制）凭证记帐功能是专为会计人员服务的其他人不可以使用如以非会计人员身份进入凭证录入界面时只有查询记帐凭证功能按钮可见其它功能按钮不可见录入的凭证先存放在一个临时表里称为未记帐凭证库只有运行凭证记帐功能后才进入凭证库在未记帐凭证库中的凭证可以修改部分程序如下非会计人员进入不显示凭证记帐和保存未记帐凭证功能按钮 if (thisPage firstEntered) then if session( tright )<> then button hide button hide end if ………… 自动填写时间和操作人 Textbox value=year(date) & & month(date) & & day(date) Textbox value =session( username ) set cnn =server CreateObject( nnection ) set rst =server CreateObject( adodb recordset ) cnn CursorLocation= cnn ConnectionTimeout = cnn Open DSN=jky rst Open select * from bm cnn adcmdtext if rst RecordCount > then RST MoveFirst Id=rst Fields( id ) do while not rst EOF Listbox addItem rst Fields( bmName ) cint(rst Fields( id )) Response Write rst Fields( bmname ) & rst Fields( id ) rst MoveNext loop end if rst Close rst Open select zgsname from zgs where bmid= & id cnn adcmdtext if rst RecordCount > then rst MoveFirst do while not rst EOF Listbox addItem cstr(rst Fields( zgsname )) rst MoveNext loop end if rst Close cnn close call writerst end if end function ……………… 凭证记帐 sub button _onclick dim s s=Listbox selectedIndex Response Write s end sub sub listbox _onchange dim id i i=Listbox getCount() do while i> call Listbox removeItem(i) i=i loop id=listbox getValue (listbox selectedIndex) set cnn =server CreateObject( nnection ) set rst =server CreateObject( adodb recordset ) cnn CursorLocation= cnn ConnectionTimeout = cnn Open DSN=jky rst Open select zgsName from zgs where bmid= & id cnn adcmdtext if rst RecordCount > then RST MoveFirst do while not rst EOF Listbox addItem cstr(rst Fields( zgsName )) rst MoveNext loop end if rst Close cnn Close end sub sub button _onclick set cnn =server CreateObject( nnection ) cnn CursorLocation= cnn ConnectionTimeout = cnn Open DSN=jky cnn 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 ) & cnn Execute delete from wjzpz where lrr= & session( username ) & end sub 数据查询（分级权限控制）以凭证的字段为条件进行查询在供选条件前有一方框供打 √ 其中部门条件必选（程序自动加上）部门内容由程序根据用户的权限自动从数据库中调用相应值分公司内容根据所属部门自动调整部分程序如下 …………… 根据权限值进入相应的查询界面 …………… function thisPage_onenter() set cnn =server CreateObject( nnection ) set rst =server CreateObject( adodb recordset ) cnn CursorLocation= cnn ConnectionTimeout = cnn Open dsn=jky select case session( Tright ) case 副院长 rst Open select bm bmName from jk_user bm where JK_user bmid=bm id and jk_user username = & session( username ) & cnn adcmdtext if rst RecordCount > then RST MoveFirst do while not rst EOF Listbox addItem cstr(rst Fields( bmName )) rst MoveNext loop end if rst Close rst Open select zgsname from zgs cnn cha138/Article/program/net/201311/12280

知识大全 用ASP实现分级权限控制

知识大全用ASP实现分级权限控制