asp如何读取txt文件

[代码之城]

如何读取txt文件内容，一行一行的读取，读取一行后添加到数据库，再读取下一行，可以实现吗

[一把编程的菜刀]

利用FSO的ReadLine() 这个是读取一行的

[hookee]

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

[代码之城]

引用 3 楼 hookee 的回复:

Visual Basic code?123456789101112131415161718192021sConn = "Server=127.0.0.1;Database=db;User Id=xxx;Password=xxx;"Set conn = CreateObject("ADODB.Connection")conn.Open sConnSet rs = Creat……

Microsoft VBScript runtime error '800a0035' File not found /xxxxxx/xxx/xx/s_MAIL.ASP, line 83 Set oFile = oFS.OpenTextFile("c:\xxx\xxx.txt", 1, False) 说找不到文件 ， 是不是空间上开通权限 对吧。

[hookee]

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) 这样写就解决了 唉 又是我自己解决啊

[Go 旅城通票]

引用 5 楼 Jamie2012 的回复:

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

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