d_financeinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%
 khxh=request("khxh")
 BusinessPlace=Request("BusinessPlace")
 PlaceValue=Request("PlaceValue")
 PayWay=Request("PayWay")
 PayPerson=Request("PayPerson")
 InvoiceWay=Request("InvoiceWay")
 SupportFee=Request("SupportFee")
 BaseFee=Request("BaseFee")
 EnterFee=Request("EnterFee")
 OtherFee=Request("OtherFee")
 OpenBank=Request("OpenBank")
 Counting=Request("Counting")
 Remark=Request("Remark") 
  set rscw=Server.CreateObject("ADODB.RecordSet")
  sql="select * from D_Finance where Clientnum='"&khxh&"'"
  rscw.open sql,pubconn,1,3

    if not rscw.eof then
       rscw("BusinessPlace")=BusinessPlace
       rscw("PlaceValue")=PlaceValue
       rscw("PayWay")=PayWay
       rscw("PayPerson")=PayPerson
       rscw("InvoiceWay")=InvoiceWay
       rscw("SupportFee")=SupportFee
       rscw("BaseFee")=BaseFee
       rscw("EnterFee")=EnterFee
       rscw("OtherFee")=OtherFee
       rscw("OpenBank")=OpenBank
       rscw("Counting")=Counting
       rscw("Remark")=Remark
       rscw.update
    else
       rscw.addnew
       rscw("ClientNum")=khxh
       rscw("BusinessPlace")=BusinessPlace
       rscw("PlaceValue")=PlaceValue
       rscw("PayWay")=PayWay
       rscw("PayPerson")=PayPerson
       rscw("InvoiceWay")=InvoiceWay
       rscw("SupportFee")=SupportFee
       rscw("BaseFee")=BaseFee
       rscw("EnterFee")=EnterFee
       rscw("OtherFee")=OtherFee
       rscw("OpenBank")=OpenBank
       rscw("Counting")=Counting
       rscw("Remark")=Remark
       rscw.update
   end  if 
     
%>
　

<p align="center">
<font size="2">
数据保存成功！<a href="javascript:history.go(-1)">返回</a>
</font>