程序代码：

<select name="Gamename">
<option value="">所有</option>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select GameName from GameName order by GameName Asc",conn,1,1
While Not rs.Eof
Response.Write("<option value="&rs("Gamename")&">"&rs("Gamename")&"</option>")
rs.MoveNext
Wend
rs.Close
%>
</select>