这段代码改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>