求下拉列表框的问题
添加页面代码:<tr>
<td height="24" align="right">软件语言</td>
<td>
<select name="Down_yy" id="Down_yy">
<option value="1" selected="selected">简体中文</option>
<option value="2">English</option>
<option value="3">其它</option>
</select>
</td>
</tr>
添加到数据库:
oRs("Down_yy")=Request.Form("Down_yy")
修改页面代码:
<%
fyy=oRs("Down_yy")
%>
<tr>
<td height="24" align="right">软件语言</td>
<td>
<%
Call DBConnBegin()
Sql="select * from down Where Down_ID="&Request("ID")
oRs.open Sql,oConn,1,1
%>
<select name="Down_yy" id="Down_yy">
<%Do while Not oRs.Eof%>
<option value="<%=oRs("down_yy")%>"
<%
'如果你传过来的ID中的yy和修改中循环的yy一致的话,那么就selected
if oRs("down_yy") = fyy then
response.write "selected='selected'"
end if
%>><% Select Case oRs("down_yy")
Case "1"
response.write "简体中文"
Case "2"
response.write "English"
case Else
response.write "其他"
End Select
%></option>
<%
oRs.movenext
loop
Call DBConnEnd()
%>
</select>
</td>
</tr>
修改页面我想表达的意思是默认选中软件本来属于的那种语言,然后再输出其他另两个。
因为"简体中文"、"English"、"其他"不是在数据库中的。所以输出不出来,只输出了一个它本属于的那种语言。
请前辈们帮忙修改,怎么能输出3种语言,并默认选中了本来属于的那种语言
[ 本帖最后由 theend12 于 2010-11-9 15:38 编辑 ]