怎样把选中的项保持住，就是select中的selected

[hgllucky]

<SELECT NAME="who">
<option value="全部"><font size="2">全部</font>
<%
For i=1 to Cint(Application("totaluser"))
if(session("TempName")<>Application("OnlineUser")(i)) then
Response.write "<option value='"&Application("OnlineUser")(i)&"'>"&Application("OnlineUser")(i)
end if
Next
%>
</SELECT>

我想在聊天时，选中一个人时，让他保持住，能够一直在选项中，

[wxf0104]

if(session("TempName")<>Application("OnlineUser")(i)) then
Response.write "<option value='"&Application("OnlineUser")(i)&"'>"&Application("OnlineUser")(i)
else
Response.write "<option value='"&Application("OnlineUser")(i)&"' selected>"&Application("OnlineUser")(i)
end if


try~~

[jarraytan]

理论上就是说在生成列表时，判断每个输出值跟你要保持选中的项的值是否相等。相当的时候就在<option>标记里面加上selected，否则照常。

其他的元素，例如checkbox，radio都同样的道理，只是把selected换成checked而已。

代码楼上已经写了，我就不抄了。

[jarraytan]

恩，楼上的方法不错。

只是直接在select里鼓捣一般比较容易理解。你的方法需要点脚本基础的。

[qiqunet]

愚见：
不用在<Select>里搞东搞西，只需在“</select>”后面添加脚本：

//////////////////////////////////////////////////////////

<select name=who>
……
</select>
<script>
document.all.who.value="<%session("TempName")%>"
</script>



这样就可以把你要的选中了，而不必用循环一个个地比较值。

[qiqunet]

<SELECT NAME="who">
<option value="全部"><font size="2">全部</font></option>
<%
For i=1 to Cint(Application("totaluser"))
tmp=Application("OnlineUser")(i)
Response.write("<option value='" tmp & "'>" & tmp & "</option>")
Next
%>
</SELECT>

<script>
document.all.who.value="<%=session("TempName")%>"
</script>

[qiqunet]

漏了一个连接符“&”
改正如下：

<SELECT NAME="who">
<option value="全部"><font size="2">全部</font></option>
<%
For i=1 to Cint(Application("totaluser"))
tmp=Application("OnlineUser")(i)
Response.write("<option value='" & tmp & "'>" & tmp & "</option>")
'此句刚才漏了一个“&”
Next
%>
</SELECT>

<script>
document.all.who.value="<%=session("TempName")%>"
</script>

[hgllucky]

to qiqunet(瑞旗·广东)
我脚本不大好，用你的方法出现了如下错误：
Microsoft VBScript 编译器错误 错误 '800a03ee'

缺少 ')'

[hgllucky]

(session("TempName")<>Application("OnlineUser")(i)) then
Response.write "<option value='"&Application("OnlineUser")(i)&"'>"&Application("OnlineUser")(i)

我说明一下：(session("TempName")是登陆后自己的名字，Application("OnlineUser")(i)) 是登陆后所有用户的名字，就是在用户列表里面把不是自己的都显示出来，同时选中要和哪个人聊天，就让这个人一直保持住，在下拉框里面

[jarraytan]

if session("TempName")<>Application("OnlineUser")(i) then
if chooseuser<>Application("OnlineUser")(i) then
Response.write "<option value='" & Application("OnlineUser")(i) & "'>"& Application("OnlineUser")(i) & "</option>"
else
Response.write "<option value='" & Application("OnlineUser")(i) & "' selected>"& Application("OnlineUser")(i) & "</option>"
end if
end if

＝＝＝＝＝＝＝
其中chooseuser变量保存你选中的那个人。就是说刷新页面后接收的列表who的值。

[hgllucky]

to boythl(沙漠孤狐【若你的问题得到解决，请尽快结贴，谢谢】)
按照您说的，还是不行