解决方法求助，高分

lang11zi 2003-09-29 09:55:06

我有一表单上有n个文本框，每个文本框的内容对应数据库某表里的一行。且要判断如果文本框为空就不输入数据库。

保存数据到数据库的那页面我一直没好的解决方法。我不想保存一行打开数据库一次。

...全文

31 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

xxrl 2003-09-29

打赏
举报

to maxid()
那样会生成一个Request('introDB')的值为a,b,c ///////对吗?应该为a, b, c
上面的introDB = split(Resquest("introDB"),",")这样才对////对吗?还是少了一个空格,应该是introDB = split(Resquest("introDB"),", ")
///////////
为什么avonqin(李文) ,maxid() 你们到现在这种群组的值的格式到现在都不明白?
///////////
to ruanjiancomputer(软件杰)
<%for i=1 to 8%>
<input name="date&i&" type="text" value="i">
<%next%>
/////////////代码有三个错误,继续努力.
如果楼主不想入一次开一次,那就直接用objConn的execute方法.

gmlxf 2003-09-29

打赏
举报

用数组，split得到。
然后循环出入。

ruanjiancomputer 2003-09-29

打赏
举报

<%for i=1 to 8%>
<input name="date&i&" type="text" value="i">
<%next%>

avonqin 2003-09-29

打赏
举报

","

avonqin 2003-09-29

打赏
举报

看来楼上有点急了~~~~~~~~~

还有：
introDB = split(Request('introDB')) '这里生成数组
改为：
introDB = split(Request("introDB"),",") '这里生成数组

（注意：文本框中不能输入带"，"的文本）

maxid 2003-09-29

打赏
举报

上面的introDB = split(Resquest("introDB"),",")这样才对

avonqin 2003-09-29

打赏
举报

晕~~~~~~我刚想把代码贴上来，迟了一步

我把楼上的代码修正一下：
if intro(i) <> "" then 改为 if Trim(introDB(i)) <> "" then

如果不改，则如果中间存在某个文本框为空，保存后为text1,text2,……, ,textN

maxid 2003-09-29

打赏
举报

先连接好数据库,例如对像为conn
定义数组，例如Dim introDB(100) ,或都你的N个文本框的name都同相的话，就不用那么麻烦
<input name="introDB" type="text" value="a">
<input name="introDB" type="text" value="b">
<input name="introDB" type="text" value="c"> 
那样会生成一个Request('introDB')的值为a,b,c
然后
Dim introDB
introDB = split(Request('introDB')) '这里生成数组
for i=0 to Ubound(introDB)
if intro(i) <> "" then
conn.Execute("insert into....db")
end if
next

luok 2003-09-29