求助,查询问题,高手请进

<% for i=1 to 10

call inseartinto
next

%>

<%
sub inseartinto()
dim db,conn,connstr
db="../pl/Data.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(""&db&"")
conn.Open connstr

dim s_ls,s_no,bianhao,xinghao,shuliang,danwei,leibie,beizhu
s_ls=request("s_ls")
s_no=request("s_no")
s_fhdq=request("s_fhdq")
s_shdq=request("s_shdq")
s_zdr=request("s_zdr")
bianhao=request("bianhao"&i)
xinghao=request("xinghao"&i)
shuliang=request("shuliang"&i)
danwei=request("danwei"&i)
leibie=request("leibie"&i)
beizhu=request("beizhu")

if not bianhao="" then
set rs=server.createobject("adodb.recordset")
sql="select * from kucun where 编号='"&bianhao&"'"
rs.open sql,conn,1,1
if not rs.recordcount<>0    then    
response.write"<SCRIPT language=JavaScript>alert('"&bianhao&"库存中没有此产品编号! ');" 
response.write"javascript:history.go(-1)</SCRIPT>"

elseif not bianhao="" then
set rs=server.createobject("adodb.recordset")
sql="select * from kucun where 编号='"&bianhao&"' and 型号='"&xinghao&"'"
rs.open sql,conn,1,1
if not rs.recordcount<>0    then    
response.write"<SCRIPT language=JavaScript>alert('  库存中没有"&bianhao&" 的 "&xinghao&"号型! ');" 
response.write"javascript:history.go(-1)</SCRIPT>"



%>
<%
response.end
end if
%>
<%
sql="insert into s_chuku(s_ls,s_no,s_bianhao,s_xinghao,s_shuliang,s_danwei,s_leibie,s_beizhu,s_fhdq,s_shdq,s_zdr)values('"&s_ls&"','"&s_no&"','"&bianhao&"','"&xinghao&"','"&shuliang&"','"&danwei&"','"&leibie&"','"&beizhu&"','"&s_fhdq&"','"&s_shdq&"','"&s_zdr&"')"
conn.execute(sql)
conn.close
set conn=nothing
end if 
end if
end sub
%>
<%
response.write"<SCRIPT language=JavaScript>alert('提交成功!');" 
response.write"javascript:history.go(-1)</SCRIPT>"
%>
查询编号和型号做出来了,请问如何查询库存数量该怎么写啊?先谢了
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值