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%>

---

Òý