<!-- #include file = "conn.asp" -->
<!--#include file = "chkuser.asp"-->
<%
	   dim strSQL, cmdObj, rsObj
	   dim id
       id  =  Request.Form("id")

       Set cmdObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
	   cmdObj.CommandText  =  "SELECT * FROM subject WHERE ID=" & id & ""
       cmdObj.CommandType  =  1
       Set cmdObj.ActiveConnection  =  conn
       rsObj.Open cmdObj, , 2,3
       rsObj("subject")  = Request.Form("subject")
     
       rsObj.Update
       
       rsObj.Close
       set rsObj = nothing
       set cmdObj = nothing
       
       'CloseConn()
%>
<script language = Javascript>
<!--
alert("添加成功！");
window.location = "add_subject.asp"
-->
</script>