if a1="a" then
set rs1=createobject("adodb.recordset")
rs1.open"select top 1 t1 from khxx order by id desc",con,1,3
con.execute"insert into khxx01 values('"&rs1(0)&"','"&a7&"','"&a8&"','"&a9&"','"&a10&"','"&a11&"','"&a12&"','"&a13&"','','')"
rs1.close
set rs1=nothing
else
set rs=createobject("adodb.recordset")
rs.open"select t1 from khxx where t1='"&a1&"'",con,1,3
if rs.eof then
con.execute"insert into khxx values ('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"','"&a7&"','"&a8&"','"&a9&"','"&a10&"','"&a11&"','"&a12&"','"&a13&"','"&a14&"','"&a15&"','"&a16&"',"&a17&","&a18&",'"&a19&"',"&a20&",'"&a21&"')"
rs.close
set rs=nothing
end if
end if
%>
<%
'-----------------------
excelrs.Movenext
wend
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing
response.write"导入成功!"
%>