帮忙写个ASP文件，很简单的

要求是生成一个名为XXX.TXT文件。当再次向该ASP发送信息时，重写XXX.TXT文件。也就是将XXX.TXT文件内容清空后再写入文本。

注：写入的文本必须顶格

要求变量：XXX、文本内容 这2个可提交的变量。

楼上的回答也可以,不过可能会有编码,路径等问题

<%
Function CreateFile(Saveurl,Content,setcharset)
dim Stm,FileName
FileName = Server.MapPath(Saveurl)
Set Stm = Server.CreateObject("Adodb.Stream")
with Stm
.Open
.Charset = setcharset
.Position = Stm.Size
.writeText=Content
.SaveToFile FileName,2
.Close
End with
Set Stm = Nothing
End Function

Saveurl="XXX.TXT"
Content="文本内容"
Call CreateFile(Saveurl,Content,"gb2312")
%>

Saveurl 可以是包含路径的如 /createfile/xxx.txt"

Content 可以是包含html代码

<%@language="javascript"%> <%

function CreateFile(FileName,Content) { FileName=Server.Mappath(FileName); var FSO = Server.CreateObject("Scripting.FileSystemObject"); var fd=FSO.createtextfile(FileName,true); fd.writeline(Content); } var xxx="fjkdfkajskrfjklajdsfkjdsakur"; var xx="t.txt"; CreateFile(xx,xxx); %>

不用谢，记得踩纳就是了