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

首頁 > 編程 > ASP > 正文

從文本文件中讀取信息并存儲入數據庫

2024-05-04 10:58:42
字體：大 中 小
來源：轉載
供稿：網友
<% 
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso對象讀取信息。
set f1=fso.OpenTextFile("E:/doit/info2.txt", ForReading)
''打開要讀取的文件
dim conn,rst

set conn=server.createobject("adodb.connection")
''建立數據庫連接，執行操作
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循環體插入數據
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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 芜湖县| 平邑县| 浏阳市| 土默特左旗| 威海市| 辽源市| 台中市| 花垣县| 平潭县| 榆中县| 太仆寺旗| 宽城| 永安市| 临海市| 荔浦县| 莱阳市| 老河口市| 赣榆县| 阿拉善右旗| 新丰县| 张北县| 合作市| 尉氏县| 金山区| 黄骅市| 德保县| 蓬安县| 南漳县| 西畴县| 饶阳县| 伊金霍洛旗| 瑞安市| 遂昌县| 乌兰察布市| 平潭县| 海门市| 夏邑县| 通道| 博野县| 新巴尔虎左旗| 桃园市|