<% 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>"
%>
查询编号和型号做出来了,请问如何查询库存数量该怎么写啊?先谢了
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>"
%>
查询编号和型号做出来了,请问如何查询库存数量该怎么写啊?先谢了