基于ASP学生信息管理网站的建设

1. 修改名称：学生课程修改

模块标识：subjectupdata.asp

模块功能：通过表单将添加的学生信息加入到学生信息数据库（xsgl.mdb）表中（kcxx）表的用户名不能为空；添加成功后回到学生信息页(subject.asp).

编程语言：VBScript

2 模块接口：

调用模块名：subjectupdata.asp

被调用的模块名：subjectupdata.asp  subject.asp

输入的文件：subjectupdata.asp

输出的文件subject.asp   xsgl.mdb(kcxx)

使用的文件或数据库标识：

使用主要内存变量的名称与类型：bh,xq,kc1,kc2,kc3,kc4

3 处理概要：

通过subjectupdata.asp中的表单数据的修改，若其中的ＩＤ，班号、课程1、课程2、课程3、课程4都不为空，建立记录集对象，指定相关属性，打开记录集，通过记录集对象的修改记录到数据库表中，然后返回subject.asp。

4.主要代码是：<%

dim sid

sid=request.querystring("id")

session("id")=sid

dim db

Set db=Server.CreateObject("ADODB.connection")

db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("xsgl.mdb")

dim strsql,rs

strsql="select * from kcxx where id like ''" &sid &"''"

set rs=db.execute(strsql)

%>

<th width="617" scope="col"><form name="form1" method="post" action="ssubjectupdata.asp">

          <p>&nbsp;</p>

          <p>&nbsp;</p>

          <table width="364" height="291" border="1" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">

            <tr>

              <th colspan="2" scope="col"><span class="style1">请添加课程</span></th>

            </tr>

            <tr>

              <td><div align="right" class="style1">班级：</div></td>

              <td align="left">

                <input name="bh" type="text" id="bh" value="<%=rs("bh")%>">

              </td>

            </tr>

            <tr>

              <td><div align="right" class="style1">学期：</div></td>

              <td align="left">

                <input name="xq" type="text" id="xq"  value="<%=rs("xq")%>">

              </td>

            </tr>

            <tr>

              <td><div align="right" class="style1">课程1：</div></td>

              <td align="left">

                <input name="kc1" type="text" id="kc1"  value="<%=rs("kc1")%>">

              </td>

            </tr>

            <tr>

              <td><div align="right" class="style1">课程2：</div></td>

              <td align="left">

                <input name="kc2" type="text" id="kc2" value="<%=rs("kc2")%>">

              </td>

            </tr>

            <tr>

              <td><div align="right" class="style1">课程3：</div></td>

              <td align="left">

                <input name="kc3" type="text" id="kc3" value="<%=rs("kc3")%>">

              </td>

            </tr>

            <tr>

              <td><div align="right" class="style1">课程4：</div></td>

              <td align="left">

                <input name="kc4" type="text" id="kc4" value="<%=rs("kc4")%>">

              </td>

            </tr>

            <tr>

              <td colspan="2"><div align="center" class="style1">

                  <input type="submit" name="Submit" value="提交">

                  <a href="subject.asp">返回</a></div></td>

            </tr>

          </table>

      </form></th>

ssubjectupdata.asp的代码：

<% option explicit %>

<% option explicit %>

<%

dim sid

sid=session("id")

dim db

Set db=Server.CreateObject("ADODB.connection")

db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("xsgl.mdb")

dim strsql,sbh,sxq,skc1,skc2,skc3,skc4

sbh=trim(request.form("bh"))

sxq=trim(request.form("xq"))

skc1=trim(request.form("kc1"))

skc2=trim(request.form("kc2"))

skc3=trim(request.form("kc3"))

skc4=trim(request.form("kc4"))

strsql="update kcxx set kc1=''" &skc1& "'' where id like ''" &sid& "'' "

db.execute(strsql)

response.Redirect"subject.asp"

%>

4．1．9学生课程删除

1.删除名称：学生课程删除

模块标识：subjectdel.asp

模块功能：通过程序删除学生课程直到学生课程数据库（xsgl.mdb）中（kcxx）表的；删除成功后回到学生信息页(subject.asp).

编程语言：VBScript

2 模块接口：

调用模块名：subjectdel.asp

被调用的模块名：subjectdel.asp  subject.asp

输入的文件：subjectdel.asp

输出的文件subject.asp   xsgl.mdb(kcxx)

使用的文件或数据库标识：

使用主要内存变量的名称与类型：bh,xq,kc1,kc2,kc3,kc4

3 处理概要：

通过subjectdel.asp删除数据库（xsgl.mdb）中（kcxx）表的记录，只要其中的ＩＤ删除，建立记录集对象，指定相关属性，打开记录集，通过记录集对象的删除记录到数据库表中，然后返回subject.asp。

4.主要代码是：

<% option explicit %>

<%

response.Buffer=true

dim db

set db=server.createobject("ADODB.Connection")

db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("xsgl.mdb")

dim sid,strsql

sid=request.querystring("id")

strsql="delete from kcxx where id like ''" &sid&"''"

db.execute(strsql)

response.Redirect"subject.asp"

%>

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167