parameter_distinction_save.asp

一套在线考试系统

<!--#include file="conn.asp"-->
<%
dim distinction,ap,bp,cp,dp,ep,action,id
distinction=request.form("distinction")
ap=request.form("ap")
bp=request.form("bp")
cp=request.form("cp")
dp=request.form("dp")
ep=request.form("ep")
action=request.form("action")
id=request.form("id")
if action="addnew" then
  sql="select * from parameter_distinction"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("distinction")=distinction
  rs("ap")=ap
  rs("bp")=bp
  rs("cp")=cp
  rs("dp")=dp
  rs("ep")=ep
  rs.update
  rs.close
  set rs=nothing
  set conn=nothing
  response.redirect "parameter_distinction.asp"
end if
if action="edit" then
  sql="select * from parameter_distinction where id="&cint(id)
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("distinction")=distinction
  rs("ap")=ap
  rs("bp")=bp
  rs("cp")=cp
  rs("dp")=dp
  rs("ep")=ep
  rs.update
  rs.close
  set rs=nothing
  set conn=nothing
  response.redirect "parameter_distinction.asp"
end if
%>