parameter_difficulty_save.asp

来自「一套在线考试系统」· ASP 代码 · 共 45 行

<!--#include file="conn.asp"-->
<%
dim difficulty,ap,bp,cp,dp,ep,action,id
difficulty=request.form("difficulty")
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_difficulty"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("difficulty")=difficulty
  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_difficulty.asp"
end if
if action="edit" then
  sql="select * from parameter_difficulty where id="&cint(id)
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("difficulty")=difficulty
  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_difficulty.asp"
end if
%>