dim startime
dim conn
dim connstr
dim endtime
dim db,pass_word,User_ID,Data_Source
db="jacs"
Pass_word="yongw"
User_ID="sa"
Data_Source="JACKSON\JACKSON"
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
set rs=conn.execute ("select * from admin")
do while not rs.eof
teacher=rs("teacher")
Set conn1 = Server.CreateObject("ADODB.Connection")
drive="DBQ="+server.mappath("itat.xls")+";DefaultDir=;DRIVER={Microsoft excel Driver (*.xls)};"
conn1.Open drive
conn1.execute ("insert into sheet1 (a) values ('"&teacher&"')") '这一句为什么报错,sheet1为工作表,这样写法对吗?
rs.movenext
loop
rs.close
set rs=nothing
conn1.close
set conn1=nothing
Conn.close
Set conn = Nothing
%>
