<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
'客戶信息權(quán)限
function client
if rs("Client")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'聯(lián)系人信息權(quán)限
function linkman
if rs("Linkman")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'合同信息權(quán)限
function pact
if rs("Pact")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'庫存管理權(quán)限
function stockpile
if rs("Stockpile")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'產(chǎn)品管理權(quán)限
function product
if rs("Product")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'反饋信息權(quán)限
function feedback
if rs("Feedback")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'報(bào)表管理權(quán)限
function forms
if rs("Forms")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'email發(fā)送權(quán)限
function email
if rs("email")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'發(fā)件人管理權(quán)限
function addresser
if rs("Addresser")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
'用戶管理權(quán)限
function users
if rs("users")="可寫" or rs("chaoji")="是" then
response.Write("")
else
response.Write("<script language=javascript>alert('您沒有這個(gè)權(quán)限');location='javascript:history.go(-1)'</script>")
response.End()
end if
end function
%>