saveaddbj.asp

来自「学校成绩查询系统是一个非常好的软件请大家试试」· ASP 代码 · 共 17 行

<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<%
  dim njname,bjname,bjstudent,bjteacher
  njname=trim(request.form("njname"))
  session("njname")=njname
  bjname=trim(request.form("bjname"))
  bjstudent=trim(request.form("bjstudent"))
  set rs=conn.execute("select bjname,njname from bj where bjname='"&bjname&"' and njname='"&njname&"'")
  if not rs.eof then
  Response.Write "<script>alert(""对不起，同名二级分类已存在!"");window.location='Javascript:history.back()';</script>"
  response.end
  else
      conn.execute("insert into bj (bjname,njname,bjstudent) values('"&bjname&"','"&njname&"',"&bjstudent&")")
      Response.Write "<script>alert(""添加二级分类成功!"");window.location='classaddbj.asp';</script>"
  end if
%>