国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

從文本文件中讀取信息并存儲(chǔ)入數(shù)據(jù)庫

2020-07-27 13:21:13
字體:
供稿:網(wǎng)友
<% 
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso對(duì)象讀取信息。
set f1=fso.OpenTextFile("E:/doit/info2.txt", ForReading)
''打開要讀取的文件
dim conn,rst

set conn=server.createobject("adodb.connection")
''建立數(shù)據(jù)庫連接,執(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
%>
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 仁布县| 盐亭县| 额敏县| 凌源市| 伊川县| 商丘市| 隆德县| 盐源县| 富蕴县| 平远县| 庐江县| 厦门市| 吕梁市| 普定县| 鄂尔多斯市| 毕节市| 泾源县| 周至县| 柳林县| 呼玛县| 景德镇市| 德格县| 湄潭县| 南康市| 宣城市| 宿州市| 达日县| 荃湾区| 红河县| 禹州市| 溧阳市| 濮阳市| 滨海县| 察雅县| 吉林省| 双流县| 井研县| 阜南县| 石台县| 淳化县| 枣庄市|