这段代码改VBS怎么写
<script language= "VBScript " type= "text/VBScript ">
function CheckCheckBox(selObj)
{
Dim TheForm
Set TheForm = Document.forms( "selprod ")
if(TheForm.selobj.checked = true)
{
theform.CheckNum.value++;
}
else
{
theform.CheckNum.value--;
}
if(theform.CheckNum.value = 5)
{
selObj.checked = false;
theform.CheckNum.value--;
}
}
</script>


[解决办法]
要用javascript 就用javascript 怎么搞个四不象的出来？
<script language= "javaScript " type= "text/VBScript ">
function CheckCheckBox(selObj)
{

var TheForm = Document.forms( "selprod ")
if(TheForm.selobj.checked == true)
{
theform.CheckNum.value++;
}
else
{
theform.CheckNum.value--;
}
if(theform.CheckNum.value ==5)
{
selObj.checked = false;
theform.CheckNum.value--;
}
}
</script>
[解决办法]
要用javascript 就用javascript 怎么搞个四不象的出来？
<script language= "vbScript " type= "text/VBScript ">
function CheckCheckBox(selObj)
dim TheForm;
TheForm = Document.forms( "selprod ")
if TheForm.selobj.checked = true then

theform.CheckNum.value=theform.CheckNum.value+1;

else

theform.CheckNum.value=theform.CheckNum.value-1;
end if
if theform.CheckNum.value =5 then

selObj.checked = false;
theform.CheckNum.value=theform.CheckNum.value+1;
end if
end function
</script>
[解决办法]
<script language= "javaScript " type= "text/javascript ">
[解决办法]
<script language= "javaScript " type= "text/javaScript ">
function CheckCheckBox(selObj)
{

if(selobj.checked == true)
{
theform.CheckNum.value++;
}
else
{
theform.CheckNum.value--;
}
if(theform.CheckNum.value ==5)
{
selObj.checked = false;
theform.CheckNum.value--;
}
}
</script>