asp读取文本到数据库

时间：2008-10-04 17:27:15浏览：9386 转载



<%
dim fso,f1
Const ForReading = 1

set fso=createobject(\"Scripting.FileSystemObject\")
set f1=fso.OpenTextFile(Server.mappath(\"1.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 
fread=f1.readline
line=split(fread,\":::\")
    'response.write trim(line(0))&\"
\"
    'rst.source=\"insert into path() values (\"&trim(line(0))&\")\"
    'rst.open
    conn.execute(\"insert into [path](path) values('\"&trim(line(0))&\"')\")
loop

f1.close
conn.close
%>

1

上一篇：IIS出现Active Server Pages错误ASP 0201的修复工具
下一篇：JS验证Email格式

发表评论

昵称：验证码：

关于博主

博主：BlueCode

职业：web程序

简介：2002年开始一直从事Web制作，网站运营，会PHP+MYSQL ASP+MSSQL，微信开发

Linux文章
PHP文章
随机文章

BlueCode的自留地

asp读取文本到数据库

关于博主