如何将字符串中的内容写入列表中?

[yeskele]

该字符串各项记录是用"|"分隔开的
那么如何将这些记录写入<select>中呢﹖

[yeskele]

如果点了按钮会刷新页面呢?

[everywhen]

用split将字符串分开str=split(yourstr,"1")
<select name=s1>
<%
dim str
str=split(yourstr,"1")
for i=0 to ubound(str)
response.write "<option value="&str(i)&">"&str(i)&"</option>"
next
%>
</select>
''没有调试,你自己试一下吧

[woyingjie]

<form name=f>
<select name=s></selct>
<input type=button onclick="a()" value=add>
</form>
<script>
var i=0
function a(){
var s="1|2|3|4|5";
s=s.split("|");
b=document.f.s;
for(i=0;i<s.length;i++){
var opt=new Option(s[i],s[i],true,true)
b.options[b.options.length] = opt ;
}
}
</script>

[OnlyVB]

另一种方法：
<select name=s1>
<%
dim str,num
num=instr(str,"|")
do while num
response.write "<option value="&left(str,num-1)&">"&left(str,num-1)&"</option>"
str=mid(str,num+1)
next
response.write "<option value="&str&">"&str&"</option>"
%>
</select>

[OnlyVB]

错误纠正：next 改成loop

[mysteryboy2000]

想写的都被先写出来了，闪~~