循环插入数据
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))