home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / PermissionCheck_VBScript.asp < prev    next >
Text File  |  1997-10-25  |  772b  |  33 lines
  1. <%@ Language=VBScript    %>
  2. <%  Option Explicit        %>
  3.  
  4. <HTML>
  5.     <HEAD>
  6.         <TITLE>Permission Checker</TITLE>
  7.     </HEAD>
  8.  
  9.     <BODY bgcolor="white" topmargin="10" leftmargin="10">
  10.         
  11.         <!-- Display Header -->
  12.  
  13.         <font size="4" face="Arial, Helvetica">
  14.         <b>Permission Checker</b></font><br>   
  15.  
  16.         <%    
  17.             ' Instantiate Permission Checker Component
  18.         
  19.             Dim Check
  20.             Set Check = Server.CreateObject("MSWC.PermissionChecker") 
  21.         %>
  22.         
  23.         <p> Verify current user's access to a sample file: 
  24.         
  25.         <p> Using Physical Path =
  26.         <%= Check.HasAccess(".\PermissionCheck_VBScript.asp") %> <br>
  27.  
  28.         Using Virtual Path =
  29.         <%= Check.HasAccess("/iissamples/sdk/asp/components/PermissionCheck_VBScript.asp") %>
  30.  
  31.     </BODY>
  32. </HTML>
  33.