saveinput.asp

来自「这是一个登录界面的主要界面也就是通常的网页的登录界面」· ASP 代码 · 共 35 行

<%
'驱动数据库

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../database/student.mdb")
%>
<%
  sql="select  * from score "
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,3
  rs.addnew
  if request.Form("name")="" or  request.Form("studentid")="" or request.Form("mat")="" or request.Form("eng")="" or request.Form("com")="" then
  response.Write "<script LANGUAGE='javascript'>alert('每一个选项都不能为空，请您重新输入！');history.go(-1);</script>"
  response.End()
  end if
  rs("name")=request.Form("name")
  rs("studentid")=request.Form("studentid")
  rs("mat")=request.Form("mat")
  rs("eng")=request.Form("eng")
  rs("com")=request.Form("com")
  a=rs("mat")
  b=rs("eng")
  c=rs("com")
  d=a+b+c
  rs("ave")=d/3
  if rs("rongliang")>80 then
  response.Write "<script LANGUAGE='javascript'>alert('数据库已满！');window.location.href='main.asp';</script>"
  response.End()
  end if
  rs("rongliang")=rs("rongliang")+1
  rs.update
  response.Write "<script LANGUAGE='javascript'>alert('数据添加成功！');window.location.href='input.asp';</script>"
  rs.close
  set rs=nothing
%>