to dclovewj(蓝点) :
如果用户名选项不算多的话,可以将选项全部存到变量中;再调用:
<%
dim strTemp
set conn=server.CreateObject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&server.MapPath("data.mdb")
Set rs = conn.Execute ("SELECT * FROM user")
do while not rs.eof
strTemp=strTemp& "<option value=""" & rs("用户名") & """>" & rs("用户名") & "</option>"
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<script language="javascript">
var strTemp="<select name='user'><%=strTemp%></select>";
function setid(str)
{
ary=str.split("|");
str1=""
for (i=0;i<ary.length;i++)
{ str1+="<input type=text name=censor value="+ary[i]+">"+strTemp+"<br>";}
window.upid.innerHTML=str1;
}
</script>//