gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\deleteArrange.asp

    <!--#include file="../include/ADOVBS.asp"-->
<!--#include file="../include/keepHouse.asp"-->
<%
call insureID()
if session("USER_TYPE")<>"Admin" then
 	showmsg("您不是管理员,不能进行此项操作。")
end if
dim ARRANGE_ID
ARRANGE_ID=request("ARRANGE_ID")
if ARRANGE_ID="" then
	call trigErr()
end if
'showmsg(ARRANGE_ID)
ARRANGE_ID=cint(ARRANGE_ID)
set Comd=server.createobject("ADODB.Command")
call openDB()
set Comd.ActiveConnection=conn
Comd.CommandType=adCMdStoredProc
Comd.CommandText="DeleteArrange"
set Para1=Comd.CreateParameter("ARRANGE_ID",adInteger,adParamInput,4)
Comd.Parameters.Append Para1
Comd("ARRANGE_ID") = ARRANGE_ID

Comd.Execute
call closeDB()
response.redirect"ArrangedCourse.asp"
%>