Question

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


Set conn=server.CreateObject("adodb.connection")
conn.Open session("Psrconnect")
Set rs=CreateObject("Adodb.Recordset")
rs.Open "select * from releases where project like '%"&req_id&"%'", conn

%>
<SELECT style="LEFT: 454px; WIDTH: 500px; TOP: 413px" name="txtrelease1" id="txtrelease1">
<%
    if rs.EOF=true then
%>  
        <OPTION value="NO Request to Edit">No Request to Edit</OPTION>
<%  else

        do while rs.EOF<>true
        p=InStrRev(rs.Fields(0),"\")
        q=Len(rs.Fields(0))
        r=(Right(rs.Fields(0),(q-p))) %>
            <OPTION value=<%=rs.Fields(0)%>> r </OPTION>
<%  
            rs.movenext
        loop
    end if
%>

</SELECT>

我想在下拉列表中找到r的值。我不知道语法。截至目前，下拉列表显示“r”，而不是其中的值。怎么做？

Answer 1

这应该这样做：

do while not rs.EOF
    p=InStrRev(rs.Fields(0),"\")
    q=Len(rs.Fields(0))
    r=(Right(rs.Fields(0),(q-p))) 
%> 
    <option value="<%=rs.Fields(0)%>"><% =r %></option>
<%
    rs.moveNext
loop

将输出写入下拉列表

1 个答案: