ASP读取文件:

简洁版:
CreateObject("Scripting.FileSystemObject").OpenTextfile(Server.MapPath("Muma.txt"),1,False).Readall

完整版:
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("pic/fuck.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then line=txt.readall 'ReadLine从文件中读取一行数据;Read(N)从文件中读取N个字节的数据;ReadAll读取文件中的所有数据
'response.write "<p align='center'><textarea name='reg' cols=80 rows=25 style=background:#000000;color=#00ff00 id=1>"&line&"</textarea></p>" '显示到textarea


ASP写入/保存文件:

简洁版:
Server.CreateObject("Scripting.FileSystemObject").OpenTextFile(Server.MapPath("test.txt"),2,True).WriteLine Request("TxtData")

完整版:
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
Set File=Fs.OpenTextFile(Server.MapPath("ip.txt"),2,True)    '2覆盖,8追加;True文件不存在则自动创建.Flase不自动创建
File.Writeline ip+":"+port 'file.writeline 会写入换行符,file.write 不会写入换行符
File.Close