adminknowlegesave.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 48 行

<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
.STYLE2 {
	font-family: "宋体";
	color: #000000;
}
.STYLE3 {color: #000000}
-->
</style>

<!--#include file="conn.inc"-->
<%


subject_knowledge=trim(request("subject_knowledge"))
sql="select * from knowledge_info where KnowName = '"&subject_knowledge&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if(rs.eof) then

isAdd = 1

else
isAdd = 0
end if
rs.close
set rs= nothing

if isAdd = 1 then
sql="select * from knowledge_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
'增加新的科目
rs("KnowName")=subject_knowledge
rs.update
response.redirect "adminknowlege.asp"
else
%>
 <td colspan="2">
<font color="#FF0000">error:添加知识点重复</font>
<a href="adminknowlege.asp">返回</a>
<font color="#FF0000">重新添加</font>
</td>
<%end if%>