求助,查询问题,高手请进
来源:互联网 发布:mysql中文乱码问题 编辑:程序博客网 时间:2024/05/01 03:07
<% 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>"
%>
查询编号和型号做出来了,请问如何查询库存数量该怎么写啊?先谢了
0 0
- 求助,查询问题,高手请进
- 高手请进,磁卡查询机实现。
- 高手请进
- 高手请进-----
- 截屏吃内存的问题 高手请进
- WCF的一个怪异问题,高手请进
- 关于结束进程的问题,高手请进。
- 高手请进,小妹请教一个ASP。NET安装问题
- 高手请进~ 帮我解决一下C++问题啊
- [VB.NET]关于EXIF读取的详细问题,高手请进
- [VB.NET]关于程序性能问题,高手请进,谢谢
- 数据库高手请进 !! 解决 效率 及 繁琐 字段 问题
- vb.net高手请进
- JB高手请进!!!
- JFreeChart 高手请进!
- JAVA高手 meeting 请进
- 高手请进来过招
- 文件系统高手请进!
- 有人在我的留言版发了这样的代码!S!WCRTESTTEXTAREA000000!E!
- 有这样的flash幻灯片切换效果吗[网页上用到的]
- J2ME 在线等高手 HttpConnection 遇到302
- 在Android 中,创建Handler 和继承Handler再重写handleMessage方法的区别是什么
- [TYVJ P1716/BZOJ 3132 上帝造题的七分钟] 二维树状数组区间修改、区间查询
- 求助,查询问题,高手请进
- 分享几个下载YouTube视频的网站和工具
- 急!新装了xp后,为什么access数据库不能读数据了?
- 【急】IBatis中update时提示java.lang.NullPointerException?
- 如何隐藏ppc的开始菜单?
- 怎么管理上传的图片,高级的.
- 数据汇总显示
- 为什么我的asp页面在IE6中无法显示
- 哪里有同学录源码带论坛的 可以上传视频文件并播放的那种