📄 pigai.asp

📁 与asp相关的技术　如数据库和网页设计很有用的哦
💻 ASP
字号:
<%
if session("user_type")<>"T" then
	response.redirect "../../../index.asp"
end if
%>
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
	<TITLE> 批改作业 </TITLE>
	<link rel="stylesheet" href="../../../system/all.css">
</HEAD>

<BODY>
	<h4 align="center">批改作业</h4>
	<%
	dim user_id,homework_id
	homework_id = request.querystring("homework_id")
	user_id= request.querystring("user_id")
	lesson_id=session("lesson_id")

	%>
	<CENTER>
	<%			
	dim sql,rs
	sql="select submit_homework_type,lesson_id from homework where homework_id = " & homework_id
	sql=sql & " and lesson_id='" & session("lesson_id") & "'"
	set rs=db.execute(sql)
	Dim lesson_id,submit_homework_type
	lesson_id=rs("lesson_id")
	submit_homework_type=rs("submit_homework_type")
	%>

		<%
		'在线做
		if submit_homework_type="W" then
		%>
		<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td width=20%>学生作业</td>
				<td>
					<%
					sql="select body from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					%>
					<p><textarea  name="body" rows=10 cols=50><%=rs("body")%></textarea>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>

		<%
		'递交超链接网址
		if submit_homework_type="L" then
		%>
		<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td width=20%>作业超链</td>
				<td>
					<%
					sql="select body from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					body=rs("body")
					%>
					<p><a href="<%=body%>" target="_new"><%=body%></a>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>
		
		<%
		'用email交
		if submit_homework_type="E" then
		%>
		<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td width=20%></td>
				<td>
				学生作业已经用email发到信箱里了
				</td>
			</tr>
			<tr>
				<td >给教师留短信</td>
				<td>
					<%
					sql="select body from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					%>
					<textarea  name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>
		<%
		'其他方式交
		if submit_homework_type="Z" then
		%>
		<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td width=20%></td>
				<td>
				<p>&nbsp<p>学生作业已经交给你<p>&nbsp
				</td>
			</tr>
			<tr>
				<td >给教师留短信</td>
				<td>
					<%
					sql="select body from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					%>
					<textarea  name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>

		<%
		'当面交
		if submit_homework_type="D" then
		%>
		<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td width=20%></td>
				<td>
				<p>&nbsp<p>学生作业已经当面交给老师<p>&nbsp
				</td>
			</tr>
			<tr>
				<td >给教师留短信</td>
				<td>
					<%
					sql="select body from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					%>
					<textarea  name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>
		<%
		'交文件
		if submit_homework_type="F" then
		%>
		<form name="frmUpload" Method="Post" Enctype="multipart/form-data" Action="submit_F.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
		<table border='0' width='80%' >
			<tr>
				<td>作业文件</td>
				<td>
					<%
					sql="select body,upload_file_name from homework_answer where homework_id=" & homework_id
					sql=sql & " and user_id='" & user_id & "'"
					set rs=db.execute(sql)
					%>
					<P><a href="../../../../uploadfile/<%=lesson_id%>/<%= rs("upload_file_name")%>" target="_new"><b>请看学生的文件</b></a>
				</td>
			</tr>
			<tr>
				<td width=20%>给老师留短信</td>
				<td>
					<textarea  name="fieldname" rows=5 cols=50 ><%=rs("body")%></textarea>
				</td>
			</tr>
		</table>
		</form>
		<%end if%>
	
	<%
	rs.close
	'下面才是真正的批改作业
	sql="select pingyu,grade,look_flag from homework_answer where homework_id =" & homework_id
	sql=sql & " and user_id ='" & user_id & "'"
	sql=sql & " and lesson_id='" & session("lesson_id") & "'"
	set rs=db.execute(sql)
	%>
		<form name="form1" method="post" action="grade.asp?homework_id=<%=homework_id%>&user_id=<%= user_id%>&lesson_id=<%=lesson_id%>">
		<table border="0"  width=80%>
			<% if not rs.eof and not rs.bof then%>
				<tr>
					<td width=20%>教师评语</td>
					<td>
						<textarea name="pingyu" rows=3 cols=50 >阅：<%=rs("pingyu")%></textarea>**</td>
					</td>
				</tr>
				<tr>
					<td>作业分数</td>
					<td>
						<input name="grade"  value="<%=rs("grade")%>">**
					</td>
				</tr>
			<%else%>
				<tr>
					<td width=20%>作业评语</td>
					<td>
						<textarea name="pingyu" rows=3 cols=60 >阅</textarea>(默认为阅)</td>
					</td>
				</tr>
				<tr>
					<td>作业分数2</td>
					<td>
						<input name="grade"> 
					</td>
				</tr>
			<%end if%>
		</table>
				<p><input type="submit" name="submit" value="  提  交  " >&nbsp&nbsp<a href="look.asp?homework_id=<%=homework_id%>"><font style="background-color: #C7C7C7;border: 1px solid rgb(21,151,162)">&nbsp&nbsp&nbsp取     消&nbsp&nbsp&nbsp</font></a>
	<form>
	<%
	RS.close
	set rs=nothing
	%>
	</center>
</BODY>
</HTML>
💿 文件大小 630 K
👤 上传用户 xueyulanlian
📂 所属分类其他
🏷️ 相关标签

#asp #数据库 #网页设计
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -