ASP Classic多组筛选改造求助：替换单选下拉为多选/复选框

1. 前端表单改造（替换下拉框为复选框组） #

把原来的单选下拉替换为复选框组，添加提交按钮，让用户可以多选后统一提交：

<form method="get" name="frmGroupFilter" id="frmGroupFilter" action="set_group.asp">
  <div align="right" style="font-family:Arial, Helvetica, sans-serif;">
    <label><input type="checkbox" name="filter" value="%%" id="showAll"> 显示全部</label><br>
    <% while (!rsGroups.EOF) { %>
      <label><input type="checkbox" name="filter" value="<%= Server.HTMLEncode(rsGroups.Fields.Item("GROUP").Value) %>"> 
      <%= Server.HTMLEncode(rsGroups.Fields.Item("GROUP_LABEL").Value) %></label><br>
    <% 
        rsGroups.MoveNext(); 
      } 
      if (rsGroups.CursorType > 0) { 
        if (!rsGroups.BOF) rsGroups.MoveFirst();
      } else { 
        rsGroups.Requery(); 
      } 
    %>
    <button type="submit">应用筛选</button>
  </div>
</form>

<script>
// 处理"显示全部"复选框联动：选中时禁用其他复选框，取消时恢复
document.getElementById('showAll').addEventListener('change', function() {
  const checkboxes = document.querySelectorAll('input[name="filter"]:not(#showAll)');
  checkboxes.forEach(cb => {
    cb.disabled = this.checked;
    if (this.checked) cb.checked = false;
  });
});
</script>

关键修改点： #

• 用name="filter"的复选框组替代原下拉框，支持多选
• 添加显示全部复选框并做联动逻辑，避免筛选冲突
• 表单直接提交到set_group.asp，移除原有的即时跳转逻辑
• 用Server.HTMLEncode防止XSS注入，增强页面安全性

2. 修改set_group.asp：处理多组筛选参数 #

原来的代码只能存储单个组值，现在需要接收多个filter参数，拼接成适合数据库查询的格式存入Session：

<%
Dim selectedFilters, filterStr
selectedFilters = Request.QueryString("filter")

' 判断是否选中"显示全部"
If InStr(selectedFilters, "%%") > 0 Then
  Session("usergroup") = "%%"
Else
  ' 将多个筛选值拼接为Access IN子句支持的格式
  filterStr = Replace(selectedFilters, ",", "','")
  If filterStr <> "" Then
    filterStr = "'" & filterStr & "'"
  End If
  Session("usergroup") = filterStr
End If

' 跳转回记录列表页面（请替换为你的实际页面路径）
Response.Redirect "记录列表页面.asp"
%>

关键修改点： #

• 自动处理同名的filter参数（Request.QueryString会将多个值转为逗号分隔的字符串）
• 若选中"显示全部"，直接设置Session为%%以保留原有全量查询逻辑
• 把多选的组值拼接成'组1','组2'格式，适配Access的IN查询语法

3. 修改记录查询逻辑 #

原来的筛选逻辑只支持单个值，现在要适配多组的IN查询：

<%
Dim rsUnack__filter
rsUnack__filter = "%%"
If Session("usergroup") <> "" And Session("usergroup") <> "undefined" Then
  rsUnack__filter = Session("usergroup")
End If

' 构建SQL查询语句（请替换为你的实际表名和字段名）
Dim sql
If rsUnack__filter = "%%" Then
  sql = "SELECT * FROM 分配记录表"
Else
  sql = "SELECT * FROM 分配记录表 WHERE GROUP_FIELD IN (" & rsUnack__filter & ")"
End If
%>

关键修改点： #

• 保留"显示全部"的逻辑（%%时查询所有记录）
• 当Session存储的是拼接好的IN子句格式时，直接嵌入SQL完成多组筛选

4. 适配自动刷新逻辑 #

页面每60秒刷新时，会自动读取Session中存储的筛选条件，无需额外修改刷新逻辑，刷新后将自动加载当前筛选的记录。

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