www.gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\addkc1.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 kc ORDER by ID desc" cmdObj.CommandType = 1 Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , 2,3 rsObj.AddNew rsObj("subject") = Request.Form("subject") rsObj.Update rsObj.Close set rsObj = nothing set cmdObj = nothing 'CloseConn() %> <script language = Javascript> <!-- alert("添加成功!"); window.location = "addkc.asp" --> </script>