chkadmin.asp

来自「本程序是一款比较完善的图书租赁系统」· ASP 代码 · 共 18 行

<%
'判断用户是否有管理权限
If IsEmpty(Session("UserID")) Then
	Response.Write GetErr(7)
	Response.End
End If

strSQL="SELECT UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N="&Session("UserID")
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
If objRS("UI_IsAdmin_B")=False Then
	Response.Write GetErr(8)
	CloseDatabase
	Response.End
End If
objRS.Close

%>