loginv.asp

来自「这是一个用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
%>