If lngResult <> 0 Then
errMsg = objExam.Error_message
Set objExam = Nothing
showMsg errMsg
End If
%>
<body bgcolor="FEF8FA">
<table width="787" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-BOTTOM: #c1c1c1 1px solid">
<tr>
<td width="256" valign="top"><IMG height=84 src="image/testlogo.jpg" width=256></td>
<td valign="top"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="65" border="0" cellpadding="0" cellspacing="1" class="table" style="BORDER-RIGHT: #c1c1c1 1px solid">
<tr>
<td height="6" colspan="2" background="image/topbg_none.gif"></td>
</tr>
<tr align="center">
<td width="66%" align="left" valign="top"><img src="/image/test_title.gif" width="290" height="55"></td>
<td width="34%" align="right" valign="top"><img src="/image/logo2.gif" width="241" height="55"></td>
</tr>
</table>
</td>
</tr>
</table>
<form name="ExStep2" id="ExStep2" method="post" onSubmit="checkform()">
<table class="font1" width="787" border="0" align="center" background="image\testbgphoto.jpg" cellpadding="0" cellspacing="1" bordercolor="#C0C0C0" style="border-collapse: collapse" >
<%
For lngI = 1 To objExam.control_count
objExam.control_nb = lngI
Response.write "<tr bgcolor=F3B9C8> "
Response.write "<td height=20 colspan=2 > " & objExam.control_disp_title
Response.write "</td></tr>"
lngResult = objExam.listProblem
If lngResult <> 0 Then
errMsg = objExam.Error_message
Exit For
End If
Set rstProblem = objExam.problems
intI = 0
Do While Not rstProblem.EOF
intI = intI + 1
Response.write "<tr class=font1>"
Response.write "<td colspan=2> " & intI & "、" & rstProblem("Problem_title").Value
Response.write "</td></tr>"
lngResult = objExam.listDetail(rstProblem("Result_problem_id").Value)
If lngResult <> 0 Then
errMsg = objExam.Error_message
Exit For
End If
Set rstDetail = objExam.details
intJ =0
Do While Not rstDetail.EOF
intJ = intJ + 1
strA = Chr(64+intJ)
problemId = rstProblem("Result_problem_id").Value
detailId = rstDetail("Detail_id").Value
detailTitle = rstDetail("Detail_title").Value
Response.write "<tr class=font1>"
Response.write "<td colspan=2> <input type=radio name='" & problemId & "' value='"& detailId & "'>" & strA & "、" & detailTitle
Response.write "</td></tr>"
strB = strB & problemId & ","
rstDetail.MoveNext
Loop
rstProblem.MoveNext
Loop
Next
rstProblem.Close
rstDetail.Close
Set rstProblem = Nothing
Set rstDetail = Nothing
Set objExam = Nothing
if errMsg <> "" then
showMsg errMsg
end if
%>
</table>
看看这个便知道
<script.
function CheckAll(form) {
for (var i=0; i < document.forms[0].elements.length; i++)
document.forms[0].elements[i].checked=!document.forms[0].elements[i].checked;
}
</script>