⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 f_swhteditinfo2.asp

📁 一个很好的在线购物系统
💻 ASP
字号:
🔍 


<!--#include file="../include/Pubconn.asp"-->

<%
' 不需要考虑客户属性的问题，在修改的状态下说明该合同还没生效。
hth=request("hth")
spbm=request("spbm")
sl=request("sl")
htzj=request("htzj")
hmj=request("hmj")
hjxs=request("hjxs")
zbyear=request("zbyear")
tag=request("tag")
swtk=request("swtk")
cbj=request("cbj")
if sl<>"" and cbj<>"" then
  zcbj=cdbl(sl)*cdbl(cbj)
end if 
if htzj<>""  then
   xslr1=cdbl(htzj)-cdbl(zcbj)
end if 



 ID=Request("ID")
 set rsht=Server.Createobject("ADODB.recordset")
 sql="select *  from F_Tblcontract2 Where ID="&cint(ID)
 rsht.open sql,Pubconn,1,3
 if not rsht.eof then
           
            xsfy=rsht("SaleMoney")
            ybfy=rsht("SendMoney")
            gcfy=rsht("EngineeMoney")
            fwfy=rsht("ServerEatMoney")
            xslr=xslr1-xsfy-ybfy-gcfy-fwfy

            rsht.Fields("EquipType")=spbm
            if request("sl")<>"" then
               rsht.Fields("Number")=sl
            end  if 
            if  request("htzj")<>"" then
               rsht.Fields("TotalPrice")=htzj
            end if 
            if request("hmj")<>"" then
		    	rsht.Fields("GoodPrice")=hmj
		    end if 
		    if  request("hjxs")<>"" then
			   rsht.Fields("GoodUnit")=hjxs
			end if 
		    rsht.Fields("Xslr")=xslr
		    if  request("zbyear")<>""  then
			    rsht.Fields("QualitySafe")=zbyear
		    end if 
			rsht.Fields("Tag")=Tag
			rsht.Fields("EspectMark")=swtk
			rsht.Fields("YesOrNo")="1"
			rsht.Fields("Reportsh")="1"
			rsht.Fields("Authors")=Session("username")
			rsht.Fields("DepartID")=Session("DepartID")
				
            rsht.update
            rsht.Close
            set rsht=nothing
end if   '更改完结毕，已保存到表中去


%>

<head>
<title></title>
</head>
<script language="vbscript">
sub xsfy1()
   
   hth=document.form1.hth.value
   zcbj=document.form1.zcbj.value
  
   window.open "F_xsfy.asp?hth="+hth+"&zcbj="+zcbj,"销售费用","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
end sub 
sub fkjd1()
   
   hth=document.form1.hth.value
   zcbj=document.form1.zcbj.value
   window.open "F_fkjd.asp?hth="+hth+"&zcbj="+zcbj,"付款进度","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
 
end sub 
  
</script>    
<body bgcolor="#FFFFFF">

<p align="center">
　

<p align="center">
<font size="2">
数据编辑成功！！<a href="F_swhtbrow.asp">返回</a>
</font>
<p align="center">
<p align="center">
<form action="" name="form1" method="post">
<input type="hidden" value="<%=zcbj%>" name="zcbj"> 
<input type="hidden" value="<%=hth%>" name="hth"> 

<a href="#" onclick="xsfy1()">销售费用</a>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
<a href="#" onclick="fkjd1()">付款进度</a>
</form>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -