delete.asp

与asp相关的技术 如数据库和网页设计 很有用的哦

	<% response.buffer=true%>
	<%
	if session("user_type")<>"S" then
		response.redirect "../../../index.asp"
	end if
	%>
	<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
	<%
		dim sql,guest_id,user_type,back_flag
		user_type=session("user_type")
		guest_id=request.querystring("thename")
		back_flag=request.querystring("thename2")
		sql="delete from guest where guest_id =" & guest_id 
		sql=sql & " and (reader_id='" & session("user_id") & "'"
		sql=sql & " or writer_id='" & session("user_id") & "')"
		DB.Execute(sql)
		
		db.close
		set db=nothing
		if back_flag="r" then
			response.redirect "index.asp"
		elseif back_flag="s" then
			response.redirect "send.asp"
		end if
	%>