adminknowledgesave.asp

一套在线考试系统

<!--#include file="conn.asp"-->
<%
Dim knowledge,subject
knowledge=trim(request.form("knowledge"))
subject=trim(request.form("subject"))
sql="select * from exam_knowledge where subject='"&subject&"' and knowledge='"&knowledge&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
    rs.addnew
    rs("knowledge")=knowledge
    rs("subject")=subject
    rs.update
    rs.close
    set rs=nothing
    set conn=nothing
    response.redirect "adminknowledge.asp?subject="&subject&"&msg=添加成功！"
else
    response.redirect "adminknowledge.asp?subject="&subject&"&msg=记录已经存在，添加失败！"
end if
%>