manuaddsave.asp

来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 25 行

<!-- #include file = "include/sysbase.asp" -->
<%
	   dim cmbObj, rsObj
       Set cmbObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
       cmbObj.CommandText  =  "SELECT * FROM ProductType WHERE (id is null)"
       cmbObj.CommandType  =  adCmdText
       Set cmbObj.ActiveConnection  =  conn
       rsObj.Open cmbObj, , adOpenKeyset, adLockOptimistic
       rsObj.AddNew 
       rsObj("name")  =  Request.Form("name")
       rsObj("SuperID")  =  Request.Form("SuperID")
       rsObj.Update

       rsObj.Close
       set rsObj = nothing
       CloseConn()
%>
<script language = Javascript>
<!--
	alert("添加成功！");
	this.document.location = "manuList.asp";
-->
</script>