k_rkinput.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    
    
'将对应的字段名值取出来    
xh=request.form("xz")(n)    
   
r_rkrq=request.form("rkrq"&xh)    
r_rksl=request.form("rksl"&xh)    
    
r_jhdh=request.form("jhdh"&xh)    
  
   
Set rsjh=Server.CreateObject("ADODB.RecordSet")    
str="select * from k_tblstock where jhdh='"&r_jhdh&"'"    
rsjh.open str,pubconn,1,3    
  
   
  
'--------修改自由库进货单有关内容    
   rsjh("sjrksl")=trim(r_rksl)    
   rsjh("rkrq")=trim(r_rkrq)    
   rsjh("ysr")=Session("userID")    
   rsjh("sfyrk")="Y"    
   rsjh.update    
' ----------在进货出入库情况表（tblstocrkqk）中插入一条记录    
   Set jhrk=Server.CreateObject("ADODB.RecordSet")    
   str1="select * from k_tblstocrkqk"    
   jhrk.open str1,pubconn,1,3    
   jhrk.addnew    
   jhrk("dh")=rsjh("jhdh")    
   jhrk("rq")=trim(r_rkrq)    
   jhrk("ckxh")=rsjh("rkck")    
   jhrk("cfqw")=rsjh("ckcw")    
   jhrk("spxh")=rsjh("prodcode")    
   jhrk("spdj")=rsjh("hsdj")    
   jhrk("rksl")=trim(r_rksl)    
   jhrk("rkje")=cdbl(rsjh("hsdj"))*cdbl(trim(r_rksl))    
   jhrk("xckkds")=trim(r_rksl)    
   jhrk.update  
   jhrk.close
   set jhrk=nothing  
  '----------在修改当日库存中的数据-----------    
        
spxh=rsjh("prodcode")    
ckxh=rsjh("rkck")    
num=trim(r_rksl)    
rq=trim(r_rkrq)    
je=cdbl(rsjh("hsdj"))*cdbl(trim(r_rksl))    
    
'入库的情况    
 set rskc=Server.CreateObject("ADODB.RecordSet")    
 str="select * from TblsysckspNowDay  where ckxh='"&ckxh&"'  and spxh='"&spxh&"' and rq='"&rq&"'"    
 rskc.open str,pubconn,3,3    
 if not rskc.eof then   '存在这样的记录    
    num1=cdbl(rskc("dqzkc"))+cdbl(num)    
    num2=cdbl(rskc("dqkkdk"))+cdbl(num)    
    kcje1=cdbl(rskc("dqkcje"))+cdbl(je)    
    kkje1=cdbl(rskc("dqkkdje"))+cdbl(je)    
    str1="update TblsysckspNowDay set dqzkc='"&num1&"',dqkkdk='"&num2&"',dqkcje='"&kcje1&"',dqkkdje='"&kkje1&"' where ckxh='"&ckxh&"'  and spxh='"&spxh&"' and rq='"&rq&"'"    
    pubconn.execute str1        
 else    
     
    set rskc1=Server.CreateObject("ADODB.RecordSet")    
    str2="select * from TblsysckspNowDay where ckxh='"&ckxh&"'  and spxh='"&spxh&"' "    
    rskc1.open str2,pubconn,3,3    
    if not rskc1.eof then  '当存在相同的商品和仓库时    
       set rskc2=Server.CreateObject("ADODB.RecordSet")    
       str3="select * from TblsysckspNowDay where ckxh='"&ckxh&"'  and spxh='"&spxh&"' order by Rec_id desc"    
       rskc2.open str3,pubconn,3,3    
       rskc2.movefirst    
       num3=cdbl(rskc2("dqzkc"))+cdbl(num)    
       num4=cdbl(rskc2("dqkkdk"))+cdbl(num)    
       kcje2=cdbl(rskc2("dqkcje"))+cdbl(je)    
       kkje2=cdbl(rskc2("dqkkdje"))+cdbl(je)    
       str4="insert into TblsysckspNowDay (spxh,ckxh,dqzkc,dqkkdk,dqkcje,dqkkdje,rq)values('"&spxh&"','"&ckxh&"','"&num3&"','"&num4&"','"&kcje2&"','"&kkje2&"','"&rq&"')"    
       pubconn.execute str4    
    else    
       str5="insert into TblsysckspNowDay (spxh,ckxh,dqzkc,dqkkdk,dqkcje,dqkkdje,rq)values('"&spxh&"','"&ckxh&"','"&num&"','"&num&"','"&je&"','"&je&"','"&rq&"')"    
       pubconn.execute str5           
    end if     
 end if     
    
    
    
next    
 %>    
  
 
 
  
  
 
 
 
<p align="center"> 
数据保存成功！    
  
 
<p align="center"> 
<a href="k_rk.asp"><font size="2">返回</font></a><font size="2">