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

首頁 > 編程 > ASP > 正文

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

2020-07-27 13:23:20
字體：大 中 小
來源：轉載
供稿：網友
''===================================================================
''從文本文件中讀取信息，取其中的一部分，并且將其插入到數據庫中去……
'' xhony@163.com
'' version 1.0
''===================================================================
<%

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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 武宣县| 金山区| 康乐县| 德化县| 平潭县| 孝感市| 扶余县| 通江县| 太仆寺旗| 当雄县| 靖安县| 平谷区| 吉木萨尔县| 西畴县| 三明市| 涞源县| 丹阳市| 会同县| 宜兴市| 健康| 临江市| 宣化县| 方正县| 沿河| 漯河市| 岑巩县| 阿鲁科尔沁旗| 车致| 手游| 大田县| 元江| 廊坊市| 威海市| 固原市| 综艺| 杭州市| 彭水| 汝城县| 金门县| 文昌市| 千阳县|