8-16.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 14 行

<% 
If logon = "" Or Isnull(logon) Or Isempty(logon) Then
	Response.Status="401 没有授权"
	Response.End()
End If
logon = Request.ServerVariables("LOGON_USER")
%>
<% Set pmck=Server.CreateObject("MSWC.PermissionChecker")%>
<% If pmck.HasAccess("admin.asp") Then %>
您己以管理员身份登陆！
<%Else%>
您没权访问此文件
<%End If%>