home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iivdhd.asp < prev    next >
Text File  |  1997-11-12  |  3KB  |  138 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. Const L_VIRTUALDIRECTORY_TEXT="Directory Properties"
  7. Const L_WHENCONNECTING_TEXT="When connecting to this resource"
  8. Const L_HTTP_TEXT="http://"
  9. Const L_CONTENTSHOULD_TEXT="the content should come from:"
  10. Const L_DIR_TEXT="a directory located on the server you are configuring"
  11. Const L_NETDIR_TEXT="a share located on another computer."
  12. Const L_REDIR_TEXT="a redirection to a URL."
  13.  
  14. On Error Resume Next 
  15.  
  16. Dim path, currentobj, redir, dirtype, quote, dirkeyType
  17.  
  18. dirkeyType = "IIsWebDirectory"
  19. path=Session("dpath")
  20. Session("path")=path
  21. Set currentobj=GetObject(path)
  22.  
  23. %>
  24. <!--#include file="iifixpth.inc"-->
  25. <%
  26.  
  27. redir=currentobj.HttpRedirect
  28. path=currentobj.path
  29.  
  30. if redir <> "" then
  31.     dirtype="redir"
  32. elseif instr(path,"\\") then
  33.     dirtype="net"
  34. else
  35.     dirtype="dir"
  36. end if
  37.  
  38.  
  39. quote=chr(34)
  40. function writeDirType(thetype) 
  41.         if thetype=dirtype then
  42.             writeDirType="<INPUT TYPE=radio NAME=" & quote & "rdoDirType" & quote & " CHECKED OnClick=" & quote & "SetDirType('" & thetype & "')" & quote & ">"
  43.         else
  44.             writeDirType="<INPUT TYPE=radio NAME=" & quote & "rdoDirType" & quote & " OnClick=" & quote & "SetDirType('" & thetype & "')" & quote & ">"
  45.         end if
  46. end function
  47.  
  48.  %>
  49.  
  50. <HTML>
  51. <HEAD>
  52.     <TITLE></TITLE>
  53. </HEAD>
  54.  
  55. <SCRIPT LANGUAGE="JavaScript">
  56.     top.title.Global.siteProperties = false;
  57.     function SetDirType(theType){
  58.  
  59.     
  60.     <% if Session("IsIE") then %>
  61.         if (theType=="net"){
  62.             parent.head.location.href="iivdnt.asp";
  63.         }
  64.         if (theType=="redir"){
  65.             parent.head.location.href="iivdrd.asp";
  66.         }
  67.         if (theType=="dir"){
  68.             parent.head.location.href="iivddir.asp";
  69.         }    
  70.     <% else %>
  71.         if (theType=="net"){
  72.             parent.frames[1].location.href="iivdnt.asp";
  73.         }
  74.         if (theType=="redir"){
  75.             parent.frames[1].location.href="iivdrd.asp";
  76.         }
  77.         if (theType=="dir"){
  78.             parent.frames[1].location.href="iivddir.asp";
  79.         }    
  80.     
  81.     <% end if %>
  82.     }
  83.     
  84. </SCRIPT>
  85.  
  86.  
  87. <BODY BGCOLOR="#CCCCCC" OnLoad="SetDirType('<%= dirtype %>');" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  88.  
  89. <FONT SIZE=1 FACE="HELV,ARIAL">
  90. <B><%= L_VIRTUALDIRECTORY_TEXT %></B>
  91. <BLOCKQUOTE>
  92. <FORM NAME="userform">
  93. <%= L_WHENCONNECTING_TEXT %> <%= L_CONTENTSHOULD_TEXT %><P>
  94. <BLOCKQUOTE>
  95.  
  96. <TABLE BORDER=0>
  97.     <TR>
  98.         <TD ALIGN="left" VALIGN="bottom">
  99.             <FONT SIZE=1 FACE="HELV,ARIAL">
  100.             <%= writeDirType("dir") %>  <%= L_DIR_TEXT %>
  101.             </FONT>
  102.         </TD>
  103.     </TR>
  104.     <TR>
  105.         <TD ALIGN="left" VALIGN="bottom">
  106.             <FONT SIZE=1 FACE="HELV,ARIAL">
  107.             <% if Session("vtype") <> "dir" then %>
  108.                 <%= writeDirType("net") %>  <%= L_NETDIR_TEXT %>
  109.             <% else %>
  110.             <% if Session("IsIE") then %>
  111.                  <IMG SRC="images/radiooff.gif" HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0 ALT="">    
  112.             <% else %>
  113.                 <IMG SRC="images/radiooff.gif" HSPACE=4 WIDTH=12 HEIGHT=12 BORDER=0 ALT=""> 
  114.             <% end if %>
  115.                 <FONT COLOR="Gray">
  116.                     <%= L_NETDIR_TEXT %>
  117.                 </FONT>
  118.             <% end if %>
  119.             </FONT>
  120.         </TD>
  121.     </TR>
  122.     <TR>
  123.         <TD ALIGN="left" VALIGN="bottom">
  124.             <FONT SIZE=1 FACE="HELV,ARIAL">
  125.             <%= writeDirType("redir") %>  <%= L_REDIR_TEXT %>
  126.             </FONT>
  127.         </TD>
  128.     </TR>
  129. </TABLE>
  130. </BLOCKQUOTE>
  131. </FORM>
  132. </BLOCKQUOTE>
  133. <HR>
  134.  
  135. </FONT>
  136. </BODY>
  137. </HTML>
  138.