exam_queadd.asp

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

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->


<%
 	ename=trim(request.querystring("ename"))
	eid=trim(request.querystring("eid"))
	
	'拆分复选框对应题号id值放到数组a中
	a=split(trim(request.form("qidadd")),",")
	cont=ubound(a)		'取题目数
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from ex_que"
	rs.open sql,conn,1,3
	'题目与试卷,试卷编号的对应关系放入表EX_QUE中
	for i=0 to cont
		qidadd=trim(a(i))
		rs.addnew
		rs("qid")=qidadd
		rs("ename")=ename
		rs("eid")=eid		
		rs.update
	next
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
  
%>
<script>
window.alert("成功添加题目!")
location.href='exam_edit.asp?ename=<%=trim(request.querystring("ename"))%>&eid=<%=trim(request.querystring("eid"))%>';
</script>