save.asp

一个基于ASP和SQL数据库的学生信息管理系统,可以方便的实现学生信息的添加修改和删除,成绩信息的管理和学生的在线选课.

<!--#include file="..\inc\conn.asp"-->
<!--#include file="..\inc\SessionCheck.asp"-->
<%
  dim stuid,stuname,stusex,stubirth,stuclass
  if request("op")="insert" then
    stuid=Request.Form("user_number")
  end if
  if request("op")="modify" then
    stuid=Request("id")
  end if
  stuname=Request.Form("user_name")
  stusex=Request.Form("user_sex")
  stubirth=Request.Form("user_time")
  stuclass=Request.Form("user_class")
  Call DBConnBegin()
  if request("op")="insert" then
    sSql="insert into StuInfo Values('"&stuid&"','"&stuname&"','"&stusex&"','"&stubirth&"','"&stuclass&"')"
  end if
  if request("op")="modify" then
    sSql="update StuInfo set stuname='"&stuname&"',StuSex='"&stusex&"',StuBirth='"&stubirth&"',class='"&stuclass&"' where StuID='"&stuid&"'"
  end if
  oRs.open sSql,oConn,3,3
  Call DBConnEnd()
  if request("op")="insert" then
    Response.redirect "add.asp"
  end if
  if request("op")="modify" then
    Response.redirect "list.asp"
  end if
%>