用FSO可以.
基本案例,记录某网站的访问人数.
<html>
<head>
<title>计数器示例</title>
</head>
<body>
<%
dim visitors
whichfile=server.mappath("count.txt")
Set js=CreateObject("Scripting.FileSystemObject")
Set thisfile=js.OpenTextFile(whichfile)
Visitors=thisfile.readline
Thisfile.close
Visitors=visitors+1
Response.write visitors
Set out=js.CreateTextFile(whichfile)
Out.WriteLine(visitors)
Out.close
Set js=nothing
%>
</body>
</html>
以上内容全部为抄袭，以下是自己写的，和上面的相同。
<%
dim a,b,c,d
set a=server.createobject("scripting.filesystemobject") '创建对象实例
set b=a.Opentextfile("c:/1.txt") '打开1.txt
c=b.readline() '用c读取内容，方式为一行一行的读。
b.close
c=c+1
response.write c
set d=a.createtextfile("c:/1.txt")
d.writeline(c) '把c写入到文件1.txt中，方式为一行一行的。
d.close
set a=nothing '释放对象实例。
%>
把以前学过的知识又温习了一遍，谢谢~~~~
2008-08-28 22:52
