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

<%
     
     name=session("name")
     pws=session("pws")
     if name="" 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

RecNo = Request( "RecNo" )
PageNo = (RecNo-1) \ 10 + 1

rs.AbsolutePosition = RecNo
rs("學生姓名") = Request("學生姓名")
rs("學號") = Request("學號")
rs("學生證號") = Request("學生證號")
rs("學制") = Request("學制")
rs("畢業(yè)證號") = Request("畢業(yè)證號")
rs("頒證時間") = Request("頒證時間")
rs.Update
%>
  <script language="VBScript">
       MsgBox "修改成功"
        location.href="guanli.asp"
    </script>