update_wled.asp

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

<%
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 = "update homework_answer set body='" & request("body") & "',submit_date='" & date & "'"
		sql=sql & " where homework_id=" & homework_id 
		slq=sql & " and user_id='" & user_id & "'"
		response.write sql
		db.Execute(Sql)
	end if
	db.close
	set db=nothing

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