loginv.asp

在线考试系统 本系统只作为一种技术交流

<%
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
%>