循环插入数据

dim ls_sql()

          redim ls_sql(10)

          for i=1 to 10

         ls_sql(i)="insert into tb_grade1 (id_g,name_g,post_g,date_g,grade_g1,grade_g2,grade_g3,grade_g,number_g,pf_name_g,pf_post_g,prencent_g) values ('"&ls_id&"','"&ls_name&"','"&ls_post&"','"&ls_k&"','"&ls_grade(i)&"','','','','1','"&ls_pf_name&"','"&ls_pf_post&"','0.5')"

        ' set rs"&i&"=server.CreateObject("adodb.Recordset")

         conn.execute(ls_sql(i))

这个循环插入 怎么没成功，主要就是插入'"&ls_grade(i)&"'        



for i=1 to 10
ls_grade(i)=request.Form("textz"&i)
response.Write(ls_grade(i)+"<br>")
next   这是获取ls_grade(i)
------解决方案--------------------
上面的FOR没有NEXT，是你这里没写，还是实际上也没写。
运行时有没有报错，错误信息呢？
如果没有报错那么数据库中有没有改变？
或者你只插一条行不行
再后者你在FOR循环里先别EXECUTE，先response.write(ls_sql(i))看看这个要执行的SQL语句是不是和你想的一样。