home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iifvdnt.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  5.6 KB  |  245 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5.  
  6. <% if Session("FONTSIZE") = "" then %>
  7.     <!--#include file="iito.inc"-->
  8. <% else %>
  9.  
  10. <% 
  11. '    strings for localization
  12. Const L_ACCESSDENIED_TEXT="Access Denied" 
  13. Const L_PATH_TEXT="Network share:"
  14. Const L_CONNECTAS_TEXT="Connect as..."
  15. Const L_USERNAME_TEXT="User Name:"
  16. Const L_PASSWORD_TEXT="Password:"
  17. Const L_ACCESSFLAGS_TEXT="Access Permissions"
  18. Const L_READ_TEXT="Read"
  19. Const L_WRITE_TEXT="Write"
  20. Const L_SCRIPT_TEXT="Script"
  21. Const L_EXECUTE_TEXT="Execute"
  22. Const L_CONTENTCONTROL_TEXT="Content Control"
  23. Const L_LOGACCESS_TEXT="Log access"
  24. Const L_ENABLEBROWSING_TEXT="Directory browsing allowed"
  25. Const L_DIRECTORYSTYLE_TEXT="Directory Listing Style"
  26. Const L_MSDOS_TEXT="MS-DOS"
  27. Const L_UNIX_TEXT="UNIX"
  28.  
  29. On Error Resume Next 
  30.  
  31. Dim path, spath, instobj, currentobj
  32.  
  33. path=UCase(Session("dpath"))
  34.  
  35. spath=UCase(Session("spath"))
  36.  
  37. if spath = "" then
  38.     spath = Mid(path,1,InStr(path,"/ROOT")-1)
  39.     Session("spath")=spath
  40. end if
  41.  
  42. Set currentobj=GetObject(path)
  43. Set instobj=GetObject(spath)
  44.  
  45. Session("SpecObj")=spath
  46. Session("SpecProps")="MSDosDirOutput"
  47. Set currentobj=GetObject(path)
  48.  
  49. %>
  50.  
  51. <!--#include file="iiset.inc"-->
  52.  
  53. <HTML>
  54. <HEAD>
  55. <TITLE></TITLE>
  56. <SCRIPT LANGUAGE="JavaScript">
  57.     <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> 
  58.         top.title.Global.helpFileName="iipz_5";    
  59.     <% else %>
  60.         top.title.Global.helpFileName="iipz_3";
  61.     <% end if %>
  62.     var Global=top.title.Global;
  63.  
  64.     function disableDefault(dir,fromCntrl, toCntrl){
  65.         if (!dir){
  66.             if (fromCntrl.value !=""){
  67.                 toCntrl.value=fromCntrl.value;
  68.                 fromCntrl.value="";
  69.             }
  70.         }
  71.         else{
  72.             if (toCntrl.value !=""){
  73.                 fromCntrl.value=toCntrl.value;
  74.                 toCntrl.value="";
  75.             }
  76.         }
  77.     }
  78.  
  79.     function enableDefault(chkCntrl){
  80.         chkCntrl.checked=true;
  81.     }
  82.     
  83.     function setLog(chkCntrl){
  84.         if (chkCntrl.checked){
  85.             document.userform.DontLog.value = "False";
  86.         }
  87.         else{
  88.             document.userform.DontLog.value = "True";                
  89.         }
  90.         
  91.     }    
  92.  
  93.     function popBox(title, width, height, filename){
  94.         thefile=(filename + ".asp");
  95.         thefile="iipop.asp?pg="+thefile;
  96.         <% if Session("Browser") <> "IE3" then %>
  97.             width=width +25;
  98.             height=height + 50;                
  99.         <% end if %>
  100.  
  101.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  102.         if(popbox !=null){
  103.             if (popbox.opener==null){
  104.                 popbox.opener=self;
  105.             }
  106.         }
  107.     }
  108.     function SetBool(){
  109.         if (document.userform.rdoMSDOSDirOutput[0].checked){
  110.             document.userform.MSDOSDirOutput.value="False"
  111.         }
  112.         else{
  113.             document.userform.MSDOSDirOutput.value="True"
  114.         }
  115.     }
  116.  
  117.     function listFuncs(){
  118.         this.writeList=buildListForm;
  119.     }
  120.  
  121.     function buildListForm(){
  122.     }
  123.  
  124.     listFunc=new listFuncs();
  125.  
  126.  
  127. </SCRIPT>
  128. </HEAD>
  129.  
  130. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  131.  
  132. <FONT SIZE=1 FACE="Helv,ARIAL">
  133. <HR>
  134. <BLOCKQUOTE>
  135. <FORM NAME="userform" onSubmit="return false">
  136. <TABLE BORDER=0 CELLPADDING=0>
  137. <TR>
  138.     <TD>
  139.         <FONT SIZE=1 FACE="Helv,ARIAL">
  140.             <%= L_PATH_TEXT %>
  141.         </FONT>
  142.     </TD>
  143.     <TD>
  144.         <% if InStr(currentobj.Path,"\\") then %>
  145.             <%= text("Path",45,"","","",false,true) %>      
  146.         <% else %>
  147.             <INPUT NAME="Path" VALUE="\\" SIZE=45>
  148.         <% end if %>
  149.  
  150.     </TD>
  151. </TR>
  152. <TR>
  153.     <TD><FONT SIZE=1 FACE="Helv,ARIAL">
  154.         <%= L_USERNAME_TEXT %>
  155.         </FONT>
  156.     </TD>
  157.     <TD><FONT SIZE=1 FACE="Helv,ARIAL">
  158.         <%= text("UNCUserName",45,"","","",false,true) %>  
  159.         </FONT>        
  160.     </TD>
  161. </TR>
  162. <TR>
  163.     <TD><FONT SIZE=1 FACE="Helv,ARIAL">
  164.         <%= L_PASSWORD_TEXT %>
  165.         </FONT>        
  166.     </TD>
  167.     <TD><FONT SIZE=1 FACE="Helv,ARIAL">
  168.         <%= pword("UNCPassword",45,"","","",false,true) %>  
  169.         </FONT>        
  170.     </TD>
  171. </TR>
  172.  
  173. <TR>
  174.     <TD> </TD>
  175.     <TD COLSPAN=2>
  176.         <TABLE>
  177.             <TR>
  178.                 <TD>
  179.                     <FONT SIZE=1 FACE="Helv,ARIAL">
  180.                         <%= checkbox("AccessRead","",false) %> <%= L_READ_TEXT %><BR>
  181.                         <%= checkbox("AccessWrite","",false) %> <%= L_WRITE_TEXT %><BR>
  182.                         <% if currentobj.DontLog then %>
  183.                             <INPUT TYPE="checkbox" NAME="hdnDontLog" OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR>                            
  184.                             <INPUT TYPE="hidden" NAME="DontLog" VALUE="True">                            
  185.                         <% else %>
  186.                             <INPUT TYPE="checkbox" NAME="hdnDontLog" CHECKED  OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR>
  187.                             <INPUT TYPE="hidden" NAME="DontLog" VALUE="False">                            
  188.                         <% end if %>
  189.                     </FONT>
  190.                 </TD>
  191.             </TR>
  192.         </TABLE>
  193.     </TD>
  194. </TR>
  195.  
  196.  
  197. </TABLE>
  198. </BLOCKQUOTE>
  199. <% if Session("vtype") = "svc" or Session("vtype") = "server" then%>
  200.  
  201. <!-- set the current object = to the instance level object for MSDOSDirOutput -->
  202.  
  203. <HR>
  204. <B><%= L_DIRECTORYSTYLE_TEXT %></B>
  205. <BLOCKQUOTE>
  206. <TABLE BORDER=0 CELLPADDING=0 WIDTH = 200>
  207. <TR><TD> </TD>
  208.     <TD COLSPAN=2>
  209.         <FONT SIZE=1 FACE="Helv,ARIAL">
  210.             <%= printradio("hdnMSDOSDirOutput", not instobj.MSDOSDirOutput, "SetBool();",false) %>
  211.              
  212.             <%= L_UNIX_TEXT %>®
  213.         </FONT>
  214.     </TD>
  215. </TR>
  216. <TR><TD> </TD>
  217.     <TD COLSPAN=2>
  218.         <FONT SIZE=1 FACE="Helv,ARIAL">
  219.             <%= printradio("hdnMSDOSDirOutput", instobj.MSDOSDirOutput, "SetBool();",false) %>
  220.              
  221.             <%= L_MSDOS_TEXT %>®
  222.             <% if instobj.MSDOSDirOutput then %>
  223.                 <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="True">
  224.             <% else %>
  225.                 <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="False">
  226.             <% end if %>
  227.         </FONT>
  228.     </TD>
  229. </TR>
  230. </TABLE>
  231. <% end if %>
  232. </FORM>
  233. </BLOCKQUOTE>
  234. </FONT>
  235. </BODY>
  236.  
  237. </HTML>
  238.  
  239.  
  240. <% end if %>
  241.  
  242.  
  243.  
  244.  
  245.