home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iivdrd.asp < prev    next >
Text File  |  1997-11-12  |  3KB  |  129 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.  
  9. <% 
  10. '    strings for localization
  11. Const L_ACCESSDENIED_TEXT="Access Denied" 
  12. Const L_CLIENTSENTTO_TEXT="The client will be sent to:"
  13. Const L_EXACTURL_TEXT="the exact URL entered above."
  14. Const L_DIRBELOW_TEXT="a directory below this one."
  15. Const L_PERM_TEXT="a permanent redirection for this resource."
  16. Const L_UNSET_TEXT="(not set)"
  17. '    NOTE: \r is a carraige return for line spacing...
  18. Const L_REDIRTO_TEXT="Redirect to:"
  19.  
  20.  
  21.  
  22. Dim path, currentobj, redirto
  23.  
  24. On Error Resume Next 
  25. path=Session("dpath")
  26. Set currentobj=GetObject(path)
  27.  
  28. function redirOpt(optionStr)
  29.         redirOpt = checkboxVal(0,InStr(currentobj.HttpRedirect,optionStr) > 0 ,"chk" + optionStr,"setHttpRedirect();",false) 
  30. end function
  31.  
  32.  %>
  33.  
  34. <!--#include file="iiset.inc"-->
  35.  
  36. <HTML>
  37. <HEAD>
  38. <TITLE></TITLE>
  39. <SCRIPT LANGUAGE="JavaScript">
  40.     <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> 
  41.         top.title.Global.helpFileName="iipy_3";    
  42.     <% else %>
  43.         top.title.Global.helpFileName="iipy_5";
  44.     <% end if %>
  45.  
  46.     function listFuncs(){
  47.         this.writeList=buildListForm;
  48.     }
  49.  
  50.     function buildListForm(){
  51.     }
  52.     
  53.     function setHttpRedirect(){
  54.         redirstr = document.userform.hdnHttpRedirect.value + ",";
  55.         if (document.userform.chkEXACT_DESTINATION.checked){
  56.             redirstr += "EXACT_DESTINATION,";
  57.         }
  58.         if (document.userform.chkCHILD_ONLY.checked){
  59.             redirstr += "CHILD_ONLY,";
  60.         }
  61.         if (document.userform.chkPERMANENT.checked){
  62.             redirstr += "PERMANENT, ";
  63.         }
  64.         
  65.  
  66.         document.userform.HttpRedirect.value = redirstr;
  67.             
  68.     }
  69.  
  70.     listFunc=new listFuncs();
  71. </SCRIPT>
  72. </HEAD>
  73.  
  74. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  75.  
  76. <FONT SIZE=1 FACE="HELV,ARIAL">
  77.  
  78. <FORM NAME="userform" onSubmit="return false">
  79.  
  80. <BLOCKQUOTE>
  81.  
  82. <TABLE WIDTH="100%" BORDER=0 CELLPADDING=0>
  83.  
  84. <TR>
  85.     <TD VALIGN="Bottom">
  86.         <FONT SIZE=1 FACE="HELV,ARIAL">
  87.             <%= L_REDIRTO_TEXT %> 
  88.             <% redirto=currentobj.HttpRedirect
  89.             if InStr(redirto,",") > 0 then
  90.                 redirto = Left(redirto,InStr(redirto,",")-1)
  91.             else
  92.                 redirto = "http://"
  93.             end if
  94.             %>
  95.             <%= inputbox(0,"text","hdnHttpRedirect",redirto,25,"setHttpRedirect();","","",False,True,False) %>
  96.             <INPUT TYPE="hidden" NAME="HttpRedirect" VALUE="<%= currentobj.HttpRedirect %>">
  97.               
  98.         </FONT>
  99.     </TD>
  100. </TR>
  101. <TR>
  102.     <TD> </TD>
  103. </TR>
  104.  
  105. <TR>
  106.     <TD>
  107.         <FONT SIZE=1 FACE="HELV,ARIAL">
  108.             <%= L_CLIENTSENTTO_TEXT %><P>
  109.             <BLOCKQUOTE>
  110.             <%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %><P>
  111.             <%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %><P>
  112.             <%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %>
  113.             </BLOCKQUOTE>
  114.         </FONT>
  115.     </TD>
  116. </TR>
  117.  
  118. </TABLE>
  119.  
  120. </BLOCKQUOTE>
  121. </FORM>
  122. </FONT>
  123. </BODY>
  124.  
  125. </HTML>
  126.  
  127. <% end if %>
  128.  
  129.