ASP学生管理系统^论文论文(七)

ASP学生管理系统^论文论文(七) ;!-- #include file = "data.asp" -->

<%
dim id
dim strSQL

id = Request.QueryString("id")

strSQL = "DELETE FROM st_info WHERE ID =" & id & ""
'Response.Write strSQL
'Response.End
conn.execute (strSQL)
%>
<script language = java script>

</script>
修改学生信息的功能是通过文件updataxx.asp和updataxx1.asp来实现的.它的原理是通过连接数据库，找到该记录，然后通过更新记录中的数据就可以完成信息个修改功能。代码如下：
把修改后的数据保存到数据库updataxx1.asp

<%
dim strSQL, cmdObj, rsObj

Set cmdObj = Server.CreateObject("ADODB.Command")
       Set rsObj = Server.CreateObject("ADODB.RecordSet")
       cmdObj.CommandText = "SELECT top 1 * FROM st_info ORDER by ID desc"
       cmdObj.CommandType = 1
       Set cmdObj.ActiveConnection = conn
       rsObj.Open cmdObj, , 2,3
       rsObj("user_number") = Request.Form("user_number")
    rsObj("user_name") = Request.Form("user_name")
       rsObj("user_zkzh") = Request.Form("user_zkzh")
       rsObj("user_sfzh") = Request.Form("user_sfzh")
       rsObj("user_sex") = Request.Form("user_sex")
    rsObj("user_time") = Request.Form("user_time")
       rsObj("user_address") = Request.Form("user_address")
       rsObj("user_tel") = Request.Form("user_tel")
       rsObj("user_major") = Request.Form("user_major")
       rsObj("user_class") = Request.Form("user_class")
    rsObj("user_gkcj") = Request.Form("user_gkcj")
       rsObj.Update
       rsObj.Close
       set rsObj = nothing
    set cmdObj = nothing
'       CloseConn()
%>
<script language = java script>

</script>
到这里，学生的信息管理模块的基本功能已经实现了。
成绩管理
成绩管理是本系统中最复杂的一个，也是最具有代表性的，他主要实现以下几个功能
成绩列表：由文件cjgl.asp.updatacj.asp和delcj.asp完成
添加成绩：它指向学生信息列表，因为每个学生对应一份成绩单
单科成绩排名：由dkcjcx.asp和dkcjcx.asp
总成绩排名：由zcjcx.asp和zcjpm.asp
⑴成绩列表
成绩列表中，管理员可以对成绩列表进行修改和删除操作，页尾的代码部分主要是为了实现记录的分页功能。其实现代码如下：
成绩列表实现代码 cjgl.asp

<%
set rsobj=server.createobject("adodb.recordset")
sql="select * from cj order by id desc"
rsobj.open sql,conn,1,1
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/12/12

ASP学生管理系统^论文论文(七)由免费论文网（www.jaoyuw.com）会员上传。