delete.asp

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

<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%	if session("user_type")<>"S" then
		response.redirect "../../../index.asp"
	end if
%>
	<%
		dim sql,guest_id,user_type,back_flag
		user_type=session("user_type")
		id=request("thename")   '显示记录ID号
		'subject_id=request("thename2")
		'subject_name=request("thename3")
		
		'先将有关上传文件删除
		sql="select upload_file_name from reference where  id =" & id & " and lesson_id='" & session("lesson_id") & "'"
		set rs=db.execute(sql)
		if not isnull(rs("upload_file_name")) and rs("upload_file_name")<>"" then
			upload_file_name=trim(server.mappath("../../../../uploadfile/" & session("lesson_id") & "/" & rs("upload_file_name")))
			
			set myfileobject=server.createobject("scripting.filesystemobject")
			if myfileobject.FileExists(upload_file_name) then
				myfileobject.deletefile upload_file_name
			END IF
			set myfileobject=nothing
		end if
		
		'再讲有关记录删除
		sql="delete from reference where id =" & id & " and lesson_id='" & session("lesson_id") & "'"
		DB.Execute sql,number
		if number>0 then
		'删除评论
		sql="delete from reference_discuss where reference_id=" & id & " and lesson_id='" & session("lesson_id") & "'"
		db.execute(sql)
		end if
		
		db.close
		set db=nothing
		response.redirect "list.asp"
	%>