asp分行读取txt文件，有分隔符，存储到access

最新推荐文章于 2022-06-08 14:42:51 发布

原创最新推荐文章于 2022-06-08 14:42:51 发布 · 1.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#asp #存储 #vbscript #session #sql #access

ASP 专栏收录该内容

176 篇文章

订阅专栏

本文介绍了一种使用ASP和VBScript从TXT文件中读取数据，并将这些数据存储到数据库的方法。通过创建文件系统对象，逐行读取文本文件内容，并利用ADO组件将数据插入到指定的数据库表中。

txt文件是下面这样的，
一行一条数据，用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<%
filespec=server.mappath("txt.txt")
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("line"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("line"&j),",")
'arry(0),arry(1),arry(2)
'分别为:张三男 30岁
'然后进行数据存储
set rs3=server.createobject("adodb.recordset")
sql="select * from keywords"
rs3.open sql,conn,3,3
rs3.addnew
rs3("text")=arry(0)
rs3("url")=arry(1)
rs3.update

response.write session("line"&j)+"<br>"
next
%>

原文地址:http://www.corange.cn/archives/2010/05/3626.html