savemodname1.asp

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

<!--#include file="../include/conn.asp"-->
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
function repstr(str)
 if len(str)>0 or not isNull(str) then
  repstr=replace(str,chr(32),"&nbsp;")
  repstr=replace(repstr,vbcrlf,"<br>")
  repstr=replace(repstr,"‘","”")
  repstr=replace(repstr,"'","‘")
 else
   repstr="没有信息"
 end if
end function
Id=request.QueryString("Id")
TypeId=request("TypeId")
yName=trim(request("yName"))
Mode1=trim(request("Mode"))
Mode2=trim(request("Mode1"))
Price=trim(request("Price"))
if not isnumeric(Price) then
%>
<script language="javascript">
  alert("您填写的单价不正确！");
  window.history.back();
</script>
<%
response.End()
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 Id="&Id)
sqlstr="update tb_MedicineName set TypeId="&TypeId&",yName='"&yName&"',Mode='"&Mode1&"',Mode1='"&Mode2&"',Price="&Price&",elements='"&elements&"',usesize='"&usesize&"',fortill='"&fortill&"',medbook='"&medbook&"' where Id="&Id
set rs2=conn.execute("select * from tb_MedicineType where TypeId="&TypeId)
sqlstr1="update tb_Sell set TypeName='"&rs2("TypeName")&"',yName='"&yName&"' where yName='"&rs0("yName")&"'"
set rs=server.CreateObject("adodb.recordset")
set rs1=conn.execute(sqlstr1)
rs.open sqlstr,conn,3,3
%>
<script language="javascript">
  alert("更新成功");
  setTimeout("window.close();",10);
  opener.location.reload();
</script>