delcourse.asp

来自「一个学生信息管理网站」· ASP 代码 · 共 14 行

<!--#include file="..\inc\conn.asp"-->
<!--#include file="..\inc\SessionCheck.asp"-->
<%
Call DBConnBegin()
dim cid
cid=trim(request("cid"))
if cid<>"" then  
  '删除选课信息
  sSql="delete from CourseInfo where CID='"&cid&"'"
  oRs.open sSql,oConn,1,1
end if
Call DBConnEnd()
Response.redirect "coursemanage.asp"
%>