set conn1=server.CreateObject ("adodb.connection")
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data/bookk.mdb")
Conn1.open strConn
commandtext1="select * from 关于book"
set rs2=conn1.Execute(commandtext1)
if not rs2.eof then
for i=0 to rs2.fields.count-5
...............
set conn=server.createobject("ADODB.Connection")
conn.open "gszb_db","xieli","xieli"
SQL="select kzs from fl_kzs"
set rs1=server.createobject("ADODB.recordset")
rs.open sql,conn,1,3