<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
%>