展示：     

<tr>

          <td align="right" bgcolor="#FFFFFF">商城:</td>
          <td bgcolor="#FFFFFF">
          <%
            sql="select * from goodsite order by ids desc"
            rs.open sql,conn,3
            if rs.recordcount>0 then
            rs.pagesize=rs.recordcount
            %>
            <select name="sitetitle" multiple size="<%=rs.recordcount%>">
          <%
            for i=1 to rs.pagesize
            if rs.eof or rs.bof then exit for%>
                <option value="<%=rs("title")%>"><%=rs("title")%></option>
          <%rs.movenext
                              next
                              end If
                              rs.close
                              %>
            </select></td>

        </tr>

表单获取数据处理：

Dim strtitle
Dim strDelimiter
strDelimiter =","
Dim I
For I = 1 to Request.Form("sitetitle").Count
    If I=Request.Form("sitetitle").Count then
        strtitle = strtitle&Request.Form("sitetitle")(I)
    Else
        strtitle = strtitle&Request.Form("sitetitle")(I)&strDelimiter
    End If
Next
strtitle = Trim(strtitle)