經典的ASP顯示在逗號分隔值的複選框中選中的值

Question

我有檢查值作爲逗號分隔值在數據庫中。當下一次用戶訪問該頁面時，我需要顯示從逗號分隔值的選中值，以便用戶可以更新它們和再次提交。 這裏是我的代碼： /ArrayValues = 「PMT/HLBRs，ROM，發展」（這裏不把數據庫部分）/

 ArrayValues=Split(objRSComment.fields("Phase"),",") 
    for i=0 to 8 
    Response.Write "Value " & i & " is " & ArrayValues(i) & "<br>" 
    Next 
    response.end() 
    <input type="checkbox" name="chkProjPhase" value="PMT/HLBRs" "checked"/><label>PMT/HLBRs</label> 
    <input type="checkbox" name="chkProjPhase" value="ROM" "checked"/><label>ROM</label> 
    <input type="checkbox" name="chkProjPhase" value="BUS CASE APPROVAL" <%=chkVal% >/><label>BUS CASE APPROVAL</label> 
    <input type="checkbox" name="chkProjPhase" value="Detailed Requirements" /><label>Detailed Requirements</label> 
    <input type="checkbox" name="chkProjPhase" value="20% LOE"/><label>20% LOE</label> 
    <input type="checkbox" name="chkProjPhase" value="Development"/><label>Development</label> 
    <input type="checkbox" name="chkProjPhase" value="Testing"/><label>Testing</label> 
    <input type="checkbox" name="chkProjPhase" value="Implementation"/><label>Implementation</label> 
    <input type="checkbox" name="chkProjPhase" value="Post Deployment Monitoring"/><label>Post Deployment Monitoring</label> 

我必須展示 「PMT/HLBRs，ROM，發展」 這些在複選框中選中的值以及其他未選中的值。

Answer 1

你可以做一個簡單的搜索instring

<% 
dim phaseList = objRSComment.fields("Phase") 

function isChecked(phase) 
    dim retVal = "" 

    if inStr(phaseList, phase) > 0 then 
     retval = " checked " 
    end if 
    isChecked = retVal 

end function 

ArrayValues=Split(objRSComment.fields("Phase"),",") 
    for i=0 to 8 
    Response.Write "Value " & i & " is " & ArrayValues(i) & "<br>" 
    Next 
%> 
    <input type="checkbox" name="chkProjPhase" value="PMT/HLBRs" <%= isChecked("PMT/HLBRs") %>/><label>PMT/HLBRs</label> 
    <input type="checkbox" name="chkProjPhase" value="ROM" <%= isChecked("ROM") %>/><label>ROM</label> 
    ... etc 
    <input type="checkbox" name="chkProjPhase" value="Post Deployment Monitoring" <%= isChecked("Post Deployment Monitoring") %>/><label>Post Deployment Monitoring</label> 

注意如果有一個從海誓山盟由此而來階段將不會按預期工作。即如果你有階段，如housing和housing loans，住房將被檢查，如果住房貸款是在階段清單