Asp classic 将数据库中的值放入下拉列表

我的工具是asp。我正在sql中使用此代码进行查询

dim req_id
req_id=Request.Form("Req_id")

if req_id<>"" then
Set conn=server.CreateObject("adodb.connection")
                    conn.Open session("Psrconnect")
                    Set rs=CreateObject("Adodb.Recordset")
                    rs.Open "select * from passwords where REQ_ID='"&req_id&"'", conn

dim-req\u-id
请求id=请求表格（“请求id”）
如果请求id为“”，则
Set conn=server.CreateObject（“adodb.connection”）
连接开放会话（“Psrconnect”）
Set rs=CreateObject（“Adodb.Recordset”）
rs.打开“从密码中选择*，其中REQ_ID=”&REQ_ID&“”，conn

---

我想将此查询的结果放入下拉列表中。我该怎么做？非常感谢您提供的任何帮助。

从我的工作页面中略加编辑的代码：

function HtmlFormOption( byval psReturnValue, byval psDisplayValue ,byval psCurrentDefault)
   dim x
   if IsNull(psCurrentDefault) then psCurrentDefault = ""
   if IsNull(psReturnValue) then psReturnValue = ""

   if lCase( cStr(psReturnValue) ) = lCase( cStr(psCurrentDefault)) then
      x = "selected "
   else
      x = ""
   end if
   HtmlFormOption = "<option " & x & "value='" & psReturnValue & "'>" & psDisplayValue & "</option>"
end function

   dim Result, sCode, sWaarde
   Result = "<select name='NameCombobox' size='1'>" & vbCrlf
   while not objRecLookup.Eof
      sCode = objRecLookup.Fields(0)    '  first field in result set
      sWaarde = objRecLookup.Fields(1)    ' second field in result set
      if not IsNull(sCode) and not IsNull(sWaarde) then
         Result = Result & HtmlFormOption( sCode, sWaarde , psCurrentDft )
      end if
      objRecLookup.MoveNext
   wend
   objRecLookup.Close
   Result = Result &  "</select>" & vbCrlf

函数HtmlFormOption（byval psReturnValue、byval psDisplayValue、byval psCurrentDefault） 暗x 如果为空（psCurrentDefault），则psCurrentDefault=“” 如果为空（psReturnValue），则psReturnValue=“” 如果lCase（cStr（psReturnValue））=lCase（cStr（psCurrentDefault）），则 x=“已选定” 其他的 x=“” 如果结束 HtmlFormOption=“&psDisplayValue&” 端函数 暗淡的结果，斯考德，斯瓦尔德 结果=”“&vbCrlf 而不是objRecLookup.Eof sCode=objRecLookup.Fields（0）'结果集中的第一个字段 swaard=objRecLookup.Fields（1）'结果集中的第二个字段 如果非IsNull（sCode）和非IsNull（swaard），则 结果=结果和HtmlFormOption（sCode、SWARDE、psCurrentDft） 如果结束 objRecLookup.MoveNext 温德 关闭 结果=结果&&&vbCrlf

---

然后写下（结果）

以下是一个简单的解决方案：

<%

Dim objCommand, objRS
Set objCommand = Server.CreateObject("ADODB.Command")

with objCommand
    .ActiveConnection = objConn
    .CommandType = adCmdText
    .CommandText = "SELECT * FROM PASSWORDS WHERE REQ_ID= '" & req_id & "'"
    Set objRS = .Execute
end with

%><select name="selectbox"><%   

While NOT objRS.EOF
    %><option value="<%=objRS("COLUMN_NAME")%>"><%=objRS("COLUMN_NAME")%></option><%
    objRS.MoveNext
Wend

%></select><%

objRS.Close
Set objRS = Nothing
Set objCommand = Nothing

%>