在ASP中实现下拉列表的多项选择可以使用HTML的select元素结合multiple属性和ASP的循环来实现。以下是一个示例代码：

<%
' 定义一个数组作为下拉列表的选项
Dim options
options = Array("选项1", "选项2", "选项3", "选项4", "选项5")

' 获取表单提交的选中项
Dim selectedOptions
selectedOptions = Request.Form("options")

' 输出下拉列表
Response.Write("
")
Response.Write("")
For i = 0 To UBound(options)
    ' 检查当前选项是否被选中
    Dim isSelected
    isSelected = False
    For j = 0 To UBound(selectedOptions)
        If selectedOptions(j) = options(i) Then
            isSelected = True
            Exit For
        End If
    Next
    
    ' 输出选项
    If isSelected Then
        Response.Write("" & options(i) & "")
    Else
        Response.Write("" & options(i) & "")
    End If
Next
Response.Write("")
Response.Write("")
Response.Write("
")
%>

在上面的示例中，首先定义了一个数组options作为下拉列表的选项。然后通过Request.Form("options")获取表单提交的选中项，存储在selectedOptions变量中。

接下来使用循环遍历options数组，对于每个选项，检查它是否在selectedOptions数组中，如果是，则输出时添加selected属性，表示该选项被选中。

最后，使用HTML的form元素和input元素来创建一个包含下拉列表和提交按钮的表单。

这样就可以在ASP中实现下拉列表的多项选择。