smallclasskillok.asp

综合信息管理系统

<!--#include file="Conn.ASP"-->
<%
IF not(Session("KEY")="super" or Session("KEY")="input" or Session("KEY")="check") THEN
response.write "<script>alert('您无权删除此项目！');history.go(-1);</Script>"
response.end
END IF	

ID = Request("ID")
SmallClassName=request("SmallClassName")

button_value=trim(Request.Form("alert_button"))
if button_value="是" then

delesql="DELETE * FROM [SmallClass] WHERE SmallClassName='" & SmallClassName & "'"
conn.Execute delesql
delesql="DELETE * FROM [news] WHERE SmallClassName='" & SmallClassName & "'"
conn.Execute delesql

conn.close
set conn=nothing

end if
Response.Redirect "SmallClass.asp"

%>