请教yms123版主，我的程序如下“选择一”和“选择二”是把表[bzrpy]某字段的所有记录作为选择项放在列表框供选择，按钮“>”是把列表选中的内容放入右边的文本框，这功能由函数function addnew()完成。问题是在按“选择一”时把选中项用按钮“>”移入文本框后，再按“选择二”时，本想文本框在原先内容的基础上再加入“选择二”的选项。但是，一按“选择二”文本框原先的内容被清除了。即不能连续加文本框内容。即只要程序到服务器端去一次，客户端文本框的内容就被清空了。请教有什么方法可以在“选择一”和“选择二”之间切换时文本框的内容不被清空，即要保留原先内容，在原先内容的基础上再加新的选项内容。
<%
bt=request.querystring("s")
if bt="" then
bt="ztyx"
end if
Set xs = Server.CreateObject("ADODB.Recordset")
sql="select "&bt&" from [bzrpy] "
xs.open sql,conn,1,1
%>
<body>
<script language="javascript">
function addnew()
{ if(checked_check("s1") != true)
{ alert("Please s1 a option!");
return false; }
var t=document.all.s1;
var text=t.options[t.selectedIndex].innerText;
var value=t.options[t.selectedIndex].value;
form1.text2.value=form1.text2.value+value
t.selectedIndex = 0;
return value
}
function checked_check(idname)
{
var checkobject = document.getElementById(idname);
var coun = checkobject.length;
for(i=0;i<coun;i++)
{
if(checkobject.options[i].selected == true)
return true; }
return false;}
</script>
<form id="form1" name="form1" method="post" action="">
<table width="500" border="0" align="center">
<tr>
<td colspan="3"><p><a href=zs5.asp?s=<%="ztyx"%>>选择一</a> <a href=zs5.asp?s=<%="sk"%>>选择二</a> </p></td>
</tr>
<tr>
<td width="281"><select name="select" size="6" id="s1">
<%
while not xs.eof
%>
<option value=<%=xs.fields.Item(bt).Value%> selected="selected"><%=xs.fields.Item(bt).Value%></option>
<%
xs.movenext
wend
%>
</select></td>
<td><div align="center">
<p> input type="button" name="Submit3" onclick="addnew()" value=">" /></p>
</div></td>
<td><label>
<textarea name="text2" cols="40" rows="6" id="s2"><%= Request.Form("text2") %></textarea>
</label></td>
</tr>
</table>
</form>
</body>
</html>
