home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Logon_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  1.0 KB  |  44 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit     %>
  3.  
  4. <% 
  5.     ' Force Authentication if the LOGON_USER Server Variable is blank
  6.     ' by sending the Response.Status of 401 Access Denied
  7.     
  8.     ' Finish the Page by issuing a Response.End so that a user
  9.     ' cannot Cancel through the dialog Box
  10.  
  11.     If Request.ServerVariables("LOGON_USER") = "" Then
  12.         Response.Status = "401 access denied"
  13.         Response.End        
  14.     End If
  15. %>
  16.  
  17. <HTML>
  18.     <HEAD>
  19.         <TITLE>Login Screens</TITLE>
  20.     </HEAD>
  21.  
  22.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  23.  
  24.  
  25.         <!-- Display Header -->
  26.  
  27.         <font size="4" face="Arial, Helvetica">
  28.         <b>Login Screens</b></font><br>
  29.       
  30.         <hr size="1" color="#000000">
  31.  
  32.     
  33.         <!-- Display LOGON_USER Server Variable -->
  34.  
  35.         You logged in as user:<B>  <% = Request.ServerVariables("LOGON_USER") %></B>
  36.  
  37.  
  38.         <!-- Display AUTH_TYPE Server Variable -->
  39.  
  40.         <p>You were authenticated using:<B>  <% = Request.ServerVariables("AUTH_TYPE") %></B> authentication
  41.  
  42.     </BODY>
  43. </HTML>
  44.