bigclasskillok.asp

来自「一个不错的代码 一个不错的代码 一个不错的代码」· ASP 代码 · 共 28 行

<!--#include file="Conn.ASP"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "login.asp"
response.end
END IF

ID = Request("ID")
BigClassName=request("BigClassName")

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

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

conn.close
set conn=nothing

end if
Response.Redirect "BigClass.asp"

%>