k_xsthrkinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%    
    
if request.form("xz").count<1 then%>    
  <script  language="vbscript">    
    msgbox"  请至少选中一条要入库的记录!"    
   </script>    
   <script LANGUAGE="javaSCRIPT">    
       <!--    
       history.go(-1);    
        -->    
       </script>    
     
<%response.end     
end if    
if request.form("xz").count>8 then%>    
  <script  language="vbscript">    
    msgbox"  入库的记录不得多于八条!"    
   </script>    
   <script LANGUAGE="javaSCRIPT">    
       <!--    
       history.go(-1);    
        -->    
       </script>    
     
<%response.end     
end if    
    
for n=1 to request.form("xz").count      '=============================PP
    
'将对应的字段名值取出来    
xh=request.form("xz")(n)    
   
r_rkrq=request.form("rkrq"&xh)    
r_rksl=request.form("rksl"&xh) 
r_rkck=request.form("rkck"&xh)   
    
r_thid=request.form("thid"&xh)   '此ID号是唯一的   
 
   '修改退货细则表中的有关字段
   set rsku1=server.createobject("adodb.recordset")   
   k_str="select * from F_Tblretdetail where ID="&cint(r_thid)   
   rsku1.open k_str,pubconn,3,3 
   if not rsku1.eof then 
      thdh=rsku1("retnum") '退货单号
      spxh=rsku1("prodcode")
      spdj=rsku1("costprice")
      rsku1("sfyrk")="Y"
      rsku1("rkrq")=r_rkrq  
      rsku1("sjrksl")=r_rksl
      rsku1("ysr")=Session("UserID")
      rsku1.update   
   end if    
   rsku1.close
   set rsku1=nothing  
 '***********************************
 '在出入情况表中加入一条记录
 Set jhrk=Server.CreateObject("ADODB.RecordSet")    
   str1="select * from k_tblstocrkqk"    
   jhrk.open str1,pubconn,1,3    
   jhrk.addnew    
   jhrk("dh")=trim(thdh)    
   jhrk("rq")=trim(r_rkrq)    
   jhrk("ckxh")=r_rkck    
   jhrk("spxh")=spxh   
   jhrk("spdj")=spdj   
   jhrk("rksl")=trim(r_rksl)    
   jhrk("rkje")=cdbl(spdj)*cdbl(trim(r_rksl))    
   jhrk("xckkds")=trim(r_rksl)    
   jhrk.update  
   jhrk.close
   set jhrk=nothing  

 
   '***********************************
   '修改当日期库表中的当前总存字段和总金额   
   num=trim(r_rksl) 
   je=cdbl(spdj)*cdbl(trim(r_rksl))  
   set rskc=Server.CreateObject("ADODB.RecordSet")    
   str="select * from TblsysckspNowDay  where ckxh='"&r_rkck&"'  and spxh='"&spxh&"' "    
   rskc.open str,pubconn,3,3    
   if not rskc.eof then   '存在这样的记录    
       num1=cdbl(rskc("dqzkc"))+cdbl(num)    
       kcje1=cdbl(rskc("dqkcje"))+cdbl(je)    
       str1="update TblsysckspNowDay set dqzkc='"&num1&"',dqkcje='"&kcje1&"' where ckxh='"&r_rkck&"'  and spxh='"&spxh&"' "    
      pubconn.execute str1  
   end if
   rskc.close
   set rskc=nothing 
      
next                  '==========================================================PP

   
 %>    
  
 
 
  
  
 
 
 
<p align="center"> 
数据保存成功！    
  
 
<p align="center"> 
<a href="k_xsthrk.asp"><font size="2">返回</font></a><font size="2">