~~~客户端如何判断单选按钮没有选中?~~~~高分相送!!!
以下是我的程序,我想在客户端检查提交的时候检查是否都选过了,否则就提示。
各位大虾请帮小弟,如能解决,给500分,绝不失言。QQ :3486176
<%@ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>准经销商考核</title>
</head>
<%
Dim objExam, rstProblem, rstDetail
Dim ExamId, lngI, intI, intJ, strA, lngResult, errMsg, strB
Dim problemId, detailId, detailTitle, ResultId
ResultId = Session("Result_Id")
Set objExam = Server.CreateObject("ExamCom.Exam")
%>
<body bgcolor="FEF8FA">
<form name="ExStep2" id="ExStep2" method="post">
<table width="787" border="0" align="center" cellpadding="0" cellspacing="1" ID="Table1">
<%
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>"
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>"
rstDetail.MoveNext
Loop
Next
rstProblem.Close
rstDetail.Close
Set rstProblem = Nothing
Set rstDetail = Nothing
Set objExam = Nothing
%>
</table>
<p align="center"><br>
<input name="ACT" type="hidden" id="ACT" value="GO"> <input name="Submit" type="image" id="Submit" style="border:0px" src="../image/subTest.jpg"
width="64" height="34"> <a href="../main.asp"><img src="../image/quitTest.jpg" width="64" height="34" border="0"></a>
</p>
</form>
</body>
</html>