请问：在ASP中怎么把数据绑定到选项按钮和下拉使命框啊? 急!

[winjet]

在ASP中怎么把数据绑定到选项按钮和下拉使命框啊?由于我的ASP很菜，请大侠们指点!
代码如下：
<%@LANGUAGE="VBSCRIPT"%>
<%
dim exec
dim rs
dim conn
dim connectString
Catalog=qc;UID=sa;PWD=153957"
connectString = "Provider=SQLOLEDB;Server=MIS04;Initial Catalog=qc;UID=sa;PWD=sa"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connectString
exec="select * from tblqcdata where AutoNumber=5212"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
…..

<font face=tahoma>
<form name="input" method="post" action="DataCollect.asp">
<table>
<tr>
<td>产品编号 :</td><td><input type="text" name="ItemCode" size="30" value="<%=rs("ItemCode")%>"></td>
</tr>
<tr>
<td>订单编号 :</td><td><input type="text" name="OrderNo" size="20" value="<%=rs("OrderNo")%>"></td>
</tr>
<tr>
<td>验货数量 :</td><td><input type="text" name="InspQty" size="20" value="<%=rs("InspQty")%>"></td>
</tr>

‘请间在这里怎么把rs(“VendorInspectResult”)的值绑定给此选择按钮？
<tr>
<td>客方验货结果 :</td>
<td>
<input name="VendorInspectResult" type=radio value="0" > 不适用
<input type=radio name="VendorInspectResult" value="1"> 待验
<input type=radio name="VendorInspectResult" value="2"> 待覆
<input type=radio name="VendorInspectResult" value="3"> 合格
<input type=radio name="VendorInspectResult" value="4"> 不合格
<input type=radio name="VendorInspectResult" value="5"> AOD
</td>
</tr>

‘请间在这里怎么把rs(“InterventionNo”)的值绑定给此下拉组合框？
<tr>
<td>阶段试验次数 :</td>
<td><select name="InterventionNo" size="1">
<option value="N/A">N/A
<option value="1st">1st
<option value="2nd">2nd
<option value="3rd">3rd
<option value="4th">4th
<option value="5th">5th
</select> </td>
</tr>
</table>
<hr>
<p>
<input type="button" value="提交" onclick="data_validate()">
<input type="button" value="关闭此页" onclick="close_win()">
</p>
</form>
…

[tigerwen01]

类似于这样：

‘请间在这里怎么把rs(“InterventionNo”)的值绑定给此下拉组合框？
<tr>
<td>阶段试验次数 :</td>
<td><select name="InterventionNo" size="1">
<option value="N/A">N/A
<%Do While Not rs.Eof%>
<option value="<%=rs("InterventionNo")%>"><%=rs("InterventionNo")%></option>
<%
rs.MoveNext
Loop
%>
</select>

[feng2112]

<select name="aaa">
<%
sql="select * from table"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
while not rs.eof
response.write "<option value='"& rs("id") &"'>"& rs("name") &"</option>"
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>

[ybfqlyq]

<input name="VendorInspectResult" type=radio value="0" > 不适用
<input type=radio name="VendorInspectResult" value="1"> 待验
<input type=radio name="VendorInspectResult" value="2"> 待覆
<input type=radio name="VendorInspectResult" value="3"> 合格
<input type=radio name="VendorInspectResult" value="4"> 不合格
<input type=radio name="VendorInspectResult" value="5"> AOD
都加一個是否為SELECTED的就OK啦。
<input type=radio name="VendorInspectResult" value="5" <%if rs(“VendorInspectResult”)=5 then response.write "selected" end if%>>

[winjet]

上面两处给出的方法好象不行啊，可能是不明白我的意图；
我的意思是要修改某记录，在修改的画面里要把已选定的记录的值赋给文本框、选择项、下拉组合框，而选择项和下拉组合框已有固定的值，记录中对应的值只是选择项、下拉组合框某一项的值，然后修改完再保存回数据库；
但上面给出代码只是把记录的值为一项，其它的固定值都没列出来，如果要选择为其它的值，这样的修改，那怎么能实现呢？

[winjet]

上面两处给出的方法好象不行啊，可能是不明白我的意图；
我的意思是要修改某记录，在修改的画面里要把已选定的记录的值赋给文本框、选择项、下拉组合框，而选择项和下拉组合框已有固定的值，记录中对应的值只是选择项、下拉组合框某一项的值，然后修改完再保存回数据库；
但上面给出代码只是把记录的值为一项，其它的固定值都没列出来，如果要选择为其它的值，这样的修改，那怎么能实现呢？

[Leey001]

<input name="VendorInspectResult" type=radio value="0" <%if cint(rs("VendorInspectResult")%>)=0 then response.write "checked"> 不适用

<input type=radio name="VendorInspectResult" value="1" <%if cint(rs("VendorInspectResult")%>)=1 then response.write "checked"> 待验

余同
下拉框也基本相同，将checked换成selected

[Leey001]

刚写错了点：
<input name="VendorInspectResult" type=radio value="0" <%if cint(rs("VendorInspectResult"))=0 then response.write "checked"%>>

[winjet]

謝謝大家，按westcrazy22(Leey)的方法選擇項已經可以了，但下拉組合框還是不行，也沒有報錯，不管RS裡的是什麼值，顯示是都是第一項的值"N/A"，不知為什麼？代碼如下，請再幫看看對不對啊？

<tr>
<td>階段試驗次數 :</td>
<td><select name="InterventionNo" size="1">
<option value="N/A" <%if rs("InterventionNo")="N/A" then response.write "selected" end if%> >N/A
<option value="1st" <%if rs("InterventionNo")="1st" then response.write "selected" end if%> >1st
<option value="2nd" <%if rs("InterventionNo")="2nd" then response.write "selected" end if%> >2nd
<option value="3rd" <%if rs("InterventionNo")="3rd" then response.write "selected" end if%> >3rd
<option value="4th" <%if rs("InterventionNo")="4th" then response.write "selected" end if%> >4th
<option value="5th" <%if rs("InterventionNo")="5th" then response.write "selected" end if%> >5th
</select> </td>
</tr>

[xxuu503]

作Trim

[Leey001]

同意楼上的：
<option value="N/A" <%if trim(rs("InterventionNo"))="N/A" then response.write "selected"%> >N/A</option>

[masong_1978]

<select name="InterventionNo" size="1">
<option value="N/A">N/A
<%Do While Not rs.Eof%>
<option value="<%=rs("InterventionNo")%>"><%=rs("InterventionNo")%>
</option>
<%
rs.MoveNext
Loop
%>
</select>