sos£¬asp£«accessȨÏÞÎÊÌ⣡

ö•©mÔ’

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%>
ÔËÐкóϵͳÏÔʾ´íÎ󣬸÷λ¸ßÊÖÄܸøСµÜÖ¸µã¹þÂð£¿

×ÏÁµ

strSQL="SELECT * FROM part a,user b where a.name=a.userpart and b.username='"&trim(strusername)&"'"