<%
Set MyObj=Server.CreateObject("IISSample.PageCounter")
MyObj.PageHit()
%>
<%
= MyObj.Hits
%>
提示我无效类别字符串
还有一个问题随便也问一下
对象实例.HITS(页面名称)
这个页面名称指的是什么?是路径名还是什么?
參考答案:给你一个计数器代码：
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
if session("connected")="" then
OldHits = OldHits + 1
else
OldHits=OldHits
end if
NewHits=OldHits
session("connected")=true
Set OutStream= FileObject.CreateTextFile (HitsFile, True,false)
OutStream.WriteLine(OldHits)
%>
在网站的根目录建一个hits.txt文本文件，输入0，保存
在需要显示计数数字的地方用<%=OldHits%>语句，很方便的
