ASP网页计数器问题

这个是我网站中的程序

=============================

这个相当与你的txtcounter.asp

注意你修改一下读取记数的文件位

置,我的是在/count/counter.txt

中

=============================

<% AbsoluteFile = Server.MapPath("/count/counter.txt")

Set objFso = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFso.OpenTextFile(AbsoluteFile)

Num = objFile.ReadLine

objFile.close

Set objFile = Nothing

For i=1 To Len(Num)

Response.Write Mid(Num, i, 1)

Next

If IsEmpty(Session.Value("Num")) Then

Num = Num + 1

Num = Right("000000" &Num, 6)

Set objFile = objFso.CreateTextFile(AbsoluteFile)

objFile.WriteLine(Num)

objFile.Close

Set objFile = Nothing

End If

Set objFso = Nothing

Session.Value("Num") = True %>

============================

这个是我在主页中加的代码

============================

<td width="228" height="27" bgcolor="CFCFCF" align="center">您是第 <!-- #include file="count/counter.asp" -->位访客</td>

补充:我的也是静态HTML

要不你把这里变一下：

If Session("Counts") = "" Then

set Session("Counts") = counts

因为站点所在盘是NTF格式，所以要开放权限，这样程序才能写入数据

进入ASP所在文件夹---空白处点右键-属性-安全，开放Users所有权限

如果还不行，就再到C盘 WIN目录下，

打开temp文件夹，然后--空白处点右键-属性－－安全－－

把所有的访问帐号前的 "修改"框 打上勾

没有出现该选项，就点工具-文件夹属性，然后取消“显示简单共享”再按上面的 *** 作就行了

---