asp如何读取txt文件
如何读取txt文件内容，一行一行的读取，读取一行后添加到数据库，再读取下一行，可以实现吗
[解决办法]

sConn = "Server=127.0.0.1;Database=db;User Id=xxx;Password=xxx;"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "SELECT xx FROM tbl WHERE 1=0", 1, 4

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile("c:\xxx\xxx.txt", 1, False)
Do While Not oFile.AtEndOfStream
   sLine = oFile.ReadLine()
   rs.AddNew
   rs("xx") = sLine
Loop
oFile.Close
Set oFile = Nothing
Set oFS = Nothing
rs.UpdateBatch
If rs.State<>0 Then rs.Close
conn.Close
Set conn = Nothing

[解决办法]
利用FSO的ReadLine() 这个是读取一行的
[解决办法]

sConn = "Server=127.0.0.1;Database=db;User Id=xxx;Password=xxx;"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "SELECT xx FROM tbl WHERE 1=0", 1, 4

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile("c:\xxx\xxx.txt", 1, False)
Do While Not oFile.AtEndOfStream
   sLine = oFile.ReadLine()
   rs.AddNew
   rs("xx") = sLine
Loop
oFile.Close
Set oFile = Nothing
Set oFS = Nothing
rs.UpdateBatch
If rs.State<>0 Then rs.Close
conn.Close
Set conn = Nothing

[解决办法]

引用:

Set oFile = oFS.OpenTextFile(server.mapPath("xxx.txt"), 1, False) 这样写就解决了 唉 又是我自己解决啊

楼主。。⊙⊙b汗。。。。。