前两天一位朋友在论坛中问到怎样把数据库成批倒入另外的数据库，当时只是简单的回答了一下用循环就可以了，正好在我论坛改版碰到原来精华贴子需要倒入到新的数据库中，于是就写了下面一段程序来实现，很简单，大家参考一下吧~！

<!------把所有精华贴子加入新数据库good v0.1---------->
<!--#include file="conn.asp"-->
<%
    dim announceid
    dim username
    dim useremail
    dim boardid
    dim topic
    dim body
    dim dateandtime
    dim hits
    dim length
    dim Expression
         REM 打开ACCESS数据库
    set uconn=server.createobject("adodb.connection")
    DBPath = Server.MapPath("club.mdb")
    uconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
         REM 打开SQL数据库
    set conn=server.createObject("ADODB.Connection")
    connstr="DSN=aspsky;UID=sa;PWD="
        conn.open connstr

    set urs=uconn.execute("SELECT * FROM bbs1 WHERE isbest=1 ORDER BY announceID")
    do while not urs.eof
        announceid=urs("announceid")
        username=trim(urs("username"))
        useremail=trim(urs("useremail"))
        boardid=urs("boardid")
        topic=trim(urs("topic"))
        body=trim(urs("body"))
        dateandtime=urs("dateandtime")
        hits=urs("hits")
        length=urs("length")
        Expression=urs("Expression")
        dim cmdTemp
    dim InsertCursor
        dim dataconn
        Set DataConn = Server.CreateObject("ADODB.Connection")
        dataconn.open connstr
        Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set InsertCursor = Server.CreateObject("ADODB.Recordset")
        cmdTemp.CommandText="SELECT * FROM good WHERE (UserName IS NULL)"
        cmdTemp.CommandType = 1
        Set cmdTemp.ActiveConnection = dataconn
               InsertCursor.Open cmdTemp, , 1, 3
             InsertCursor.AddNew
        InsertCursor("BoardID")=boardID