亚洲乱色熟女一区二区三区丝袜,天堂√中文最新版在线,亚洲精品乱码久久久久久蜜桃图片,香蕉久久久久久av成人,欧美丰满熟妇bbb久久久

前兩天一位朋友在論壇中問(wèn)到怎樣把數(shù)據(jù)庫(kù)成批倒入另外的數(shù)據(jù)庫(kù)，當(dāng)時(shí)只是簡(jiǎn)單的回答了一下用循環(huán)就可以了，正好在我論壇改版碰到原來(lái)精華貼子需要倒入到新的數(shù)據(jù)庫(kù)中，于是就寫(xiě)了下面一段程序來(lái)實(shí)現(xiàn)，很簡(jiǎn)單，大家參考一下吧~！

<!--#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 打開(kāi)ACCESS數(shù)據(jù)庫(kù)
set uconn=server.createobject("adodb.connection")
DBPath = Server.MapPath("club.mdb")
uconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
REM 打開(kāi)SQL數(shù)據(jù)庫(kù)
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
InsertCursor("UserName")=UserName
InsertCursor("UserEmail")=UserEmail
InsertCursor("Topic")=Topic
InsertCursor("Body")=Body
InsertCursor("DateAndTime")=DateandTime
InsertCursor("hits")=hits
InsertCursor("length")=length
InsertCursor("Expression")=Expression
InsertCursor.Update
response.write "轉(zhuǎn)化紀(jì)錄"&announceid&"成功<br>"
urs.movenext
loop
urs.close
rs.close
set conn=nothing
set uconn=nothing
%>

該文章在 2012/1/31 9:13:32 編輯過(guò)