📄 f_contractinfo2.asp

📁 一个很好的在线购物系统
💻 ASP
字号:
<!--#include file="../include/Pubconn.asp"-->

<%


year1=request("year1")
month1=request("month1")
date1=request("date1")
    
 
hth=request("hth")     '要传过去的值
khxh=request("khxh")
lxr=request("lxr")
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 cbj<>"" and sl<>"" then
  zcbj=cdbl(cbj)*cdbl(sl)    '要传过去的值
end if 
if htzj<>"" and zcbj<>"" then
  xslr=cdbl(htzj)-zcbj
end if

 set rsht=Server.Createobject("ADODB.recordset")
 rsht.CursorLocation=3          
 rsht.CursorType = adOpenStatic 
 sql="select *  from F_Tblcontract2"
 rsht.open sql,Pubconn,2,3
 rsht.AddNew
            rsht.Fields("Contractnum")=hth 
            rsht.Fields("SaleDelegate")=Session("UserID")
            rsht.Fields("SignTime")=year1+"-"+month1+"-"+date1
            rsht.Fields("Clientnum")=khxh
            rsht.Fields("LinkMan")=lxr
        
            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 
			
		    if  xslr<>""  then
			    rsht.Fields("Xslr")=xslr
		    end if 
    			
            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("bz")="0"     '报告是否录入的标志
	        rsht.Fields("Authors")=Session("Username")
	        rsht.Fields("DepartID")=Session("DepartID")
    rsht.update
    rsht.Close
    set rsht=nothing
         

%>

<head>
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">

</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 >
　

<p align="center">
<font size="2">
数据保存成功！！<a href="F_Contract2.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 + -