exam_fb.asp

来自「本人的课程设计。不足之处请大家指教。因为第一次用ASP有很多不足的地方。」· ASP 代码 · 共 58 行

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<%
'取试卷编号,试卷名,及发布值
eid=trim(request("eid"))
ename=trim(request("ename"))
fabu=trim(request("fabu"))

set rs=server.createobject("adodb.recordset")
  sql="select * from exam where ename='"&ename&"' and eid='"&eid&"'"
  rs.open sql,conn,1,3
if not rs.eof then	
'取得该试卷
	if trim(fabu)=2 then
		rs("fabu")=2	'设为不发布
	else	
		'取试卷对应的题目
		set rs1=server.createobject("adodb.recordset")
		sql1="select * from ex_que where ename='"&ename&"' and eid='"&eid&"'"
		rs1.open sql1,conn,1,1
		if rs1.eof then	  '没有题目,不能发布
			rs1.close
			set rs1=nothing
			%>
			<script>
			window.alert("该试卷还未加入试题，请加入试题后在发布！")
			history.go(-1)
			</script>
			<%
		else			'有题目,试卷值设为发布
			rs1.close
			set rs1=nothing
			rs("fabu")=1
		end if
	end if
	
	rs.update			'提交更新试卷记录
	rs.close
    set rs=nothing
%>
<script>
window.alert("成功进行操作")
location.href='exam_add.asp';
</script>
<%
else
%>
<script>
window.alert("操作失败")
location.href='exam_add.asp';
</script>
<%
end if

conn.close
set conn=nothing
%>