renyuansave.asp

基于asp的遗传算法组卷系统

<!--#include file="conn.inc"-->
<title>添加保存</title>
<%
department=request("department")
kind=request("kind")
sql="select * from cadre_info"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("username")=request("username")
rs("userid")=request("id")
rs("department")=department
rs("duties")=request("duties")
rs("pwd")=request("pwd")
if kind=A then 
rs("ifadmin")=true
else 
rs("ifadmin")=false
end if
rs.update
topage="renyuanadd.asp?department=" & department & "&str=添加成功！请继续添加考生！"
  response.redirect topage
%>