<%  set conn=server.CreateObject("adodb.connection")
    dbpath=server.MapPath("database1.mdb")
        conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
                                           %>

<%  set conn1=server.CreateObject("adodb.connection")
    dbpath=server.MapPath("database.mdb")
        conn1.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
                                           %>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="conn1.asp"-->
<%
'//////////////读出数据并且赋值给数组
sql="select * from news1 where tid=5 order by id desc"
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
all=rs.RecordCount
all=cint(all)
response.Write "总共有"&all&"数据<br>"
id=1
dim title(1100)
dim content(1100)
do while not id>all
response.Write id&"/"&all&"<br>"
title(id)=rs("title")
content(id)=rs("info")
id=id+1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
'response.Write title(40)
'////////////读出数据并且赋值给数组
id=1
do while not id>all
rs1.open "select top 1 * from news ",conn1,1,3
rs1.addnew
rs1("class")=47
rs1("title")=title(id)
rs1("content")=content(id)
rs1("author")=7
rs1("from")=5
rs1("count")=1
rs1("editor")="Admin"
rs1("IsChecked")=1
rs1("AddTime")=now()
rs1.update
id=id+1
rs1.close
loop
response.Write("OK")
%>