Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<%@ LANGUAGE = VBScript %><% Option Explicit %><!-- #include file="directives.inc" --><!--#include file="iifvdhd.str"--><%
On Error Resume Next
Dim path, currentobj, keyType, redir, dirtype, quote, dirkeyType
path=Session("dpath")Session("path")=pathSet currentobj=GetObject(path)dirkeyType = "IIsFTPDirectory"%><!--#include file="iifixpth.inc"--><%
redir=currentobj.HttpRedirectpath=currentobj.pathif redir <> "" then dirtype="redir"elseif instr(path,"\\") then dirtype="net"else dirtype="dir"end if
quote=chr(34)function writeDirType(thetype) if thetype=dirtype then writeDirType="<INPUT TYPE=radio NAME=" & quote & "rdoDirType" & quote & " CHECKED OnClick=" & quote & "SetDirType('" & thetype & "')" & quote & ">" else writeDirType="<INPUT TYPE=radio NAME=" & quote & "rdoDirType" & quote & " OnClick=" & quote & "SetDirType('" & thetype & "')" & quote & ">" end ifend function
%><!--#include file="iisetfnt.inc"--><HTML><HEAD> <TITLE></TITLE>
<SCRIPT LANGUAGE="JavaScript">
function SetDirType(theType){ <% if Session("IsIE") then %> if (theType=="net"){ parent.head.location.href="iifvdnt.asp"; } if (theType=="redir"){ parent.head.location.href="iifvdrd.asp"; } if (theType=="dir"){ parent.head.location.href="iifvddir.asp"; } <% else %> if (theType=="net"){ parent.frames[1].location.href="iifvdnt.asp"; } if (theType=="redir"){ parent.frames[1].location.href="iifvdrd.asp"; } if (theType=="dir"){ parent.frames[1].location.href="iifvddir.asp"; } <% end if %> } </SCRIPT></HEAD>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 OnLoad="SetDirType('<%= dirtype %>');" TEXT="#000000" LINK="#FFFFFF" >
<%= sFont("","","",True) %><% if (vtype="server") or (vtype="svc") then %> <B><%= L_HOMEDIRECTORY_TEXT %></B><% else %> <B><%= L_DIRECTORY_TEXT %></B><% end if %>
<P><%= L_WHENCONNECTING_TEXT %> <%= L_CONTENTSHOULD_TEXT %><P>
<FORM NAME="userform"><TABLE> <TR> <TD ALIGN="left" VALIGN="bottom"> <%= sFont("","","",True) %> <%= writeDirType("dir") %> <%= L_DIR_TEXT %> </FONT> </TD> </TR> <TR> <TD ALIGN="left" VALIGN="bottom"> <%= sFont("","","",True) %> <% if Session("vtype") <> "dir" then %> <%= writeDirType("net") %> <%= L_NETDIR_TEXT %> <% else %> <IMG SRC="images/radiooff.gif" WIDTH=12 HEIGHT=12 BORDER=0 ALT=""> <%= sFont("","","Gray",True) %> <%= L_NETDIR_TEXT %> </FONT> <% end if %> </FONT> </TD> </TR></TABLE>
</FORM></FONT></BODY></HTML>
|
