checklogin.asp

网络办公系统源码

<%
if Session("sysadminuid") = "" or Session("sysadminflag")=""  then
    echo "<Script language='javascript'>top.location='admin_login.asp';</Script>"
	call EndExit()
end if

Public Function ChkAdmin(para)
	On Error Resume Next
	Dim i, TempAdmin, Adminflag
	ChkAdmin = False
	AdminFlag = Replace(Session("adminlevel"), "'", "")
	If para = "" Then Exit Function
	If CInt(Session("sysadminflag")) = 999 Then
		ChkAdmin = True
		Exit Function
	Else
		If Adminflag = "" Then
			ChkAdmin = False
			Exit Function
		Else
			tempAdmin = Split(Adminflag, ",")
			For i = 0 To UBound(tempAdmin)
				If Trim(LCase(tempAdmin(i))) = Trim(LCase(para)) Then
					ChkAdmin = True
					Exit For
				End If
			Next
		End If
	End If
End Function
%>