delexamine.asp

来自「一个基于ASP和SQL数据库的学生信息管理系统,可以方便的实现学生信息的添加修改」· ASP 代码 · 共 18 行

<!--#include file="..\inc\conn.asp"-->
<!--#include file="..\inc\SessionCheck.asp"-->
<%
Call DBConnBegin()
dim id,stuid
id=trim(request("id"))
sSql="select * from stuinfo where [ID]='"&CStr(id)&"'"
oRs.open sSql,oConn,3,2
if not(oRs.Eof and oRs.Bof) then
  stuid=trim(oRs("StuID"))
  oRs.close  
  '删除考核信息
  sSql="delete from ExamineInfo where StuID='"&stuid&"'"
  oRs.open sSql,oConn,1,1
end if
Call DBConnEnd()
Response.redirect "ExamineSearch.asp"
%>