UC知道关于ASP的 高手进 翻译下这两段
来源：百度知道 编辑：UC知道 时间：2024/06/18 03:52:51
1．<HTML>
<BODY>
<%
Dim objFSO, objTS1, objTS2, ALine
Set objFSO = Server.CreateObject(""Scripting.FileSystemObject"")
Set objTS1 = objFSO.OpenTextFile(Server.MapPath(""\Ch6\Sample2.txt""), 1)
Set objTS2 = objFSO.CreateTextFile(Server.MapPath(""\Ch6\Sample4.txt""))
Do While Not objTS1.AtEndOfStream
ALine = objTS1.ReadLine
objTS2.WriteLine(ALine)
Loop
objTS1.Close
objTS2.Close
Set objTS1 = Nothing
Set objTS2 = Nothing
Set objFSO = Nothing
%>
</BODY>
</HTML>
2．<HTML>
<BODY>
<%
Dim objFSO, objTS1, objTS2, AChar
Set objFSO = Server.CreateObje
<BODY>
<%
Dim objFSO, objTS1, objTS2, ALine
Set objFSO = Server.CreateObject(""Scripting.FileSystemObject"")
Set objTS1 = objFSO.OpenTextFile(Server.MapPath(""\Ch6\Sample2.txt""), 1)
Set objTS2 = objFSO.CreateTextFile(Server.MapPath(""\Ch6\Sample4.txt""))
Do While Not objTS1.AtEndOfStream
ALine = objTS1.ReadLine
objTS2.WriteLine(ALine)
Loop
objTS1.Close
objTS2.Close
Set objTS1 = Nothing
Set objTS2 = Nothing
Set objFSO = Nothing
%>
</BODY>
</HTML>
2．<HTML>
<BODY>
<%
Dim objFSO, objTS1, objTS2, AChar
Set objFSO = Server.CreateObje
创建文本文件组件
Set objFSO = Server.CreateObject(""Scripting.FileSystemObject"")
打开ample2.txt 文本
Set objTS1 = objFSO.OpenTextFile(Server.MapPath(""\Ch6\Sample2.txt""), 1)
创建 Sample4.txt 文本
Set objTS2 = objFSO.CreateTextFile(Server.MapPath(""\Ch6\Sample4.txt""))
然后就是把Sample2.txt一行一行的写进Sample4.txt文本
----------------------------------------------------