JS如何在当前目录创建txt文件

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:37:32
我从别处拷来一段，但是这指定了绝对目录，我想在当前目录创建txt文件
var fso, f1, ts, s;
var ForReading=1;
fso=new ActiveXObject("Scripting.FileSystemObject");
f1=fso.CreateTextFile("f:\\st.txt",true);
f1.WriteLine("Hello World!");
f1.WriteBlankLines(1);
f1.Close();
感谢sm_xxy，你给的代码在html里可以找到当前目录了，但是在JS的ASP里我不知道如何应用，或者可以给一个完整的创建txt的代码吗，也就是用ASP创建TXT，txt里要写入一个变量。多谢了，如果可以给我，我会追加100分。我要的是JS的ASP代码，不要在html里嵌入的JS代码，在html里嵌入的JS代码在ASP里无法运行！谁给个完整代码？

<%
Public Function ReportFileStatus(FileName)
Dim msg,fso
msg = -1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function

Public Function ReadTxtFile(FileName)
Const ForReading = 1, ForWriting = 2
Dim otf, msg, fso
set fso=CreateObject("Scripting.FileSystemObject")
If ReportFileStatus(FileName) = 1 then
Set otf = fso.OpenTextFile(FileName,ForReading)
if otf.atendofstream <> true then
msg = otf.readAll
ReadTxtFile = msg
otf.Close
Else
ReadTxtFile = -1
End if
End if
End Function

Public Function WriteTxtFile(FileName)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim fso, msg, ctf, otf
Set fso = Server.CreateObject("Scripting.FileSystemObject")