如何动态的改变表单 FORM 的 SELECT 框里的选项，包括新增或减少，(50分)

就是如何动态的改变表单 FORM 的 SELECT 框里的选项，包括新增或减少，
用 ASP 重写页面可以实现，有没有不用 ASP 重写页面的实现方法，[][][]

javascript方法：
<form name="myForm">
<select name="mySelect">
<option value="one">one
<option value="two">two
<option value="three">three
<option value="four">four
</select>
</form>
<script language="JavaScript"><!--
someArray[x] = '';
// delete the content of an array
theSel =do
cument.myForm.mySelect;
theSel.options.length = 0;
// removes all options.
for (i=0;i<someArray.length;i++) {
if (someArray !='') {
theSel.options.length = (i+1);
// make it one longer (ie prefers that)
theSel.options[theSel.options.length] = new Option(someArray);
}
}
//--></script>

-----
http://www.8421.org

我做的一个：
<%
sql="select * from EquipmentType"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,strconn,3
%>
<script language="javascript">
<!--
function chkform(form)
{
if (form.ETN.value=="")
{
alert("类别名称不能为空！");
form.ETN.focus();
return false;
}
return true;
}

function InitType()
{
this.ID="";
this.Name="";
this.Memo="";
}
EquipType = new Array; //定义数列
var i=0;
<%
do while not rs.eof%>
EquipType=new InitType();
EquipType.ID="<%=rs("ID")%>";
EquipType.Name="<%=rs("Name")%>";
EquipType.Memo="<%=rs("Memo")%>";
i=i+1;
<% rs.movenext
loop
%>
if(i>=0)
{
<%rs.movefirst%>
}
function ChngType(Sel,Name,Memo)
{
if(Sel.options[Sel.selectedIndex].value=="")
{
Name.value="";
Memo.value="";
}
else
{
for(j=0;j<EquipType.length;j++)
{
if(Sel.options[Sel.selectedIndex].value==EquipType[j].ID)
{
Name.value=EquipType[j].Name;
Memo.value=EquipType[j].Memo;
}
}
}
}
-->
</script>
我要分：）

[][][]