checkuser.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 20 行

<%
    userid=Session("Sysuser")
    if isnull(userid) or userid="" then
		Response.Redirect "default.asp"
	else
	
		Set rsRight = Server.CreateObject("ADODB.Recordset")
		cmdTemp.CommandText = "select privilege.functionid from privilege,sysuser where functionid=" & functionno & "  and  sysuser.Groupname=privilege.groupname  and sysuser.userid='" & userid &"'"
		rsRight.Open cmdTemp,, adOpenStatic, adLockReadOnly
		if rsRight.RecordCount =0 then
			errorList="用户没有该操作权限。"
			%>
			    <!--#INCLUDE FILE="error.asp" -->
			<%
			Response.End 
		end if
	end if
%>