谢谢各位的解答 。我想要的是不用点击总分这栏,总分就自动计算出来,并且科目和调查项目是从数据库里动态读取的。不同的年级调查科目是不同的。下面是这一页的源代码。请各们帮忙看一下。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
'判断班级名是否为空
if (Session("MM_username") = "") Then
Response.Redirect("index.asp")
end if
%>
<%
'获取班级编号并把傎赋给变量bjon
Dim bjon
If (Session("MM_username") <> "") Then
bjon = Session("MM_username")
End If
%>
<%
'获取班级名称
dim bjname,Rsbjname,sqlbjname
Set Rsbjname = Server.CreateObject("ADODB.Recordset")
sqlbjname="select bjname from bjlb where bjon='"&bjon&"'"
Rsbjname.open sqlbjname,dbconnection,adOpenDynamic,3
bjname=(Rsbjname("bjname"))
%>
<%
'获取年级编号
dim njon,Rsbjon,sqlstr
Set Rsbjon = Server.CreateObject("ADODB.Recordset")
sqlstr="select njon from bjlb where bjon='"&bjon&"'"
Rsbjon.open sqlstr,dbconnection,adOpenDynamic,3
njon=(Rsbjon("njon"))
%>
<%
'获取年级科目
dim Rskm,sqlkm,kmname,kmid
Set Rskm = Server.CreateObject("ADODB.Recordset")
sqlkm="select * from kmlb where njon="&njon&" order by kmon"
Rskm.open sqlkm,dbconnection,adOpenDynamic,3
kmname=(Rskm("kmname"))
kmid=(Rskm("kmid"))
%>
<%
'获取调查项目
dim Rsdcxm,sqldcxm,dcxmnr
Set Rsdcxm = Server.CreateObject("ADODB.Recordset")
sqldcxm="select dcxmnr from dcxm order by dcxmid"
Rsdcxm.open sqldcxm,dbconnection,adOpenDynamic,3
dcxmnr=(Rsdcxm("dcxmnr"))
<td><%=(Rskm.Fields.Item("kmname").Value)%></td>
<%
Rskm.MoveNext()
Wend
%>
</tr>
<%
dim i
i=1
%>
<%
'调查项目循环
Rsdcxm.Movefirst()
While NOT Rsdcxm.EOF
%>
<tr>
<td width="200"><%=(Rsdcxm.Fields.Item("dcxmnr").Value)%></td>
<%
Rskm.Movefirst()
While NOT Rskm.EOF
%>
<html>
<body>
<script>
function sum(){
var obj = document.getElementsByName("aa");
var sum = 0;
for (j=0;j<obj.length;j++){
if(obj.item(j).value!=""){
sum += obj.item(j).value*1;
};
}
return sum;
}
</script>
<%
for i=1 to 5
%>
A<%=i%>:<input type="text" name="aa" onblur="hj.value=sum()"/><br>
<%
next
%>
合计:<input type="text" name="hj"/><br>
</body>
</html>
<html>
<body>
<script>
function sum(ttt){
var obj = document.getElementsByName("aa"+ttt);
var sum = 0;
for (j=0;j<obj.length;j++){
if(obj.item(j).value!=""){
sum += obj.item(j).value*1;
};
}
return sum;
}
</script><%
for j=1 to 5
%>
<%
for i=1 to 5
%>
A<%=i%>:<input type="text" name="aa" onblur="hj<%=j%>.value=sum(<%=j%>)"/><br>
<%
next
%>
合计:<input type="text" name="hj<%=j%>"/><br><%
next
%>