麻烦看看里面的代码,帮我解决一个问题,多谢了~!

slippers3000 2001-12-19 02:45:49
<%
dim connstr,insstr,conn
connstr="dsn=smoke;uid=sa;pwd=;"
set conn=server.createobject("ADODB.Connection")

a1=request.form("sum_dive1")
a2=request.form("sum_dive2")
a3=request.form("sum_dive3")
a4=request.form("sum_dive4")
a5=request.form("sum_dive5")
a6=request.form("sum_dive6")
a7=request.form("sum_dive7")
a8=request.form("sum_dive8")
a9=request.form("sum_dive9")
a10=request.form("sum_dive10")
a11=request.form("sum_dive11")
a12=request.form("sum_dive12")

b1=request.form("rot_out1")
b2=request.form("rot_out2")
b3=request.form("rot_out3")
b4=request.form("rot_out4")
b5=request.form("rot_out5")
b6=request.form("rot_out6")
b7=request.form("rot_out7")
b8=request.form("rot_out8")
b9=request.form("rot_out9")
b10=request.form("rot_out10")
b11=request.form("rot_out11")
b12=request.form("rot_out12")

c1=request.form("rag_out1")
c2=request.form("rag_out2")
c3=request.form("rag_out3")
c4=request.form("rag_out4")
c5=request.form("rag_out5")
c6=request.form("rag_out6")
c7=request.form("rag_out7")
c8=request.form("rag_out8")
c9=request.form("rag_out9")
c10=request.form("rag_out10")
c11=request.form("rag_out11")
c12=request.form("rag_out12")

d1=request.form("slice_in1")
d2=request.form("slice_in2")
d3=request.form("slice_in3")
d4=request.form("slice_in4")
d5=request.form("slice_in5")
d6=request.form("slice_in6")
d7=request.form("slice_in7")
d8=request.form("slice_in8")
d9=request.form("slice_in9")
d10=request.form("slice_in10")
d11=request.form("slice_in11")
d12=request.form("slice_in12")

e1=request.form("slice_mix1")
e2=request.form("slice_mix2")
e3=request.form("slice_mix3")
e4=request.form("slice_mix4")
e5=request.form("slice_mix5")
e6=request.form("slice_mix6")
e7=request.form("slice_mix7")
e8=request.form("slice_mix8")
e9=request.form("slice_mix9")
e10=request.form("slice_mix10")
e11=request.form("slice_mix11")
e12=request.form("slice_mix12")

f1=request.form("sendout1")
f2=request.form("sendout2")
f3=request.form("sendout3")
f4=request.form("sendout4")
f5=request.form("sendout5")
f6=request.form("sendout6")
f7=request.form("sendout7")
f8=request.form("sendout8")
f9=request.form("sendout9")
f10=request.form("sendout10")
f11=request.form("sendout11")
f12=request.form("sendout12")

g1=request.form("keep1")
g2=request.form("keep2")
g3=request.form("keep3")
g4=request.form("keep4")
g5=request.form("keep5")
g6=request.form("keep6")
g7=request.form("keep7")
g8=request.form("keep8")
g9=request.form("keep9")
g10=request.form("keep10")
g11=request.form("keep11")
g12=request.form("keep12")

h=request.form("nowdate")

conn.open connstr
insstr="insert into month1(sum_dive,rot_out,rag_out,slice_in,slice_mix,sendout,keep,nowdate,plaque) values('"&a1&"','"&b1&"','"&c1&"','"&d1&"','"&e1&"','"&f1&"','"&g1&"','"&h&"','1')"

conn.execute insstr
set conn=nothing


%>
我的问题是现在可以把从表单读出来的数据写到数据库里面,但只能把a1,b1,c1,d1,e1,f1,g1,h,1一条纪录写进去,我想写一个循环让他把第一条纪录写进去后接着写第二条、第三条,....,我试着写了一下没有搞定,所以来请教大家了希望告诉我改怎么写这个循环,谢谢了~!
(我要接着往数据库里面写的话,是不是必须要用rs.movenext这个语句把指针移到下一条阿,可我现在没有用rs.open打开数据库阿?我改怎么办了?)
...全文
81 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lazywolf 2001-12-20
  • 打赏
  • 举报
回复
当然不会覆盖了!(只要数据不同):)
insert一般是添加数据到数据库
julyclyde 2001-12-19
  • 打赏
  • 举报
回复
数据库的不会覆盖吧?
slippers3000 2001-12-19
  • 打赏
  • 举报
回复
to : lazywolf(二代) 很感谢你的帮助,我真的才学习asp,所以很多不懂的东西
下面的问题是接着上面的问题的
就是我现在已经把12条纪录全部写入数据库中了,现在到了第二天,我又来向表单
中输入数据,当我点击确定后12条记录又会往数据库中写,那么不是把我昨天的数据
覆盖了吗,怎么才能在后面追加记录(保存昨天的记录不被覆盖)阿?
麻烦了~!
mjs2000 2001-12-19
  • 打赏
  • 举报
回复
用一个循环直接执行你的conn.execute 就可以了,不用movenext的因为你执行的是插入操作,不是查询
lazywolf 2001-12-19
  • 打赏
  • 举报
回复
<%
dim connstr,insstr,conn
connstr="dsn=smoke;uid=sa;pwd=;"
set conn=server.createobject("ADODB.Connection")
dim a(12),b(12),c(12),d(12),e(12),f(12),g(12),h
for i=1 to 12 do
a(i)=request.form("sum_dive"&i)
b(i)=request.form("rot_out"&i)
c(i)=request.form("rag_out"&i)
d(i)=request.form("slice_in"&i)
e(i)=request.form("slice_mix"&i)
f(i)=request.form("sendout"&i)
g(i)=request.form("keep"&i)
next
h=request.form("nowdate")

conn.open connstr
for i=1 to 12 do
insstr="insert into month1(sum_dive,rot_out,rag_out,slice_in,slice_mix,sendout,keep,nowdate,plaque) values('"&a(i)&"','"&b(i)&"','"&c(i)&"','"&d(i)&"','"&e(i)&"','"&f(i)&"','"&g(i)&"','"&h&"','1')"
conn.execute insstr
next
set conn=nothing


%>
注:作者原有说明: 背景是曾经友情支持了测试组一小段时间,发现他们使用selenium做页面的自动化测试,需要用到XPath,但IE下没有获取XPath的工具,只能在Firefox和chrome下获取,步骤还比较麻烦。而且有些页面在chrome和ie生成的代码的不一样的,所以chrome下获取的xpath,到ie下就无法工作,只能自己在ie下查看页面元素自己写xpath,痛苦而且效率低下。 于是“大发慈悲”,自己花了一天左右(开发加调试)写了这款小工具,弥补了IE下没有获取XPath工具的空缺。一开始用Delphi做的,但无法支持64位,于是又用C#写了一次,可以支持32/64位了。这次开源的就是C#的。 工具发出了,自动化测试人员一下子就用起来了,大家都反馈好用简单方便,软件又小巧只有80k,不像有些工具启动都要半分钟。短时间下载量就有150+,使用人数我估计得有200人吧。(我都怀疑公司有没有200个自动化测试人员)。 想不到我一个开发人员,居然在测试人员里面昙花一现闪亮了一把,造化弄人啊。这个软件还说明了一个事情,对用户切实有用的东西是不太需要宣传的。。。 使用很简单,直接拖动左下角鼠标到IE查看即可。还可以查看IE密码框里面的密码。公司里面有自动化测试的人员建议转给他们(尤其是测试的MM _),他们会多谢你的。代码已经开源,对代码有兴趣的可以去Github上看看。都是些windows代码,技术含量不高,windows的东西就是调试比较耗时。

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧