ASP提交表单求救。
writescore.asp<html>
<head>
<title>成绩添加</title>
</head>
<body>
<form method="post" action="writescore1.asp">
<p>学号:
<input type="text" name="Sno" size="20">
</p>
<p>课程号 :
<input type="text" name="Cno" size="20">
</p>
<p>分数:
<input type="text" name="Score" size="20" >
</p>
<p><input type="submit" value="确定添加" name="B1">
<input type="reset" value="全部重写" name="B2">
<input onClick="document.location.href='showscore.asp';" type="button" value="返回" name="B3"></a></p>
</form>
<p> </p>
</body>
</html>
writescore1.asp
<!-- #include file="conn.asp" -->
<%
Sno=request("Sno")
Cno=request("Cno")
Score=request("Score")
'if trim(Score)="" then
'response.write "成绩不能为空，请重新输入!"
'response.end
'end if
sqlstr="Insert Into score(学生ID,课程号,分数) values('"&Sno&"','"&Cno&"','"&Score&"')"
Response.write sqlstr
conn.execute(sqlstr)
response.redirect "showscore.asp"
%>
showscore.asp
<!-- #include file="conn.asp" -->
<%
Sno=request.Form("Sno")
Cno=request.Form("Cno")
GName=request.form("GName")
Name=request.Form("Name")
CName=request.Form("CName")
sqlstr="select student.学生ID ,姓名, grade.班级,score.课程号,课程名,分数,score.备注,学期 from student,grade,course,score where student.学生ID=score.学生ID and course.课程号=score.课程号 and grade.班级=student.班级"
if Sno<>"" then
sqlstr=sqlstr &" and student.学生ID='"&Sno&"'"
end if
if GName<>"" then
sqlstr=sqlstr &" and grade.班级 like '%"&GName&"%'"
end if
if Name<>"" then
sqlstr=sqlstr &" and 姓名 like '%"&Name&"%'"
end if
if CName<>"" then
sqlstr=sqlstr &" and 课程名 like '%"&CName&"%'"
end if
sqlstr=sqlstr & " Order by student.学生ID"
set rs=conn.execute(sqlstr)
%>
<HTML>
<head>
<title>成绩信息网页</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 24px}
-->
</style>
</head>
<body>
<center>
<p align="center"></center><b>成绩信息</b>
<table border="1">
<tbody>
<tr>
<td align=middle" width="10%" bgcolor="#D6D3CE">学生ID</td>
<td align=middle" width="10%" bgcolor="#D6D3CE">姓名</td>
<td align=middle" width="12%" bgcolor="#D6D3CE">班级</td>
<td align=middle" width="10%" bgcolor="#D6D3CE">课程名</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">分数</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">备注</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">学期</td>
<td align=middle" width="6%" bgcolor="#D6D3CE">修改</td>
<td align=middle" width="6%" bgcolor="#D6D3CE">删除</td>
</tr>
<% do while not rs.eof '开始循环，显示每条记录%>
<tr>
<td align="middle" bgcolor="#ffffff"width="12%">
<a href="query.asp?学生ID=<%=rs("学生ID")%>"title="查询学生个人信息"><%=rs("学生ID")%></a></td>
<td align="middle" bgColor="#ffffff"width="10%"><%=rs("姓名")%></td>
<td align="middle" bgColor="#ffffff"width="12%"><%=rs("班级")%></td>
<td align="middle" bgColor="#ffffff"width="10%"><%=rs("课程名")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("分数")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("备注")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("学期")%></td>
<td align="middle" bgColor="#ffffff"width="6%">
<a href="updatescore.asp?学生ID=<%=rs("学生ID")%>&课程号=<%=rs("课程号")%>">修改</a>
</td>
<td align="middle" bgColor="#ffffff"width="6%">
<a href="deletescore.asp?学生ID=<%=rs("学生ID")%>&课程号=<%=rs("课程号")%>">删除</a>
</td>
</tr>
<%
rs.movenext
loop
'循环结束
%>
<%
rs.close
Set rs=Nothing
%>
</tbody>
</table>
<div>
<center><input name="bt1" onClick="document.location.href='writescore.asp';"style="cursor: hand;"type="button"value="添加成绩">
<input name="bt2" onClick="document.location.href='showscore.asp';"style="cursor: hand;"type="button"value="显示所有成绩"></center>
</div>
<!--以下是查询表单-->
<form method = "POST" action="showscore.asp">
<p>按[学 号 ]个人查询:
<input type="text" name="Sno"size="20">
<p>按[班 级 ]模糊查询:
<input type="text" name="GName"size="20">
<p>按[姓 名 ]模糊查询:
<input type="text" name="Name"size="20">
<p>按[课程名]模糊查询:
<input type="text" name="CName"size="20">
<p align="left">
<input type="submit" value="查询"name="B1">
<input type="reset" value="清除"name="B2">
<p align="center" class="STYLE1"><a href="admin.asp">返回</a>
</form>
</BODY>
</HTML> <!-- #include file="conn.asp" -->
<%
Sno=request.Form("Sno")
Cno=request.Form("Cno")
GName=request.form("GName")
Name=request.Form("Name")
CName=request.Form("CName")
sqlstr="select student.学生ID ,姓名, grade.班级,score.课程号,课程名,分数,score.备注,学期 from student,grade,course,score where student.学生ID=score.学生ID and course.课程号=score.课程号 and grade.班级=student.班级"
if Sno<>"" then
sqlstr=sqlstr &" and student.学生ID='"&Sno&"'"
end if
if GName<>"" then
sqlstr=sqlstr &" and grade.班级 like '%"&GName&"%'"
end if
if Name<>"" then
sqlstr=sqlstr &" and 姓名 like '%"&Name&"%'"
end if
if CName<>"" then
sqlstr=sqlstr &" and 课程名 like '%"&CName&"%'"
end if
sqlstr=sqlstr & " Order by student.学生ID"
set rs=conn.execute(sqlstr)
%>
<HTML>
<head>
<title>成绩信息网页</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 24px}
-->
</style>
</head>
<body>
<center>
<p align="center"></center><b>成绩信息</b>
<table border="1">
<tbody>
<tr>
<td align=middle" width="10%" bgcolor="#D6D3CE">学生ID</td>
<td align=middle" width="10%" bgcolor="#D6D3CE">姓名</td>
<td align=middle" width="12%" bgcolor="#D6D3CE">班级</td>
<td align=middle" width="10%" bgcolor="#D6D3CE">课程名</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">分数</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">备注</td>
<td align=middle" width="8%" bgcolor="#D6D3CE">学期</td>
<td align=middle" width="6%" bgcolor="#D6D3CE">修改</td>
<td align=middle" width="6%" bgcolor="#D6D3CE">删除</td>
</tr>
<% do while not rs.eof '开始循环，显示每条记录%>
<tr>
<td align="middle" bgcolor="#ffffff"width="12%">
<a href="query.asp?学生ID=<%=rs("学生ID")%>"title="查询学生个人信息"><%=rs("学生ID")%></a></td>
<td align="middle" bgColor="#ffffff"width="10%"><%=rs("姓名")%></td>
<td align="middle" bgColor="#ffffff"width="12%"><%=rs("班级")%></td>
<td align="middle" bgColor="#ffffff"width="10%"><%=rs("课程名")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("分数")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("备注")%></td>
<td align="middle" bgColor="#ffffff"width="8%"><%=rs("学期")%></td>
<td align="middle" bgColor="#ffffff"width="6%">
<a href="updatescore.asp?学生ID=<%=rs("学生ID")%>&课程号=<%=rs("课程号")%>">修改</a>
</td>
<td align="middle" bgColor="#ffffff"width="6%">
<a href="deletescore.asp?学生ID=<%=rs("学生ID")%>&课程号=<%=rs("课程号")%>">删除</a>
</td>
</tr>
<%
rs.movenext
loop
'循环结束
%>
<%
rs.close
Set rs=Nothing
%>
</tbody>
</table>
<div>
<center><input name="bt1" onClick="document.location.href='writescore.asp';"style="cursor: hand;"type="button"value="添加成绩">
<input name="bt2" onClick="document.location.href='showscore.asp';"style="cursor: hand;"type="button"value="显示所有成绩"></center>
</div>
<!--以下是查询表单-->
<form method = "POST" action="showscore.asp">
<p>按[学 号 ]个人查询:
<input type="text" name="Sno"size="20">
<p>按[班 级 ]模糊查询:
<input type="text" name="GName"size="20">
<p>按[姓 名 ]模糊查询:
<input type="text" name="Name"size="20">
<p>按[课程名]模糊查询:
<input type="text" name="CName"size="20">
<p align="left">
<input type="submit" value="查询"name="B1">
<input type="reset" value="清除"name="B2">
<p align="center" class="STYLE1"><a href="admin.asp">返回</a>
</form>
</BODY>
</HTML>
我提交好以后 就不写到数据库中 不知道哪写错了 --------------------编程问答-------------------- writescore1.asp
中request("Sno") 取值 --------------------编程问答-------------------- 最好直接打开数据库,查看
是没有写入数据库.还是已存入,但显示结果页面没有正确读出来.
补充：.NET技术 , ASP.NET
