grade.asp

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

<%
if session("user_type")<>"T" then
	response.redirect "../../../index.asp"
end if
%>
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
	dim homework_id,user_id,pingyu,grade,lesson_id
	homework_id=request.querystring("homework_id")
	user_id=request.querystring("user_id")
	lesson_id=session("lesson_id")
	if trim(request.form("pingyu")) <>"" then
		pingyu=request.form("pingyu")
	end if
	if trim(request.form("grade")) <>"" then
		grade=request.form("grade")
	end if

	Dim SQL
	sql="select user_id from homework_answer where user_id='" & user_id & "'"
	sql=sql + " and homework_id=" & homework_id
	sql=sql & " and lesson_id='" & session("lesson_id") & "'"
	db.execute(sql)
	set rs=db.execute(sql)

	SQL2 = "update homework_answer set pingyu='" & pingyu & "'"
	sql2=sql2 + ",grade=" & grade 
	sql2=sql2 + ",look_flag=1 where user_id='" & user_id & "'"
	sql2=sql2 + " and homework_id=" & homework_id
	db.execute(sql2)
	
	rs.close
	set rs=nothing
	db.close
	set db=nothing
	response.redirect "look.asp?homework_id="& homework_id
%>