<!-- #include file="func/db.fun" -->

<%
     
     name=session("name")
     pws=session("pws")
     if name="" then
  %>
    <script language="VBScript">
       MsgBox "你是非法用戶。"
       history.back()
    </script>
<%  end if
  if Request("學生證號") = empty or Request("學生姓名")=empty or Request("學制")=empty or Request("學號")=empty or Request("畢業證號")=empty or Request("頒證時間")=empty then
%>
   <script language="VBScript">
       MsgBox "請輸入完整信息~~~!"
       history.back()
    </script>
<%
  end if
  set rs=GetMdbStaticRecordset("data/user.mdb","userdase")
If rs Is Nothing Then
    Response.Write "哈哈~~出錯了喲~~:(~~!"
    Response.End
End If
   rs.PageSize = 10
   Page = CLng(Request("Page"))
   If Page > rs.PageCount Then Page = rs.PageCount
   If Page < 1 Then Page = 1
rs.addnew
rs("學生姓名") = Request("學生姓名")
rs("學號") = Request("學號")
rs("學生證號") = Request("學生證號")
rs("學制") = Request("學制")
rs("畢業證號") = Request("畢業證號")
rs("頒證時間") = Request("頒證時間")
rs.Update
%>
<script language="VBScript">
       MsgBox "添加成功!"
        location.href="guanli.asp"
    </script>