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