<%
dim drivername,chs
drivername="driver=;server=localhost;database=discuz;uid=root;pwd=;"
set conn=server.createobject("adodb.connection")
conn.open drivername
'之前先執行下面這一句,這句是解決讀取資料庫亂碼問題的關鍵
set chs=conn.execute("set names 'gb2312'")
intid = request.querystring("intid")
if len(intid)<1 or isnumeric(intid)=false then
intid=0
else
intid=clng(intid)
end if
set rs = server.createobject("adodb.recordset")
'取得當前處理的資料
set rs = server.createobject("adodb.recordset")
rs.open "select top 1 * from info where id>"&intid&" order by id asc",conns,1,1
if not rs.eof then
aid=rs("id")
title=trim(rs("title"))
content=trim(rs("content"))
content=replace(content," "," ")
content=replace(content,"?","")
content = replace(content, "
", chr(10))
content = replace(content, chr(13), chr(10))
content = replace(content, chr(10)&chr(10), chr(10))
else
response.write "處理完畢！"
response.end()
end if
rs.close
'取得最大pid
rs.open "select * from cdb_posts order by pid desc limit 1",conn,1,1
newpid=rs("pid")+1
rs.close
'取得最大dateline
rs.open "select * from cdb_threads order by dateline desc limit 1",conn,1,1
newdateline=rs("dateline")+1
rs.close
'insert
'取得最大tid
rs.open "select * from cdb_threads order by tid desc limit 1",conn,1,1
newtid=rs("tid")+1
rs.close
'寫入cdb_threads表
rs.open "select * from cdb_threads where 1=2",conn,1,3
rs.addnew
rs("tid")=newtid
rs("fid")=10
rs("iconid")=0
rs("typeid")=0
rs("readperm")=0
rs("price")=0
rs("authorid")=1
rs("dateline")=newdateline
rs("lastpost")=newdateline
rs("views")=0
rs("replies")=0
rs("displayorder")=0
rs("highlight")=0
rs("digest")=0
rs("rate")=0
rs("blog")=0
rs("special")=0
rs("attachment")=0
rs("subscribed")=0
rs("moderated")=0
rs("closed")=0
rs("itemid")=0
rs("supe_pushstatus")=0
rs.update
rs.close
sql2="update cdb_threads set author='admin',subject='"&title&"',lastposter='admin' where tid="&newtid
conn.execute(sql2)
'----------------------------------
'寫入cdb_posts
rs.open "select * from cdb_posts where 1=2",conn,1,3
rs.addnew
rs("pid")=newpid
rs("fid")=10
rs("tid")=newtid
rs("first")=1
rs("authorid")=1
rs("dateline")=newdateline
rs("invisible")=0
rs("anonymous")=0
rs("usesig")=0
rs("htmlon")=0
rs("bbcodeoff")=-1
rs("smileyoff")=-1
rs("parseurloff")=0
rs("attachment")=0
rs("rate")=0
rs("ratetimes")=0
rs("status")=0
rs.update
rs.close
set rs = nothing
sql2="update cdb_posts set author='admin',subject='"&title&"',message='"&content&"',useip='127.0.0.1' where pid="&newpid
conn.execute(sql2)
response.write "
已經成功轉移了"&intid&"條資料,資料編號是"&aid&"！
"response.write ""
%>
Excel資料匯入到Access
下面是asp的全部程式，需要做的是建乙個test.mdb資料庫和乙個test.xls的excel 查詢excel準備匯入到access sql select from sheet1 要匯入的excel資料裡面的表的名稱，後面一定要加 set rs conn2.execute sql while no...
Excel資料匯入到Access
下面是asp的全部程式，需要做的是建乙個test.mdb資料庫和乙個test.xls的excel 查詢excel準備匯入到access sql select from sheet1 要匯入的excel資料裡面的表的名稱，後面一定要加 set rs conn2.execute sql while no...
csv 匯入到 access中去
csv中有500萬資料，匯入到access中去，每6萬條資料為1table 先是參照著來寫 1.找不到可安裝的 isam 中，使用了4.0 2.d test.csv 不是乙個有效的路徑。確定路徑名稱拼寫是否正確，以及是否連線到檔案存放的伺服器。真是蛋疼啊。使用了oledbconnection和ole...