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