<%
bj=request("bj")
xh=request("xh")
xhf=request("xhf")
xm=request("xm")
xq=request("xq")
mm=request("mm")
kc=request("kc")
lx=request("lx")
if mm="" then 
mm=xh
end if
sex=request("sex")
addr=request("addr")
yb=request("yb")
username=request("username")
password=request("password")
if password="" then
password=username
end if
%>

<!-- #include file="conn.asp"-->

<%if request("kind")="1" then%>
<%
if xh="" or bj="--==請選擇==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('請您輸入學號和班級');" & "history.back()" & "</script>" 
    Response.End
end if

mysql="select xh from user where xh='"&xh&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('你輸入的學號已經存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into user(bj,xh,xm,mm,sex,addr,yb)values('"&bj&"','"&xh&"','"&xm&"','"&mm&"','"&sex&"','"&addr&"','"&yb&"')")
session("user")=xh
session("pwd")=mm
response.write "<script language=JavaScript>" & chr(13) & "alert('同學信息添加成功！');"&"window.location.href = '"&session("return")&"'"&" </script>"
set savebbs1=nothing 
end if
%>

<%if request("kind")="0" then%>
<%if session("password")<>"" then%>
<%
if username="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('請您輸入管理員的相關信息');" & "history.back()" & "</script>" 
    Response.End
end if

mysql="select username from admin where username='"&username&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您輸入的用戶已經存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into admin(username,password) values('"&username&"','"&password&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('管理員信息添加成功！');"&"window.location.href = 'admin_user.asp'"&" </script>" 
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>


<%if request("kind")="2" then%>
<%if session("password")<>"" then%>
<%
if bj="" or xhf="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('請您輸入完整的信息');" & "history.back()" & "</script>"
    Response.End
end if

mysql="select bj from bjb where bj='"&bj&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您輸入的班級已經存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into bjb(bj,xhf) values('"&bj&"','"&xhf&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('班級相關信息添加成功！');"&"window.location.href = 'admin_addxhs.asp'"&" </script>"
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>


<%if request("kind")="3" then%>
<%if session("password")<>"" then%>
<%
if kc="" or bj="--==請選擇==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('請您輸入完整信息');" & "history.back()" & "</script>"
    Response.End
end if

bjj=left(bj,3)
mysql="select * from kcb where bj='"&bjj&"' and kc='"&kc&"' and lx='"&lx&"' and xq='"&xq&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您輸入的信息已經存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into kcb(bj,kc,xq,lx) values('"&bjj&"','"&kc&"','"&xq&"','"&lx&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('課程信息添加成功！');"&"window.location.href = 'admin_addxhs.asp'"&" </script>"
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>