purview.asp

ASP数据库系统开发案例精选(光盘）中的客户关系管理系统 用户名/密码：admin/admin

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_User where username='"&session("admin_name")&"'"
rs.open sql,conn,1,1
'客户信息权限
function client
if rs("Client")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'联系人信息权限
function linkman
if rs("Linkman")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'合同信息权限
function pact
if rs("Pact")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'库存管理权限
function stockpile
if rs("Stockpile")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'产品管理权限
function product
if rs("Product")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'反馈信息权限
function feedback
if rs("Feedback")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'报表管理权限
function forms
if rs("Forms")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'email发送权限
function email
if rs("email")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'发件人管理权限
function addresser
if rs("Addresser")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'用户管理权限
function users
if rs("users")="可写" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您没有这个权限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
%>