这是我的 vbscript 代码
我要求在表格中显示数据
在我的页面中,当我检查其中一些状态为“已关闭”并单击按钮时,我有一些复选框......然后我需要获取带有复选框选中的表格(其状态为关闭)和其余所有状态的表格应该显示...
现在我怎样才能得到选中的复选框数据。
sXML4= goBO.QueryXML("SELECT ISS_REL_ID, ISNULL(CONVERT(VARCHAR(11),ISS_RANK , 106),'NA') AS DATEREPORTED,ISS_TITLE AS ISSUESREPORT,ISS_IMPACT AS REPORTEDBY, "&_
" ISNULL(CONVERT(VARCHAR(11),ISS_TRG_RS_DATE , 106),'NA') AS DATECLOSED, "&_
" C_CATEGORY AS CATEGORY, "&_
" CASE WHEN ISS_STATUS ='C' THEN 'Closed' WHEN ISS_STATUS ='O' THEN 'Work In Progress' WHEN ISS_STATUS ='K' THEN 'KIV'END AS "&_
" STATUS, ISS_PROGRESS_RPT, "&_
" CASE WHEN ISS_STATUS ='C' THEN 'GREEN' WHEN ISS_STATUS ='O' THEN 'ORANGE' WHEN ISS_STATUS ='K' THEN 'ORANGE'END AS COL "&_
" FROM v_iss_list WHERE ISS_PROGRESS_RPT='Y' and ISS_REL_ID = 'prj0000152' order by status ","TYPES","TYPE")
On Error Resume Next
if goBO.HasError then HandleError
Set oXML4 = Server.CreateObject("MSXML.DOMDocument")
oXML4.async = false
oXML4.loadXML sXML4
For each oNode4 in oXML4.documentElement.childNodes
sDataPoint4 = sDataPoint4 + "<tr>"
'sDataPoint4 = sDataPoint4 + "<td align=""center"" style=""font-family:verdana;font-size:11""> <label><input type=""checkbox"" value=""Yes"" name=""myTextEditBox""""></label> </td>" + vbNewline
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("DATEREPORTED") &"</label> </td>" + vbNewline
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("ISSUESREPORT") &"</label> </td>" + vbNewline
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("REPORTEDBY") &"</label> </td>" + vbNewline
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("DATECLOSED") &"</label> </td>" + vbNewline
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("CATEGORY") &"</label> </td>" + vbNewline
if oNode4.getAttribute("STATUS") = "Closed" then
dim val
val = oNode4.getAttribute("ISSUESREPORT")
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11;background-color:"& oNode4.getAttribute("COL") &"""> <label>"& oNode4.getAttribute("STATUS") &" <input type=""checkbox"" name=""myTextEditBox"" value=""yes""""></label> </td>" + vbNewline
else
sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11;background-color:"& oNode4.getAttribute("COL") &"""> <label>"& oNode4.getAttribute("STATUS") &"</label> </td>" + vbNewline
end if
sDataPoint4 = sDataPoint4 + "</tr>" + vbNewline
Next
'bp oXML4.documentElement.childNodes(0).getAttribute("ISSUESREPORT")
Set oXML4 = nothing
set oBO = nothing
SUB GetResults(myTextEditBox)
ON ERROR RESUME NEXT
IF myTextEditBox.Checked = TRUE THEN
MSGBOX myTextEditBox.Value
END IF
IF ERR.Number <> 0 THEN
FOR i = 0 TO myTextEditBox.Length - 1
IF myTextEditBox(i).Checked = TRUE THEN
MSGBOX myTextEditBox(i).Value
END IF
NEXT
END IF
ON ERROR GOTO 0
END SUB
一些身体可以帮助我...
谢谢