savegoods.asp

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

<!--#include virtual="/manage/include/conn.asp"-->
<%
if not isnumeric(trim(request("Price1"))) then%>
<script language="javascript">
  alert("单价必须是数字！");
  window.history.back();
</script>
<%
response.End()
else
    Price=trim(request("Price1"))
end if

function repstr(str)
  repstr=replace(str,"","&nbsp;")
  repstr=replace(repstr,chr(13),"<br>")
end function
TypeName1=request("TypeName")
    set rs1=conn.execute("select * from tb_MedicineType where TypeName='"&TypeName1&"'")
    yName=trim(request("yName"))
    Mode1=trim(request("Mode"))
    Mode2=trim(request("Mode1"))
	if Mode2="" then
	  Mode2="无"
	end if
elements=repstr(request("elements"))
fortill=repstr(request("fortill"))
usesize=repstr(request("usesize"))
medbook=repstr(request("medbook"))
set rs0=conn.execute("select * from tb_MedicineName where yName='"&yName&"'")
if not rs0.eof then
%>
<script language="javascript">
  alert("已存在此药品！");
  window.location.href="/manage/goods/addgoodsname.asp";
</script>
<%
    response.End()
    end if
    set rs=server.CreateObject("adodb.recordset")
    strsql="insert into tb_MedicineName (TypeId,yName,Mode,Mode1,Price,intime,elements,usesize,fortill,medbook) values ("&rs1("TypeId")&",'"&yName&"','"&Mode1&"','"&Mode2&"',"&Price&",'"&cstr(now())&"','"&elements&"','"&usesize&"','"&fortill&"','"&medbook&"')"
rs.open strsql,conn,3,3
%>
<script language="javascript">
alert("药品信息添加成功!");
window.location.href="/manage/goods/goodslist.asp";
</script>