yan.asp

来自「ASP+SQL2000编写的OA办公自动化系统,值得学习和借鉴1」· ASP 代码 · 共 95 行

<%
set ps=server.CreateObject("adodb.recordset")
ql="select * from users where username='"&session("admin_name")&"'"
ps.open ql,conn,1,1

function case1
if ps("shenhe")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case2
if ps("huiyi")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case3
if ps("gonggong")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case4
if ps("geren")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case5
if ps("huibao")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function



function case6
if ps("caigoushen")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case7
if ps("caigou")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case8
if ps("kucun")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case9
if ps("shangbao")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限');location='javascript:history.go(-1)'</script>")
end if  
end function

function case10
if  ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您不是超级用户！');location='javascript:history.go(-1)'</script>")
end if  
end function

function case11
if ps("renshi")=1 or ps("chaoji")=1 then
response.Write("")
else
response.Write("<script language=javascript>alert('对不起您没有这个权限！');location='javascript:history.go(-1)'</script>")
end if  
end function
%>