如何在ASP中的前台给下拉框赋值用VBSCRIPT

[textstar]

[zhuyanxi]

方法1：
<%
set Rs=server.createobject("adodb.recordset")
...
rs.open SQLSTR,objConn
%>
.
.

<SCRIPT LANGUAGE=vbscript>
<%do while not rs.eof %>
set Op=document.createElement("OPTION")
selectObject.add TCR
Op.value=<%=Rs(0)%>
Op.innerText=<%=RS(0)%>
<% rs.movenext
loop
%>
</SCRIPT>

方法2：
用Remote Scripting

[zhuyanxi]

更正：
selectObject.add TCR 应该是 selectObject.add Op

[21stboy]

你说的是客户端的吗？

[ttt2]

用javascript
document.form.s1.options[0]=new Option
document.form.s1.options[0].value="dd"

[textstar]

我用了,但是没有用它提示SCRIPTOBJECT没有对象,请帮帮忙!谢谢

[textstar]

我用了,但是没有用它提示SCRIPTOBJECT没有对象,请帮帮忙!谢谢

[alan8]

<%
dim objConn
dim strConnStr
strConnStr = "Provider=OraOLEDB.Oracle;Data Source=post;User ID=app;Password=app;"
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnStr
rem 取得投递公司名称、编号
dim objRs'定义、创建记录集对象
set objRs = server.CreateObject("ADODB.Recordset")
dim strSql
strSql = "select mail_name from mailing_class"
objRs.Open strSql,objConn'打开记录集对象
%>
/////////关键部分
<select id="select1" name="select1" style="HEIGHT: 22px; WIDTH: 128px">
<%
rem 列表显示投递公司名称，供用户选择登录
objRs.MoveFirst
while not objRs.EOF
%>
<option value="<%response.write objRs("Mail_Name")%>"><%response.write objRs("Mail_Name")%></option>
<%
objRs.MoveNext
wend
%>
///////////////////
<%
objRs.Close
set objRs = nothing
objConn.close
set objConn = nothing
%>
</select>