delete.asp

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

	<%
	if session("user_type")<>"T" then
		response.redirect "../../../index.asp"
	end if
	%>
	<%response.buffer=true%>
	<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
	<%
		dim rs,sql,homework_id,user_type,lesson_id
		user_type=session("user_type")
		lesson_id=session("lesson_id")
		homework_id=request.querystring("homework_id")
		'先依次将上交的文件删除
		sql="select upload_file_name from homework_answer where  homework_id =" & homework_id 
		sql=sql & " and lesson_id='" & session("lesson_id") & "'"
		set rs=db.execute(sql)
		dim upload_file_name,sql2
		do while not rs.eof 
			if not isnull(rs("upload_file_name")) then
				upload_file_name=rs("upload_file_name")
				sql2="delete from upload_file where upload_file_name='" & upload_file_name & "'"
				db.execute(sql2)
				'删除该文件
				upload_file_name=trim(server.mappath("../../../../uploadfile/" & 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
			rs.movenext
		loop
		'再将自己的上传文件删除

		sql="select upload_file_name from homework where  homework_id =" & homework_id
		sql=sql & " 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=rs("upload_file_name")
			sql2="delete from upload_file where upload_file_name='" & upload_file_name & "'"
			db.execute(sql2)
			'删除该文件
			upload_file_name=trim(server.mappath("../../../../uploadfile/" & 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 homework where homework_id =" & homework_id
		sql=sql & " and lesson_id='" & session("lesson_id") & "'"
		db.Execute(sql)
		'删除学生交的作业
		sql="delete from homework_answer where homework_id =" & homework_id
		sql=sql & " and lesson_id='" & session("lesson_id") & "'"
		db.Execute(sql)
		rs.close
		set rs=nothing
		db.close
		set db=nothing
		response.redirect "index.asp"
	%>