123 lines
2.5 KiB
Plaintext
123 lines
2.5 KiB
Plaintext
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="directives.inc" -->
|
|
|
|
<% if Session("FONTSIZE") = "" then %>
|
|
<!--#include file="iito.inc"-->
|
|
<% else %>
|
|
<!--#include file="iivdrd.str"-->
|
|
<%
|
|
Dim path, currentobj, redirto
|
|
|
|
On Error Resume Next
|
|
path=Session("dpath")
|
|
Set currentobj=GetObject(path)
|
|
|
|
function redirOpt(optionStr)
|
|
redirOpt = checkboxVal(0,InStr(currentobj.HttpRedirect,optionStr) > 0 ,"chk" + optionStr,"setHttpRedirect();",false)
|
|
end function
|
|
|
|
%>
|
|
|
|
<!--#include file="iiset.inc"-->
|
|
<!--#include file="iisetfnt.inc"-->
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE></TITLE>
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
|
|
var Global=top.title.Global;
|
|
|
|
<% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %>
|
|
Global.helpFileName="iipy_3";
|
|
<% else %>
|
|
Global.helpFileName="iipy_5";
|
|
<% end if %>
|
|
|
|
function warnWrkingSite()
|
|
{
|
|
if (top.title.nodeList[Global.selId].isWorkingServer)
|
|
{
|
|
alert("<%= L_WORKINGSERVER_TEXT %>");
|
|
}
|
|
}
|
|
|
|
function listFuncs(){
|
|
this.writeList=buildListForm;
|
|
}
|
|
|
|
function buildListForm(){
|
|
}
|
|
|
|
function setHttpRedirect(){
|
|
redirstr = document.userform.hdnHttpRedirect.value + ",";
|
|
if (document.userform.chkEXACT_DESTINATION.checked){
|
|
redirstr += "EXACT_DESTINATION,";
|
|
}
|
|
if (document.userform.chkCHILD_ONLY.checked){
|
|
redirstr += "CHILD_ONLY,";
|
|
}
|
|
if (document.userform.chkPERMANENT.checked){
|
|
redirstr += "PERMANENT, ";
|
|
}
|
|
|
|
|
|
document.userform.HttpRedirect.value = redirstr;
|
|
|
|
}
|
|
|
|
listFunc=new listFuncs();
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" >
|
|
|
|
<%= sFont("","","",True) %>
|
|
|
|
<FORM NAME="userform" onSubmit="return false">
|
|
|
|
<TABLE WIDTH="100%" BORDER=0 CELLPADDING=0>
|
|
|
|
<TR>
|
|
<TD VALIGN="Bottom">
|
|
<%= sFont("","","",True) %>
|
|
<%= L_REDIRTO_TEXT %>
|
|
<% redirto=currentobj.HttpRedirect
|
|
if InStr(redirto,",") > 0 then
|
|
redirto = Left(redirto,InStr(redirto,",")-1)
|
|
else
|
|
redirto = "http://"
|
|
end if
|
|
%>
|
|
<%= inputbox(0,"text","hdnHttpRedirect",redirto,L_REDIRTO_NUM,"warnWrkingSite();setHttpRedirect();","","setHttpRedirect();",False,False,False) %>
|
|
<INPUT TYPE="hidden" NAME="HttpRedirect" VALUE="<%= currentobj.HttpRedirect %>">
|
|
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD> </TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= L_CLIENTSENTTO_TEXT %><P>
|
|
<%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %><BR>
|
|
<%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %><BR>
|
|
<%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
|
|
</TABLE>
|
|
|
|
</FORM>
|
|
</FONT>
|
|
</BODY>
|
|
|
|
</HTML>
|
|
|
|
<% end if %>
|
|
|