<%



dim aspdir,Dir
aspdir=request.servervariables("SCRIPT_NAME")

Dir = "aspdir"
HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
File2 = "dir\file1.txt"

On Error Resume Next
Set InStream= FileObject.OpenTextFile (File2, 1, false )
content = CStr(Trim(InStream.ReadLine))
response.write content


%>
<%
newContent="大家好才是真的好！"
Set OutStream= FileObject.CreateTextFile (File2, True)
OutStream.WriteLine(newContent)
%>