manage.asp

来自「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 23 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="../Connections/auto.asp"-->
<%
  cpart=request.form("cpart")
  epart=request.form("epart")
  set rs=server.CreateObject("ADODB.Recordset")
  
  sql="select * from part where cpart='" & cpart &"'"
  rs.open sql,CN
  
  if not rs.eof then
      response.Redirect("manage.htm")
  else
	  sqlstr="insert into part values( '" & cpart&"','"& epart &"')"
  	  CN.execute(sqlstr)
%>
<script language="javascript">
	window.alert("部门信息添加成功！")
	window.close
</script> 
<% 
	end if 
%>