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" %>