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>