|
|
主题: 能不能提供一个计数器?
|
小义zfy520
职务：普通成员
等级：3
金币：2.0
发贴：965
注册：2003/3/30 16:46:57
|
#12003/5/12 21:48:19
我想在主页上放个计数器.简单能记录访问的人数就可以了.
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
|
#22003/5/12 23:12:07
<%
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)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
顺手写的。 加到您需要计数的那个页面中， 使用的前提是，您的空间支持ＦＳＯ。
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#32003/5/13 8:59:38
你申请一个免费的好了
|
阿华
职务：普通成员
等级：6
金币：10.0
发贴：5230
注册：2002/4/20 21:16:55
|
#42003/5/13 13:17:24
请问那里有免费的？
|
阿华
职务：普通成员
等级：6
金币：10.0
发贴：5230
注册：2002/4/20 21:16:55
|
#52003/5/13 13:23:15
对了还要设置些什么东东吗？
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
|
#62003/5/13 14:07:22
我的那个？
不用，会自动创建的。
|
阿华
职务：普通成员
等级：6
金币：10.0
发贴：5230
注册：2002/4/20 21:16:55
|
#72003/5/13 15:18:51
如果我要看效果，为啥看不到啊？
|
阿华
职务：普通成员
等级：6
金币：10.0
发贴：5230
注册：2002/4/20 21:16:55
|
#82003/5/13 15:19:43
比如计数器的字的大小，还有样式怎么设置呢？
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
|
#92003/5/13 15:51:22
没法设置。
这是把访问量写入txt 文件的代码。
|
tangzs
职务：普通成员
等级：1
金币：0.0
发贴：9
注册：2003/5/21 15:11:07
|
#102003/5/21 15:26:37
网上搜一下，很多的啊
|
