我帮你梳理了代码里的问题，选中下拉框没反应主要是交互逻辑不符合需求，再加上几个语法和SQL的小错误，下面一步步给你修正：

核心问题梳理 #

• 表名写错了：第一个查询用了SELECT ... FROM User，但你的实际表是Users，这会导致下拉框加载不出用户数据，直接就没法正常选择。
• 判断逻辑完全错误：If Len("UserID") > 0这里是在判断字符串"UserID"的长度，永远是6，所以不管有没有选用户都会执行查询，但实际应该判断表单提交的UserID值是否存在，要改成If Len(Request.Form("UserID")) > 0。
• 字段引用多了空格：objRS(" Role ")里Role前后的空格会让ASP找不到这个字段，改成objRS("Role")才行。
• 交互逻辑不匹配需求：你要的是选中下拉就显示信息，但当前代码必须点击「Submit Form」按钮才会触发查询，所以得给下拉框加onChange事件，选中就自动提交表单。

另外，注意你的数据里同一个User_id对应多个Role，原来的单个输入框只会显示最后一个角色，我改成了显示所有角色的样式。

修正后的完整代码 #

<form action="" method="post" id="newMenu" name="frmReport" onSubmit="return true">
<table>
    <tr>
        <td>
            <strong>New User: </strong>
            <select name="UserID" onChange="document.frmReport.submit();">
                <option value="" <% If Request.Form("UserID") = "" Then Response.Write("selected") %>>All Users</option>
                <% 
                ' 修正表名Users，之前写的User
                sSQL = "SELECT DISTINCT User_id, Lastname, Firstname FROM Users "
                objRS.Open sSQL, objConn
                Do Until objRS.EOF
                    ' 提交后保持下拉选中状态，提升体验
                    Dim selectedStatus
                    selectedStatus = ""
                    If CStr(objRS("User_id")) = CStr(Request.Form("UserID")) Then 
                        selectedStatus = "selected"
                    End If
                    Response.Write("<option value='" & objRS("User_id") & "' " & selectedStatus & ">" & objRS("Lastname") & ", " & objRS("Firstname") & "</option>")
                    objRS.MoveNext
                Loop
                objRS.Close 
                %>
            </select>
        </td>
    </tr>
    <% 
    ' 修正判断逻辑，检查表单提交的UserID是否有值
    If Len(Request.Form("UserID")) > 0 Then
        ' 替换单引号防止SQL注入，Classic ASP里的基础防护
        Dim safeUserID
        safeUserID = Replace(Request.Form("UserID"), "'", "''")
        sSQL = "SELECT Role FROM Users WHERE User_id = '" & safeUserID & "'"
        objRS.Open sSQL, objConn
        ' 如果有数据才显示
        If Not objRS.EOF Then %>
            <tr>
                <td>
                    <strong>用户角色：</strong><br>
                    <% 
                    ' 遍历所有角色，换行显示
                    Do Until objRS.EOF
                        Response.Write(objRS("Role") & "<br>")
                        objRS.MoveNext
                    Loop
                    %>
                </td>
            </tr>
        <% End If
        objRS.Close
    End If 
    %>
    <input type="hidden" name="FormSource" value="SubmitForm">
    <!-- 因为下拉自动提交，所以可以隐藏提交按钮，也可以保留 -->
    <!-- <input type="submit" value="Submit Form"> -->
</table>
</form>

额外小优化说明 #

• 防SQL注入：加了Replace替换单引号，避免恶意输入导致的SQL注入，这是Classic ASP里的基础安全操作。
• 保持选中状态：提交后下拉框会停在选中的用户上，不用每次重新选择。
• 多角色显示：把原来的单个输入框改成了换行显示所有角色，符合你数据库里的多角色数据结构。
• 简化表单验证：如果没有特殊验证需求，把onSubmit改成return true，避免可能的验证阻止提交。

这样改完之后，你选中下拉里的用户名，页面会自动刷新并显示该用户的所有角色信息啦。

内容的提问来源于stack exchange，提问作者Jenny Tran