Question

尝试在输出中显示两个将由 bAddItem（）并排添加的项目。我尝试使用HTML标记但是无法成功，我还使用了HTML标记作为响应.write（）但失败了，任何人都可以建议如何在输出中并排显示文本和复选框

<%  
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

Answer 1

您输出一个表的方式与其他任何html相同：使用Response.Write语句，或者使用%>关闭脚本然后编写实际的html。

 <html>
 <head><title>This is my page</title>
 <%
 dim V, N, i
 %>
 </head>
 <body>
 <table><tr><th>Name</th><th>Age</th></tr>
 <%
 ' ... (code to load data into V() goes here)
 ' ...
 If N = 0 Then 
    Response.Write "<tr><td colspan='2'>No data found</td></tr>"
 Else
    For i = 0 to N-1
       Response.Write "<tr><td>" & V(0,i) & "</td><td>" & V(1,i) & "</td></tr>"
    Next
 End If
 %>
 </table>
 </body>
 </html>

_{我对引用的值采取了“简单的方法”：我只是使用单引号，因为html不关心任何一种方式。如果您必须使用双引号，则可以选择将双引号加倍（"<td colspan=""2"">"）或使用字符代码：（"<td colspan=" & Chr(34) & "2" & Chr(34) & ">"）。}

那就是说，看起来你并没有输出任何表格。从我能做的一点点来看，看起来你正试图写出一个复选框和一个标签。这种机制并没有任何不同;你只需要使用适当的html标签。（但有一件事：首先选中复选框几乎总是更好，然后是标签 - 这是大多数人习惯的，如果你有一个复选框列表，那么它们会更好地对齐。）

...
<form method="post" action="FormName.asp">
<input type="hidden" name="Option1" value="<%=Opt1%>">
<%
For f = 1 to iCount
   Response.Write "<p><label><input type='checkbox'"
   Response.Write " value='" & aPhoneTypeId(0,f) & "'"
   Response.Write " name='PhoneType_" & f & "'"
   If aPhoneTypeId(0,f) = sPhoneType Then Response.Write " checked"
   Response.Write ">" & aPhoneTypeId(1,f) & "</label></p>"
Next
%>
</form>
...

（请注意，我不知道你的变量究竟包含什么，所以上面的内容可能完全是胡言乱语，但它应该会给你一个关于如何开始的提示。）

如何在Classic ASP中以html表格式显示内容

1 个答案: