www.gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\addxx1.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 st_info ORDER by ID desc" cmdObj.CommandType = 1 Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , 2,3 rsObj.AddNew rsObj("user_number") = Request.Form("user_number") rsObj("user_name") = Request.Form("user_name") rsObj("user_zkzh") = Request.Form("user_zkzh") rsObj("user_sfzh") = Request.Form("user_sfzh") rsObj("user_sex") = Request.Form("user_sex") rsObj("user_time") = Request.Form("user_time") rsObj("user_address") = Request.Form("user_address") rsObj("user_tel") = Request.Form("user_tel") rsObj("user_major") = Request.Form("user_major") rsObj("user_class") = Request.Form("user_class") rsObj("user_gkcj") = Request.Form("user_gkcj") rsObj.Update rsObj.Close set rsObj = nothing set cmdObj = nothing %> <script language = Javascript> <!-- alert("添加成功"); window.location = "xxgl.asp" --> </script>