RDP, ListBox, DRP

Function createdotype ()
{

VaR dotype = '';
VaR A = Document. All. rdpdotype. length;

// Var A = Document. getelementbyid ("rdpdotype"). Rows. length;
For (VAR I = 0; I <A-1; I ++)
{
VaR Ss = "rdpdotype _" + I;
VaR BB = Document. getelementbyid (SS );

If (BB. Checked) // note that checked cannot be written as checked. Otherwise, it will fail.
{
Dotype = BB. value;
Break;
}
}
Return dotype;
}

Function createlettettype ()
{
VaR lettettype = '';
VaR lettettemp = '';
VaR drplettettype = Document. getelementbyid ("drplettettype1 ");

For (VAR I = 0; I <drplettettype. Options. length; I ++)
{
If (drplettettype. Options [I]. value. Length = 1)
Lettettemp = drplettettype. Options [I]. value;

If (drplettettype. Options [I]. Selected)
{
Lettettype = lettettemp;
Break;
}
}

Return lettettype;
}
Function getdrpvalue ()
{
VaR svalue = "";
VaR B = false;
VaR c = false;
VaR strselect = drptjselect ();

If (strselect = "-- select --")
{
Alert ("select the query condition! ");
Return;
}

If (strselect = "ARCHIVE category ")
{
C = true; svalue = "" ARCHIVE category "" + drpdxselect () + "+ drplbselect () +" + ddllinkselect ();
}
Else
{
VaR tbnr = Document. getelementbyid ("tb_nr ");
If (tbnr. value = "") B = true;
Else
{C = true; svalue = "+ drptjselect () +" "+ drpdxselect () +" + tbnr. Value + "+ ddllinkselect ();}
}



If (B) Alert ("the query Condition content cannot be blank! ");
Else if (c) insertdata (svalue );

VaR lbox = Document. getelementbyid ("lbox ");
VaR J = lbox. Options. length;
Getitem (j)


}


Function drpdxselect ()
{
VaR svalue = "";
VaR drpdx = Document. getelementbyid ("drp_dx ");

VaR M = drpdx. Options. length;

For (VAR n = 0; n <m; n ++)
{
If (drpdx. Options [N]. Selected)
{
Svalue = drpdx. Options [N]. text;
Break;
}
}

Return svalue;
}


Function drptjselect ()
{
VaR svalue = "";
VaR drptj = Document. getelementbyid ("drp_tj ");
VaR M = drptj. Options. length;
For (VAR n = 0; n <m; n ++)
{
If (drptj. Options [N]. Selected)
{
Svalue = drptj. Options [N]. text;
Break;
}
}
Return svalue;
}

Function ddllinkselect ()
{
VaR svalue = "";
VaR ddllink = Document. getelementbyid ("ddllink ");

VaR M = ddllink. Options. length;
For (VAR n = 0; n <m; n ++)
{
If (ddllink. Options [N]. Selected)
{
Svalue = ddllink. Options [N]. text;
Break;
}
}

Return svalue;
}

Function drplbselect ()
{
VaR svalue = "";
VaR drplb = Document. getelementbyid ("drp_lb ");
VaR M = drplb. Options. length;
For (VAR n = 0; n <m; n ++)
{
If (drplb. Options [N]. Selected)
{
Svalue = drplb. Options [N]. text;
Break;
}
}
Return svalue;
}

Function insertdata (svalue)
{
VaR lbox = Document. getelementbyid ("lbox ");
VaR J = lbox. Options. length;
VaR I = J + 1;
Lbox. Options [J] = New Option (I + "." + svalue, svalue );


Savedata ();
}

Function getitem (I)
{
VaR ddlitem = Document. getelementbyid ("ddlitem ");
Ddlitem. Options. Length = 0;
For (j = 0; j <I; j ++)
{
Ddlitem. Options [J] = New Option (J + 1, J + 1 );
}

}

Function cleartext ()
{
Document. getelementbyid ("tb_nr"). value = "";

If (drptjselect () = "ARCHIVE type ")
{
Document. getelementbyid ("div1"). style. Display = "inline ";
Document. getelementbyid ("div2"). style. Display = "NONE ";
}
Else
{
Document. getelementbyid ("div1"). style. Display = "NONE ";
Document. getelementbyid ("div2"). style. Display = "inline ";
}

}

Function del ()
{
VaR lbox = Document. getelementbyid ("lbox ");
VaR ddlitem = Document. getelementbyid ("ddlitem ");
VaR J = ddlitem. Options. length;

For (VAR I = 0; I <j; I ++)
{
If (ddlitem. Options [I]. Selected)
{
VaR K = ddlitem. Options [I]. value;
Lbox. Options [k-1]. parentnode. removechild (lbox. Options [k-1]);
}
}

Fbanddata ();


}


Function fbanddata ()
{
VaR lbox = Document. getelementbyid ("lbox ");
VaR J = lbox. Options. length;
VaR K = 0;
For (VAR I = 0; I <j; I ++)
{
Svalue = lbox. Options [I]. value;
K = I + 1;
Lbox. Options [I] = New Option (K + "." + svalue, svalue );
}

J = lbox. Options. length;
Getitem (j)


Savedata ();
}


Function delall ()
{
VaR lbox = Document. getelementbyid ("lbox ");
VaR ddlitem = Document. getelementbyid ("ddlitem ");
Lbox. Options. Length = 0;
Ddlitem. Options. Length = 0;
}


Function savedata ()
{
VaR lbox = Document. getelementbyid ("lbox ");
VaR J = lbox. Options. length;
VaR K = 0;
VaR svalue = "";
For (I = 0; I <j; I ++)
{
Svalue + = lbox. Options [I]. Value + "/";
}

Document. getelementbyid ("hiddenfield1"). value = svalue;

}

Function getdata ()
{
VaR svalue = Document. getelementbyid ("hiddenfield1"). value;
VaR array = svalue. Split ('/');
VaR lbox = Document. getelementbyid ("lbox ");
VaR J = 0;
For (I = 0; I <array. Length-1; I ++)
{
J = I + 1;
Lbox. Options [I] = New Option (J + "." + array [I], array [I]);
}

J = lbox. Options. length;
Getitem (j)


Cleartext ();

}


</SCRIPT>