gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\addclass.asp
<!-- #include file = "data.asp" --> <!--#include file="user.asp"--> <% dim strSQL, cmdObj, rsObj Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT top 1 * FROM class ORDER by ID desc" cmdObj.CommandType = 1 Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , 2,3 rsObj.AddNew rsObj("class") = Request.Form("class") rsObj.Update rsObj.Close set rsObj = nothing set cmdObj = nothing ' CloseConn() %> <script language = Javascript> <!-- alert("添加成功!"); window.location = "addclass1.asp" --> </script>