输入框 计算 输入数字问题
重新做了代码 但还是不对 希望高手看看 应该不会有大问题现在有个 网页界面 已经做好了 显示的都是数据库中的数据
我想 能把分数输入 论文成绩 设计成绩 答辩成绩 然后按 (输入) 总成绩 能计算出分数
公式就是 : 总成绩=论文*0.4+设计*0.3+答辩*0.3
然后把 论文成绩 设计成绩 答辩成绩 总成绩 都存储到数据库中的 四个字段中
每条记录都有这样的功能
我是想把 3个分数先输入数据库 分数默认0 第四个经过计算也输入
然后 第四个在页面里显示出来 就这么简单
<td><div align="center"><input type=text name=file size="5"></div></td>
<td><div align="center"><input type=text name=system size="5"></div></td>
<td><div align="center"><input type=text name=answer size="5"></div></td>
<td><div align="center"><%=rs("all")%></div></td>
<td><div align="center"><a href="save.asp?id=<%=rs("id")%>&action="insert">确定</a></div></td>
</FORM>
这个是界面代码
但是 我一点确定就是出现空白页面 连接是
http://localhost/%E6%96%B0%E9%97%BB%E7%B3%BB%E7%BB%9F/save.asp?id=66&action=
save.asp里的代码
<%if request("action")="insert" then%>
<%
id=request.Form("id")
dim n1,n2,n3,n4
n1=request.form("file")
n2=request.form("system")
n3=request.form("answer")
n4=cint(n1)* 0.4 + cint(n2) * 0.3 + cint(n3) * 0.3
id=request.QueryString("id")
dim rs
set rs=server.createobject("adodb.recordset")
sql="update main set file='"&n1&"',system='"&n2&"',answer='"&n3&"',all='"&n4&"' where id="&id
rs.open sql,conn,1,4
rs.update
set rs=nothing
set conn=nothing
set n1=nothing
set n2=nothing
set n3=nothing
set n4=nothing
%>
jindex.asp里的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.Write"<script>alert('非法登陆！请返回！');window.location.href='index.asp';</script>"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
你好:<%=session("admin")%> 教务管理员
<table width="100%" border="0" cellspacing="1" bgcolor="#CCCCCC">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from main where flag=1 order by department desc"
rs.open sql,conn,1,1
%>
<tr bgcolor="#e3e3e3">
<td width="478" height="25"><div align="center"> 标题(已选课题)</div></td>
<td width="71" height="25"><div align="center">教师</div></td>
<td width="94"><div align="center">所在系</div></td>
<td width="83"><div align="center">手机</div></td>
<td width="74"><div align="center">办公室</div></td>
<td width="69"><div align="center">学生</div></td>
<td width="82"><div align="center">电子邮箱</div></td>
<td width="58"><div align="center">论文成绩</div></td>
<td width="52"><div align="center">设计成绩</div></td>
<td width="56"><div align="center">答辩成绩</div></td>
<td width="44"><div align="center">总成绩</div></td>
<td width="53"><div align="center">输入</div></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td><div align="center"><%=rs("title")%></div></td>
<td><div align="center"><%=rs("tname")%></div></td>
<td><div align="center"><%=rs("department")%></div></td>
<td><div align="center"><%=rs("tel")%></div></td>
<td><div align="center"><%=rs("office")%></div></td>
<td><div align="center"><%=rs("name")%></div></td>
<td><div align="center"><%=rs("email")%></div></td>
<td><div align="center"><input type=text name=file size="5"></div></td>
<td><div align="center"><input type=text name=system size="5"></div></td>
<td><div align="center"><input type=text name=answer size="5"></div></td>
<td><div align="center"><%=rs("all")%></div></td>
<td><div align="center"><a href="save.asp?id=<%=rs("id")%>&action="insert">确定</a></div></td>
</FORM>
</tr>
<%rs.movenext
loop%>
</table>
<table width="100%" border="0" cellspacing="1" bgcolor="#CCCCCC">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from main where flag=0 order by department desc"
rs.open sql,conn,1,1
%>
<tr bgcolor="#e3e3e3">
<td width="551" height="25"><div align="center"> 标题(未选课题)</div></td>
<td width="95" height="25"><div align="center">教师</div></td>
<td width="84"><div align="center">所在系</div></td>
<td width="145"><div align="center">手机</div></td>
<td width="118"><div align="center">办公室</div></td>
<td width="94"><div align="center">主修</div></td>
<td width="142"><div align="center">电子邮箱</div></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td><div align="center"><%=rs("title")%></div></td>
<td><div align="center"><%=rs("tname")%></div></td>
<td><div align="center"><%=rs("department")%></div></td>
<td><div align="center"><%=rs("tel")%></div></td>
<td><div align="center"><%=rs("office")%></div></td>
<td><div align="center"><%=rs("main")%></div></td>
<td><div align="center"><%=rs("email")%></div></td>
</tr>
<%rs.movenext
loop%>
</table>
<td height="20"><div align="center"><a href="logout.asp" target="_top">退出系统</a></div></td>
</body>
</html>
[[it] 本帖最后由 kindman4 于 2008-5-20 17:54 编辑 [/it]]
