loginv.asp

来自「在线考试系统在线培训与考试系统适合政府、行业和企业内部组织员工借助网络开展网上学」· ASP 代码 · 共 20 行

<%
Function VerificationRole(RoleType)
RoleTypeT=RoleType
RoleId=session("saLoginRole")
'RoleId=6

if not isNull(RoleId) and RoleId<>"" then
	AdminRoleSql="select "&RoleTypeT&" from admin where ID="&RoleId
	'rsT.close
	set rsT=conn.execute(AdminRoleSql)
	if rsT.eof then
		VerificationRole=False
	else
		VerificationRole=rsT(""&RoleType&"")
	end if
else
	VerificationRole=False
end if
End Function
%>