savemod.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="../include/conn.asp"-->
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
TypeName1=request("TypeName")
id=request.QueryString("Id")
if TypeName1="" then
%>
<script language="javascript">
  alert("请填写类别名称！");
  setTimeout("window.close();",1);
</script>
<%
response.End()
else
   set rs1=conn.execute("select * from tb_MedicineType where TypeName='"&TypeName1&"'")
   if not rs1.eof then
%>
<script language="javascript">
  alert("已存在此类别名称");
  window.history.back(-2);
  opener.location.reload();
</script>
<%
response.End()
   else
   set rs=conn.execute("update tb_MedicineType set TypeName='"&TypeName1&"' where TypeId="&id)
%>
<script language="javascript">
  alert("修改类别名称成功！");
  setTimeout("window.close();",1);
  opener.location.reload();
</script>
<%
   end if
end if
%>