新微赢技术网

标题: sos,asp+access权限问题! [打印本页]

作者: 鰰﹎話    时间: 2010-1-7 03:42
标题: sos,asp+access权限问题!
sos,asp+access权限问题!
我建了两张表user和part,
表user的字段有“id”(数字),“name”(文本),“userpart”(文本)
表part的字段有“id”(数字),“part”(文本),“系统登陆”,“客户管理”“查询”等字段,
将“系统登陆”“客户管理”“查询”等字段设置为“1”或“0”,1表示有权限操作,0表示没权限。
给每个页面都写了一个判断是否有权限操作代码。
<!--#include file="../data/conn.asp"-->
<%dim strusername
strusername=trim(request.form("username"))%>
<script language=VBScript runat=SERVER>
Function check_power(power_string)
set Recordset1 = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM part,user where name=userpart and username='"&trim(strusername)&"'"
Recordset1.Open strSQL,connstr,1,1
if Recordset1.recordcount=0 then
check_power = 0
else
if Recordset1(power_string).value=1 then
check_power = 1
else
check_power = 0
end if
end if
END Function
</script>
<%
if session("username")="" then
response.redirect"../index.asp"
else
if check_power("客户管理")=0 then
response.redirect"check_false.asp"
else
%>
.
.
.
<%end if%>
运行后系统显示错误,各位高手能给小弟指点哈吗?
作者: 紫恋    时间: 2010-1-7 03:42
strSQL="SELECT * FROM part a,user b where a.name=a.userpart and b.username='"&trim(strusername)&"'"




欢迎光临 新微赢技术网 (http://bbs.weiying.cn/) Powered by Discuz! X3.2