从文本文件中读取信息并存储入数据库

2016-01-29 18:20 23 1 收藏

从文本文件中读取信息并存储入数据库,从文本文件中读取信息并存储入数据库

【 tulaoshi.com - ASP 】

<%

dim fso,f1
Const ForReading = 1

set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:doitinfo2.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
%

来源:http://www.tulaoshi.com/n/20160129/1505369.html

上一篇：巧妙设置Windows 2000启动项
下一篇：用XML数据岛解决用户界面问题 - 1

看过《从文本文件中读取信息并存储入数据库》的人还看了以下文章更多>>

怎样读取一个文本文件的内容?

标签： ASP

Ever want to know how to display the contents of a text document using ASP. Here is a easy way to read from a text file <!--Start of ASP Code---- <% 'by James Seymour, http://jamesdot.org Dim write Dim fileSysObj, tf, read ' Read the read.txt ' Store the file name where the Inform...

在多行文本框中显示读取信息

标签： ASP

在实际的编程中，很多时候我们需要在多行的文本框中显示读取的信息，但是使用一般的方法是不行的，比如 <%=rs("字段名")%，结果就会不能按者您的要求输出正确的结果，在这个时候，我们就需要使用一些别的方法，下面是我在实际中使用的一些方法，具体的代码请见： <textarea rows="4" name="remark&q...

如何从ACCESS数据库中读取图形(续)

标签： ASP

注意的是你也可以从一个文件中新建一个位图对象，但使用这样的方式保存在数据库中的图形格式是浏览器不能够识别的。当你往数据库中保存图象时，你应该知道你需要使用什么格式来保存你可以把文件中的每一个字节保存下来，或则通过ACCESS/Foxpro的把图形保存为一个OLE格式。你使用什么格式保存图象决定了你在ASP中用什么格式来读出图...

INI参数(文本文件)的读写

标签：编程语言网络编程

//参数(文本文件)的读写,by chillming import java.io.*; public class IniFile{ private String FileName = ""; public IniFile(String fn){ FileName = fn; } //返回参数的值 public String ReadPara(String Para,String PV){ String PName = ""; String PValue = PV; String LineStr = ""; int pos = 0; try{...

ASP中从数据库读取二进制文件数据代码

标签： ASP

<% driver_name1="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\数据库\TREE.MDB" '根目录下数据库打开语句 dim search,rs,j search="select * from Files where ID=" & request.querystring("ID") set my_conn=server.CreateObject ("adodb.connection") my_conn.open d...

查看更多精彩>>