d_businessinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%
 khxh=request("khxh")
 SaleRoad=Request("SaleRoad")
 BusinessPlace=Request("BusinessPlace")
 MainProd=Request("MainProd")
 ProdSource=Request("ProdSource")
 StuffNumber=Request("StuffNumber")
 CustomerNumer=Request("CustomerNumer")
 CarNumber=Request("CarNumber")
 ProdDisplay=Request("ProdDisplay")
 BusinessArea=Request("BusinessArea")
 MainCustomer=Request("MainCustomer")
 SaleType=Request("SaleType")
 Remark=Request("Remark")
 
 set rsry=Server.CreateObject("ADODB.RecordSet")
 sql="select * from D_Business where clientNum='"&khxh&"'"
 rsry.open sql,pubconn,2,3

 
 If not rsry.eof then
       rsry("SaleRoad")=SaleRoad
       rsry("BusinessPlace")=BusinessPlace
       rsry("MainProd")=MainProd
       rsry("ProdSource")=ProdSource
       rsry("StuffNumber")=StuffNumber
       rsry("CustomerNumer")=CustomerNumer
       rsry("CarNumber")=CarNumber
       rsry("ProdDisplay")=ProdDisplay
       rsry("BusinessArea")=BusinessArea
       rsry("MainCustomer")=MainCustomer
       rsry("SaleType")=SaleType
       rsry("Remark")=Remark
       rsry.update
else
 
       rsry.Addnew
       rsry("ClientNum")=khxh
       rsry("SaleRoad")=SaleRoad
      ' rsry("BusinessPlace")=BusinessPlace
      ' rsry("MainProd")=MainProd
      ' rsry("ProdSource")=ProdSource
      ' rsry("StuffNumber")=StuffNumber
      ' rsry("CustomerNumer")=CustomerNumer
      ' rsry("CarNumber")=CarNumber
      ' rsry("ProdDisplay")=ProdDisplay
      ' rsry("BusinessArea")=BusinessArea
      ' rsry("MainCustomer")=MainCustomer
      ' rsry("SaleType")=SaleType
      ' rsry("Remark")=Remark
       rsry.update
end if 
     
%>
　

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