我做了个下拉列表实现用户自己分页，但问题来了？当用户选择后，当用户选择某项后，selected就符给所选择的项..请问如何实现？？？
response.write"</select>页"
response.Write "  &nbsp;&nbsp;&nbsp;&nbsp; 每页显示"
response.Write "<select name='cur_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
response.Write "<option value='userAdmin.asp?sel_page=10' selected>10</option>"
response.Write "<option value='userAdmin.asp?sel_page=20'>20</option>"
response.Write "<option value='userAdmin.asp?sel_page=30'selected>30</option>"
response.Write "<option value='userAdmin.asp?sel_page=50'>50</option>"
response.Write "<option value='userAdmin.asp?sel_page="&rs.recordcount&"'>全部</option>"
response.Write "</select>条"

传一个参数上去
然后分页的时候：取这个参数作每页显示的数目就可以了呀

将你上面的代码改为

复制内容到剪贴板

代码:

response.write"</select>页"
Dim aPageSize, III
aPageSize = Array(10, 20, 30, 40, 50)
response.Write "  &nbsp;&nbsp;&nbsp;&nbsp; 每页显示"
response.Write "<select name='cur_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
For III=0 To UBound(aPageSize)
    response.Write "<option value='userAdmin.asp?sel_page=" & aPageSize(III) & "'"
    If CStr(Trim(Request.QueryString("sel_page")))=CStr(aPageSize(III)) Then response.Write " selected"
    response.Write ">" & aPageSize(III) & "</option>"
Next
response.Write "</select>条"

楼上的方法很好，很强大，测试通过．．万分感谢．