asp下拉菜单的默认值 - Web 开发 / ASP

VBScript code:

<%

dim current_cname

current_cname = ……

'获取所有分类
sql = "select cname from class order by cLayer desc"
%>
<select name="cname" id="cname">

<%for i=1 to rs.recourdcount %>
<option value="<%=rs("cname")%>"><%=rs("cname")%></option>
<%next%>

</select>



  如上面的代码，下拉菜单中的值是动态读出的，我现在想实现的效果是，
打开网页之后，此下拉菜单的默认值等于最上面定义的那个current_cname(这个值是已知的），
请问该如何实习呢？注意：是在asp中实现这个效果，可以使用javascript

---

<option value="<%=rs("cname")%>"<% if rs("cname") = current_cname then response.write "selected"%>><%=rs("cname")%></option>

---

<%for i=1 to rs.recourdcount %>
  <option value="<%=rs("cname")%>" <% If rs("cname") = current_cname Then Response.Write("selected='selected'") %>><%=rs("cname")%></option>
  <%next%>

---

引