從文本文件中讀取信息并存儲(chǔ)入數(shù)據(jù)庫(kù)
更新時(shí)間：2006年12月14日 00:00:00 作者：
<%
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso對(duì)象讀取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打開(kāi)要讀取的文件
dim conn,rst
set conn=server.createobject("adodb.connection")
''建立數(shù)據(jù)庫(kù)連接，執(zhí)行操作
set rst=server.createobject("adodb.recordset")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")
rst.activeconnection=conn
dim fread
do while not f1.atEndOfStream
''用do... loop循環(huán)體插入數(shù)據(jù)
fread=f1.readline
line=split(fread,":::")
rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"
rst.open
loop
f1.close
conn.close
''''all over
%>
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso對(duì)象讀取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打開(kāi)要讀取的文件
dim conn,rst
set conn=server.createobject("adodb.connection")
''建立數(shù)據(jù)庫(kù)連接，執(zhí)行操作
set rst=server.createobject("adodb.recordset")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")
rst.activeconnection=conn
dim fread
do while not f1.atEndOfStream
''用do... loop循環(huán)體插入數(shù)據(jù)
fread=f1.readline
line=split(fread,":::")
rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"
rst.open
loop
f1.close
conn.close
''''all over
%>
相關(guān)文章
忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)
忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)...2006-11-11
ASP+MSSQL2000 數(shù)據(jù)庫(kù)被批量注入后的解決方法
這陣子，采用ASP+MSSQL設(shè)計(jì)的很多網(wǎng)站可能遭遇到sql數(shù)據(jù)庫(kù)被掛馬者插入JS木馬的經(jīng)歷；這不，朋友的一個(gè)網(wǎng)站就被黑客忽悠了一把2009-02-02
簡(jiǎn)單的說(shuō)，asp是位于服務(wù)器端的腳本運(yùn)行環(huán)境，通過(guò)這種環(huán)境，我們可以創(chuàng)建和運(yùn)行動(dòng)態(tài)的、交互式的Web應(yīng)用程序，帶來(lái)測(cè)試平臺(tái)。本文將告訴大家如何建立一種簡(jiǎn)單的asp管理系統(tǒng)服務(wù)器。2015-10-10
不用WinRar只有asp將網(wǎng)絡(luò)空間上的文件打包下載
非常不錯(cuò)的asp代碼，此方法，不建議壓縮，大文件，一般的小文件壓幾個(gè)還很好用的2008-08-08
Asp中Server.ScriptTimeOut屬性需要注意的一點(diǎn)分析
Server.ScriptTimeout 這個(gè)屬性給定Asp腳本執(zhí)行的最大時(shí)間，如果asp程序的運(yùn)行時(shí)間超過(guò)了這個(gè)屬性規(guī)定的值，Asp就會(huì)報(bào)錯(cuò)。2011-06-06
SQLServer ADODB.Recordset 錯(cuò)誤“800a0e78”，對(duì)象關(guān)閉時(shí)，不允許操作
今天在幫一個(gè)客戶維護(hù)網(wǎng)站的時(shí)候，運(yùn)行asp提示ADODB.Recordset 錯(cuò)誤“800a0e78”，對(duì)象關(guān)閉時(shí)，不允許操作，原來(lái)是asp與sqlserver的連接出問(wèn)題導(dǎo)致2014-07-07
asp下利用fso實(shí)現(xiàn)文件夾或文件移動(dòng)改名等操作函數(shù)
以后利用fso來(lái)操作文件和文件夾就方便了2008-01-01
經(jīng)常用asp需要特殊的顯示日期，特把比較簡(jiǎn)單的方法整理下，方便大家2008-06-06
修改文件的名字和修改文件夾的名字的asp代碼2008-11-11
ASP中Server.Execute和Execute實(shí)現(xiàn)動(dòng)態(tài)包含(include)腳本的區(qū)別
ASP中Server.Execute和Execute實(shí)現(xiàn)動(dòng)態(tài)包含(include)腳本的區(qū)別,需要的朋友可以參考下。2012-01-01