delete.asp

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

<%
If Session("user_type")<>"T" Then
	Response.Redirect "../../../../index.asp"
End If
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
	response.buffer=true
	dim user_id,SQL
	user_id=request("user_id")
	'删除个人信息
	sql="delete from student where user_id ='" & user_id & "'"
	db.execute(sql)
	'删除学生选课信息
	sql="delete from user_lesson where user_id ='" & user_id & "'"
	db.execute(sql)

	db.close
	set db=nothing
	response.redirect "index.asp?lesson_id=" & request("lesson_id")
%>