delselect.asp

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

<!--#include file="..\inc\conn.asp"-->
<!--#include file="..\inc\SessionCheck.asp"-->
<%
Call DBConnBegin()
dim id,stuid,course
id=trim(request("id"))
sSql="select * from stuinfo where [ID]='"&CStr(id)&"'"
oRs.open sSql,oConn,3,2
stuid=oRs("StuID")
oRs.close
course=Request.Form("course")
if course<>"" then  
  '删除选课信息
  sSql="delete from CourseSelectedInfo where StuID='"&stuid&"' and CID='"&course&"'"
  oRs.open sSql,oConn,1,1
end if
Call DBConnEnd()
Response.redirect "todeselect.asp?id="&CStr(id)
%>