addclass.asp

来自「医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考」· ASP 代码 · 共 57 行

<!--#include file="../include/conn.asp"-->
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
TypeName1=trim(request("TypeName"))
if len(trim(request("TypeName")))<=0 or isEmpty(trim(request("TypeName"))) then
%>
<script language="javascript">
  alert("请填写类别名称！");
  window.location.href="goodsclass.asp";
</script>
<%
response.End()
else
  if instr(TypeName1,"'")>0 then
%>
<script language="javascript">
  alert("请正确填写类别名称！");
  window.close();
</script>
<%
  else
     set rs=server.CreateObject("adodb.recordset")
	 strsql="select TypeName from tb_MedicineType where TypeName='"&TypeName1&"'"
	 rs.open strsql,conn,3,3
	 if not rs.eof then
%>
<script language="javascript">
  alert("已存在此类别名称！");
  window.location.href="/manage/goods/goodsclass.asp";
</script>
<%
response.End()
rs.close
	 else
	   'rs.addnew
	   'rs("TypeName")=TypeName1
	   'rs.update
	   strsql="insert into tb_MedicineType (TypeName) values ('"&TypeName1&"')"
	  conn.execute(strsql)
%>
<script language="javascript">
  alert("添加类别成功！");
  window.location.href="/manage/goods/goodsclass.asp";
</script>
<%
  'rs.close
  'set rs=nothing
     end if
  end if
end if
rs.close
set rs=nothing
%>