这段代码错在哪里？

蜗蜗奶糖 2006-09-02 03:03:45

sql="select * from kehuset1"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
outstr="<FORM name=forma action=access.asp method=post>"
For I=0 to rs.fields.count-1
tab1=tab1&"<td>"&rs.fields(i).name&"</td>"'(注释：前面的有获取表单元素个数的，和此差不多。Request.form.count)
Next
outstr=outstr & "<TR>"&tab1&"</TR>"
for I=0 to rs.fields.count-1
tab2=tab2&"<td><INPUT class=p1 name=t1" & i & " size=8 value=" & chr(34) &rs.fields(i).value & chr(34) & "></td>"
next
outstr=outstr&"<tr>"&tab2&"</tr></form>"

Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
for i=1 to rs.fields.count-1
title=title&rs.fields(i).name&","
values=values&"'"&request.form("ti"&i)&"'"&","
next
response.write title&"<br>"
response.write values&"<br>"
response.end
sql="insert into kehuset1 (title) values(values)"
Set RS=Conn.Execute(sql)

...全文

135 7 打赏收藏举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

jearyzheng 2006-09-02

打赏
举报

呵呵，看你的代码好累的，为什么这样处理呢。

蜗蜗奶糖 2006-09-02

打赏
举报

更正：
len1=len(title)-1
title=left(title,len1)
len2=len(values)-1
values=left(values,len2)

response.write title&"<br>"
response.write values&"<br>
后显示：
row1,row2,row3,row4,row5,row6,row7,row8,row9,row10,row11,row12,row13,row14,row15
'1','1','1','1','1','1','1','1','1','1','1','1','1','1','1'

但执行：
sql="insert into kehuset1 (title) values(values)"
Set RS=Conn.Execute(sql)
后报错:
Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/guanli2/access.asp，行 73

蜗蜗奶糖 2006-09-02

打赏
举报

不过：
Microsoft VBScript 运行时错误错误 '800a000d'

类型不匹配: 'length'

/guanli2/access.asp，行 64

蜗蜗奶糖 2006-09-02

打赏
举报

多谢冰儿，这个名子怎么像女的？

roseqiu1 2006-09-02

打赏
举报

Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
for i=1 to rs.fields.count-1
title=title&rs.fields(i).name&","
values=values&"'"&request.form("ti"&i)&"'"&","
next

len=length(title)-1
title=left(title,len)
len1=length(values)-1
values=left(values,len1)

response.write title&"<br>"
response.write values&"<br>"
response.end

蜗蜗奶糖 2006-09-02

打赏
举报

row1,row2,row3,row4,row5,row6,row7,row8,row9,row10,row11,row12,row13,row14,row15,
'1222','1','1','1','1','1','1','1','1','1','1','1','1','2','1',
怎样去掉末尾的","?

蜗蜗奶糖 2006-09-02