delete.asp

来自「与asp相关的技术 如数据库和网页设计 很有用的哦」· ASP 代码 · 共 22 行

<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%	if session("user_type")<>"T" then
		response.redirect "../../../index.asp"
	end if
%>	
<%
	dim sql,rs,id,lesson_id,week_no
	id=request.querystring("id")
	lesson_id=session("lesson_id")
	'从数据库里删除记录
	'删除course表里的
	sql="delete from course where id =" & id
	DB.Execute(sql)
	db.close
	set db=nothing
	'刷新左侧框架
	response.write "<script language='Jscript'> top.frames['bottom'].frames['left'].location.reload(); </script>"
	'重定向回首页
	response.write "<script language='Jscript'> top.frames['bottom'].frames['main'].location.replace('index.asp');</script>"
%>