<%
Dimfso, F1
ConstforReading = 1
setfso = createobject ( "Scripting.FilesyStemObject")
``FSO 객체를 사용하여 정보를 읽으십시오.
setf1 = fso.opentextfile ( "e : /doit/info2.txt", forreading)
``읽을 파일을 엽니 다
DIMCONN, RST
setconn = server.createobject ( "adodb.connection")
``데이터베이스 연결을 만들고 작업을 수행합니다
setrst = server.createobject ( "adodb.recordset")
conn.open "driver = {Microsoft AccessDriver (*. mdb)}; dbq ="& server.mappath ( "db1.mdb")
rst.ActiveConnection = Conn
Dimfread
dowhilenotf1.atendofstream
``DO ... 루프 루프와 함께 데이터를 삽입하십시오
fread = f1.readline
line = split (fread, ":::")
rst.source = "insertintobarcode1 (barcode1) 값 ("& trim (line (0)) & ")" "
rsst.open
고리
f1.close
conn.close
'' ''Allover
%>