modclass.asp

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

<!--#include virtual="manage/include/conn.asp"-->
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
 Response.End()
End If
id=request.QueryString("Id")
action=request("action")
if id="" then
%>
<script language="javascript">
  alert("请选择类别名称！");
  setTimeout("window.close;",1);
</script>
<%
else
   if action="mod" then
     set rs0=conn.execute("select * from tb_MedicineType where TypeId="&id)
%>
   <form action="/manage/goods/savemod.asp?Id=<%=id%>" method="post" name="form2" onsubmit="return chkfields();">
       <input type="text" value="<%=rs0("TypeName")%>" name="TypeName" size="15" style="border:1px solid;border-color:000000">
	   <input type="submit" value="修 改" style="border:1px solid;border-color:#CC33FF;background-color:#CCff33" >
   </form>
<%
   end if
   if action="del" then
 	 set rs1=conn.execute("select * from tb_MedicineName where TypeId="&id)
	 if rs1.eof and rs1.bof then 	
      set rs=conn.execute("delete  from tb_MedicineType where TypeId="&id)
	  %>
<script language="javascript">
  alert("删除类别成功！");
  setTimeout("window.close();",10);
  opener.location.reload();
</script>
	<%else%>
		<script language="javascript">
	 	 alert("该类别已存在相对应的药品信息，请删除药品信息后再删除该类别！");
	 	 setTimeout("window.close();",10);
	</script>
	<%end if
    end if
end if
%>
<script language="javascript">
  function chkfields(){
  if(document.form2.TypeName.value==''){
    alert("请添加类别名称！");
	form2.TypeName.focus();
	return false;
  }
   return true;
  }
</script>