?? exam_save.asp
字號:
<!-- #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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -