无线通信标志:javascript与asp筛选查询问题

简单说明：
当在textarea里键入内容时，根据键入内容查询数据库并在searchObj里显示，双击searchObj的某条内容，加入textarea中。
----------------------------------------------------
<script language=javascript>

function addin()
{
var i = 0;
for (i; i < searchObj.length; i++)
{
if (searchObj[i].selected == true)
{
if (isinlist(searchObj[i].value) == false)
{
//var document.createElement("OPTION");
oOption.text = searchObj[i].value;
oOption.value = searchObj[i].value;
searchContent.add(oOption);
}
}
}
}

</SCRIPT>

<script language="javascript">
function search_onclick(){
//得到筛选
searchtext=window.myChoices.searchContent.value;
searchObj=window.myChoices.searchObj.value;
searchSource=window.myChoices.searchContent.value;

//首先移除在所有查询结果列表中的选项
j=searchObj.length ;
for (i = j-1; i>=0; i--)
{
searchObj.remove(i);
}
if(searchtext!=""){
//显示符合筛选条件的
j=searchSource.length;
for(i=0;i<j;i++){
searchsource=searchSource.options(i).text;
k=searchsource.indexOf(searchtext);
if(k!=-1){
option1=document.createElement("option");
option1.text=searchsource;
option1.value=searchSource.options(i).value;
searchObj.add(option1);
}
}
}
else{
//如果没有输入查询条件则显示所有
j=searchSource.length;
for(i=0;i<j;i++){
searchsource=searchSource.options(i).text;
option1=document.createElement("option");
option1.text=searchsource;
option1.value=searchSource.options(i).value;
searchObj.add(option1);
}
}
}

</script>
<form name="myChoices" method="post" action="Manager_addsave.asp?check=re">
<textarea name="searchContent" cols="40" rows="10" id="searchContent" onkeyup="javascript:return search_onclick()" ></textarea>
<%
set rs=server.CreateObject("adodb.recordset")
sql="Select top 10 * from user_word order by id"
rs.Open sql,conn%>

<select name="searchObj" size="10" ondblclick="return addin()">
<%do while not rs.eof%>
<option value="<%=rs("mail_word")%>" ><%=rs("mail_word")%></option>
<%rs.movenext
loop
%>
</select>
<select name="searchSource" size="10" style="display:none">
<%
rs.movefirst
do while not rs.eof
%>
<option value="<%=rs("mail_word")%>"><%=rs("mail_word")%></option>
<%rs.movenext
loop
%>
</select>

<%rs.close
set rs=nothing
%>
<input type="submit" name="Submit" value=" 提 交 ">
</form>