试图在输出中并排显示 2 个将由bAddItem()添加的项目。我尝试使用 HTML 标签但未能成功,我也使用在 response.write() 中编写 HTML 标签但失败了,任何人都可以建议如何在输出中并排显示文本和复选框
<%
for iCount = 0 to UBound(aPhoneTypeId,2) - 1
dim Consentindarray
dim Checkedstatus
dim consentvalue
Consentindarray=""
Checkedstatus=0
Consentindarray = split(TrimValue(oRstInd("user48")),",")
for each consentvalue in Consentindarray
if InStr(1, consentvalue, trim(aPhoneTypeId(0,iCount)) ) > 0 then
Checkedstatus=1
end if
next
if Len(trim(aPhone(iCount))) > 0 then
if aPhoneTypeId(0,icount) = sPhoneType then
**if bSuccess then bSuccess = bAddItem(oSectionNode, "text", aPhoneTypeId(1,icount), aPhone(iCount), "", true)** end if
**if bSuccess then bSuccess = bAddItem(oSectionNode, "checkbox","",Checkedstatus, "", false)** end if
else
if bSuccess then bSuccess = bAddItem(oSectionNode, "text", aPhoneTypeId(1,icount), aPhone(iCount), "", false) end if
if bSuccess then bSuccess = bAddItem(oSectionNode, "checkbox","",Checkedstatus, "", false) end if
end if
end if
next