Question

怎么通过访问asp创建txt文本！

就是访问本目录的asp后，asp就会在本目录下创建一个txt的文件，并写入指定的内容！求高手，直接把源码贴出！

Answer 1

在本目录里每个ASP程序后面伏辩加上这段，要写入的内容你自己改：缺陪缺
<%
Dim objFso,objTemp,objFile
Dim SitePath
SitePath = Server.Mappath(".") & "乱辩\"
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.CreateTextFile(SitePath & "Log.txt", True)
objFile.Write "内容"
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>

追问

谢谢你，但是我想每访问一次asp。 asp创建的txt里的内容会逐渐增加1，从0开始增加，可以帮我写下吗！！！！！就是第一次访问asp 创建txt后写入1 第二次访问这个asp后 创建txt写入2，能做到吗 大神！！！！

追答

改一下就可以：

Answer 2

通过FSO来建立文铅明件文件，败瞎其实很简单，通过下面的代码即可建立一个TEST的文本文件：

<%
fileName=Server.MapPath("TEST.txt")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'初始化
Function Init()

'检查文件是否存察激空在，不存在则创建，并写入0
If Not fs.FileExists(fileName) Then
fs.CreateTextFile fileName,True,True
Set txt=fs.OpenTextFile(fileName,2,True)
txt.Write 0
txt.close()
Set txt=Nothing
End If
%>