在ASP（Active Server Pages）中，创建一个多选下拉框可以通过HTML的<select>标签与ASP代码结合实现，下面是一个详细的步骤和示例代码，帮助你理解如何在ASP页面中实现多选下拉框。
1. 基本HTML结构
我们需要一个基本的HTML结构来包含我们的表单和下拉框。
<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>ASP Multi-Select Dropdown Example</title> </head> <body> <form action="process_select.asp" method="post"> <label for="options">Choose your options:</label> <select name="options[]" id="options" multiple> <!-Options will be populated here --> </select> <br><br> <input type="submit" value="Submit"> </form> </body> </html>
2. 使用ASP生成选项
我们使用ASP代码动态生成下拉框的选项，假设我们有一个数组或者数据库查询结果需要显示在下拉框中。
示例：从数组生成选项
<%@ Language=VBScript %>
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>ASP Multi-Select Dropdown Example</title>
</head>
<body>
<form action="process_select.asp" method="post">
<label for="options">Choose your options:</label>
<select name="options[]" id="options" multiple>
<%
Dim optionsArray(3)
optionsArray(0) = "Option 1"
optionsArray(1) = "Option 2"
optionsArray(2) = "Option 3"
optionsArray(3) = "Option 4"
For i = 0 To UBound(optionsArray)
Response.Write("<option value='" & optionsArray(i) & "'>" & optionsArray(i) & "</option>")
Next
%>
</select>
<br><br>
<input type="submit" value="Submit">
</form>
</body>
</html>
示例：从数据库生成选项
如果你的数据来自数据库，你需要先连接到数据库并获取数据，然后生成选项。
<%@ Language=VBScript %>
<%
Dim conn, rs, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=yourDSN;UID=yourUsername;PWD=yourPassword;" ' 修改为实际连接字符串
sql = "SELECT option_name FROM your_table" ' 修改为实际SQL查询
Set rs = conn.Execute(sql)
%>
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>ASP Multi-Select Dropdown Example</title>
</head>
<body>
<form action="process_select.asp" method="post">
<label for="options">Choose your options:</label>
<select name="options[]" id="options" multiple>
<% Do While Not rs.EOF %>
<option value="<%= rs("option_name") %>"><%= rs("option_name") %></option>
<% rs.MoveNext %>
<% Loop %>
</select>
<br><br>
<input type="submit" value="Submit">
</form>
<%
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
</body>
</html>
在process_select.asp页面中，处理用户选择的选项。
<%@ Language=VBScript %>
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Process Selection</title>
</head>
<body>
<h2>Your Selected Options:</h2>
<ul>
<%
Dim i, selectedOptions
selectedOptions = Request.Form("options")
For i = 0 To UBound(selectedOptions)
Response.Write("<li>" & selectedOptions(i) & "</li>")
Next
%>
</ul>
</body>
</html>
问题1：如何处理多选下拉框中的重复选项？
解答： 在生成选项时，可以使用JavaScript或服务器端逻辑来确保每个选项的唯一性，如果从数据库获取数据，确保查询结果中没有重复项，可以在SQL查询中使用DISTINCT关键字来去重。
问题2：如何将多选下拉框的选项保存到数据库中？
解答： 在处理表单提交的页面中，可以将用户选择的选项存储到数据库中，将选中的选项通过表单传递到服务器端，然后在服务器端使用循环遍历这些选项，并将它们插入到数据库表中。
<%@ Language=VBScript %>
<%
Dim conn, rs, sql, i, selectedOptions, optionValue
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=yourDSN;UID=yourUsername;PWD=yourPassword;" ' 修改为实际连接字符串
selectedOptions = Request.Form("options")
For i = 0 To UBound(selectedOptions)
optionValue = selectedOptions(i)
sql = "INSERT INTO your_table (option_name) VALUES ('" & optionValue & "')"
conn.Execute(sql)
Next
conn.Close
Set conn = Nothing
%>
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Save Selection to Database</title>
</head>
<body>
<h2>Options have been saved to the database.</h2>
</body>
</html>
来源：https://shuyeidc.com/wp/67270.html