submit_wled.asp

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

<%
if session("user_type")<>"S" then
	response.redirect "../../index.asp"
end if
%>
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
	dim user_id,homework_id,lesson_id
	homework_id=request("homework_id")
	lesson_id=session("lesson_id")
	user_id=Session("user_id")
	if trim(Request("body"))<>"" then
		sql = "Insert into homework_answer(body,homework_id,user_id,submit_date,look_flag,submit_flag) "
		sql=sql& " values('" & Request("body") & "','" & homework_id & "','" & user_id & "'"
		sql=sql& ",'" & date & "',0,1)"
		response.write sql
		db.Execute(Sql)
	end if
	db.close
	set db=nothing

	response.redirect "index.asp?lesson_id=request('lesson_id')"
%>