exam_save.asp

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

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<%
'取当前用户名
 id=request.cookies("username")
 set rs=server.createobject("adodb.recordset")
 sql="select * from student where id='"&trim(id)&"'"
 rs.open sql,conn,1,1
 sname=trim(rs("name"))
 rs.close
 set rs=nothing
 
 nowdate=date()			'当前日期

'判断该试卷是否已经存在
set rs=server.createobject("adodb.recordset")
sql="select * from exam where ename='"&trim(request.form("ename"))&"' and eid='"&trim(request.form("eid"))&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<script language=javascript>
window.alert("已经增加该试卷")
location.href='exam_add.asp';
</script>
<%
end if
rs.close
set rs=nothing

'增加该试卷
set rs=server.createobject("adodb.recordset")
sql="select * from exam"
rs.open sql,conn,1,3
rs.addnew
rs("ename")=trim(request.form("ename"))
rs("eid")=trim(request.form("eid"))
rs("pname")=trim(request.form("pro"))
rs("text")=trim(request.form("text"))
rs("addtime")=trim(nowdate)
rs("adduser")=trim(sname)
rs("fabu")=2

rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

%>
<script language=javascript>
window.alert("成功增加试卷")
location.href='exam_add.asp';
</script>