asp图片验证代码察看
<%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)
%>
