8-16.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· 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%>