<%
Dimfso, F1
ConstForReading = 1
setfso = createObject ("scripting.filesystemObject")
'' Verwenden Sie das FSO -Objekt, um Informationen zu lesen.
setf1 = fso.opentextFile ("e: /doit/info2.txt", Forreading)
'' Öffnen Sie die zu gelesene Datei
Dimconn, RST
setConn = server.createObject ("adodb.Connection")
'' Erstellen Sie eine Datenbankverbindung und führen Sie Vorgänge aus
setRst = server.createObject ("adodb.recordset")
conn.open "triver = {Microsoft AccessDriver (*. Mdb)}; dbq =" & server.mappath ("db1.mdb")
RST.ACTIVECONNECTION = Conn
Dimfread
dowhilenotf1.atendofstream
'' Fügen Sie Daten mit DO ... Schleifenschleife ein
fread = f1.readline
Zeile = spalten (frei, ":::")
rst.source = "InsertIntobarcode1 (Barcode1) -Werte (" & trim (Zeile (0)) & ")"
rsst.open
Schleife
F1.CLOSE
conn.close
Allover
%>