ASP（FOR）实现字母排序列表

            字母排序：
        <select name="zmbx" id="zmbx">
        <%
  for i = 1 to 26
  pyzm = chr(i + 96) '拼音字母
  if rs("zmbx") = pyzm then
   dqzm = "selected"  '当前字母
  else
   dqzm = ""    '当前字母
  end if
  %>
        <option value="<%=pyzm%>" <%=dqzm%>><%=pyzm%></option>
        <%next%>