用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
'释放对象实例。
%>
把以前学过的知识又温习了一遍,谢谢~~~~