[CODE]<% dim a a="二类" %> <select> <% Select Case a Case "一类" Response.Write "<option selected>一类</option>" Case "二类" Response.Write "<option selected>二类</option>" Case "三类" Response.Write "<option selected>三类</option>" End Select %> <option>一类</option> <option>二类</option> <option>三类</option> </select>[/CODE]
<% dim a a="二类" %> <select> <option value="一类" <%if a="一类" then response.Write("selected") else response.Write("") end if%>>一类</option> <option value="二类" <%if a="二类" then response.Write("selected") else response.Write("") end if%>>二类</option> <option value="三类" <%if a="三类" then response.Write("selected") else response.Write("") end if%>>三类</option> </select>