隐藏ASP经典页面上的单选按钮选项

Question

我问了几个月后如何隐藏从数据库中拉出的经典ASP页面上的一些下拉选项，以便用户无法选择这些选项。但现在剩余的选项之一出现了3个收音机选项。我必须删除其中的一个选项。根据Chrome，我需要删除的选项叫做value="_BML7(B)"。

上次我将以下代码插入到include.asp文件中，该文件运行良好，但隐藏了下拉选项。我需要从当前的下拉选项中隐藏一个单选按钮选项。

Sub buildDropDownList(strCurrentSelection, objListData, strCodeName, strDescriptionName, blnIncludeOther) 
    If Not objListData.BOF Then 
     objListData.MoveFirst 
    End If 
    Dim currentCodeValue 
While Not objListData.EOF 
    currentCodeValue = objListData(strCodeName) 
    If (UCase(currentCodeValue)<>"_04GIDBM") And _ 
     (UCase(currentCodeValue)<>"_05GIDFM") And _ 
     (UCase(currentCodeValue)<>"_03MIS(Q") And _ 
     (UCase(currentCodeValue)<>"_06GIDMS") And _ 
     (UCase(currentCodeValue)<>"_08EXHRM") And _ 
     (UCase(currentCodeValue)<>"_10EXMKT") And _ 
     (UCase(currentCodeValue)<>"_12EXTTH") And _ 
     (UCase(currentCodeValue)<>"_15AFT") And _ 
     (UCase(currentCodeValue)<>"_16HSC") And _ 
     (UCase(currentCodeValue)<>"_18LTD") And _ 
     (UCase(currentCodeValue)<>"_19EBM") And _  
     (UCase(currentCodeValue)<>"_17EXHSC") Then 
     Response.Write "<option value='" & currentCodeValue & "' " 
     If StrComp(strCurrentSelection, currentCodeValue, 1) = 0 then 
      Response.Write "selected" 
     End If 
     Response.Write ">" & objListData(strDescriptionName) & "</option>" & VbCrLf 
    End If 

我真的可以使用这个帮助，并提前感谢大家的帮助！我不是很擅长经典ASP，但我正在尝试。

下面是我上次插入的include.asp文件中的代码。

<p align="center"> 
      <% 
       do until rsProgramLevel.EOF 
        Response.Write "<input type=""radio"" name=""programcode"" onclick=""onProgramCode()"" " 
        Response.Write "value=""" & rsProgramLevel("ProgramCode") & """ " 
        if rsProgramLevel("ProgramCode") = strProgramCode then 
         Response.Write "checked" 
        end if 
        Response.Write ">" 
        Response.Write "&nbsp;" 
        Response.Write rsProgramLevel("LevelDescription") & " (&pound;" & FormatNumber(rsProgramLevel("ChargeValue"), 2) & ")&nbsp;&nbsp;&nbsp;" 
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" 

        rsProgramLevel.MoveNext 
       loop 
      %> 
      </p> 

Answer 1

为了使这个简单的，只是包装的代码与基本If..Then声明发送HTML：

Dim currentCode 

do until rsProgramLevel.EOF 
    currentCode = rsProgramLevel("ProgramCode") 
    If UCase(currentCode)<>"_BML7(B)" Then 
      Response.Write "<input type=""radio"" name=""programcode"" onclick=""onProgramCode()"" " 
      Response.Write "value=""" & currentCode & """ " 
      if rsProgramLevel("ProgramCode") = strProgramCode then 
       Response.Write "checked" 
      end if 
      Response.Write ">" 
      Response.Write "&nbsp;" 
      Response.Write rsProgramLevel("LevelDescription") & " (&pound;" & FormatNumber(rsProgramLevel("ChargeValue"), 2) & ")&nbsp;&nbsp;&nbsp;" 
      Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" 
    End If 
    rsProgramLevel.MoveNext 
loop 

Answer 2

你可以编译列表转换为字符串，像这样......

Const ignoreCodes = " _04GIDBM _05GIDFM _03MIS(Q _06GIDMS _08EXHRM _10EXMKT _12EXTTH _15AFT _16HSC _18LTD _19EBM _17EXHSC " 

将它添加到文件的最顶部（任何Option Explicit命令后）。如果你有新的代码添加到它只是确保有一个空间的任何一方。

然后，只需对照它...

If Instr(ignoreCodes, UCase(currentCodeValue)) = 0 Then 
    Response.Write("<option value='" & currentCodeValue & "' ") 
    If StrComp(strCurrentSelection, " " & currentCodeValue & " ", 1) = 0 then 
     Response.Write " selected " 
    End If 
    Response.Write(">" & objListData(strDescriptionName) & "</option>") 
End If 

如果你想想这进一步，那么只需在数据库中的冗余代码表列表。