ASP读文件，我只读到最后一行，大伙来看看。

[smallmuda]

Set MyFolder=FSO.GetFolder(""&Abso_Path&"")
Dim FileContent
FileContent=""
For EACH thing in MyFolder.Files
'Response.Write "<p>"&thing
FileName=thing.name
'Msg_id=left(""&FileName&"",InStr(""&FileName&"","."))
if not filename="SendFmtUdhi.Txt" then
Set MyTextFile=FSO.OpenTextFile(""&thing&"")
WHILE not MyTextFile.AtEndOfStream

READ=MyTextFile.ReadLine&"!@!" '我想在每行后面加上“"!@!"”

WEND
FileContent=FileContent&READ
'response.write "<p>"&FileContent
end if
Next

ASP读文件，我只读到最后一行，大伙来看看。

[muxinpp]

肯定读到最后一行嘛

[muxinpp]

READ=read&MyTextFile.ReadLine&"!@!"

[smallmuda]

我明白了FileContent=FileContent&READ
放错位置了
WHILE not MyTextFile.AtEndOfStream
READ=MyTextFile.ReadLine&"!@!" '我想在每行后面加上“"!@!"”

FileContent=FileContent&READ
WEND

但是还有个问题，我不想在最后一行后面也加上“"!@!"”
就是说比如有3行
我只要在第1，2行加上“"!@!"”

[muxinpp]

那你把第3行的"!@!"去了就行了