<script language="VBScript">
<!--
sub Submit2_onclick()
tmpi=0
i=1
do while i<Cint(form1.Lens.value)+1
for j=1 to CInt(form1.QueryDays.value)-1
str ="form1.textf"&<%=j&i%>&".value"
theValue = window.execScript str
tmpi=tmpi+CInt(theValue)
next
i=i+1
str1 = "form1.addupnum"&<%=i%>&".value="&tmpi
window.execScript str1
loop
end sub
-->
</script>
<script language="VBScript">
<!--
sub Submit2_onclick()
tmpi=0
i=1
do while i<form1.Lens.value+1
for j=1 to form1.QueryDays.value-1
tmpi=tmpi+form1.textf<%=j&i%>.value//这里报错说不支持对象form1.textf,后面的部分不知道怎么没了
next
i=i+1
form1.addupnum<%=i%>.value=tmpi
loop
end sub
-->
</script>