1.0w+
社区成员
- 主页
我在局域网上做了一个主页，怎么给他添加计数器？
各位大侠好！我们单位开通了局域网（不与互联网相连），我在win98+pws下放了一个主页，现在想添加一个计数器，我该怎么做？
...全文
请发表友善的回复…
发表回复
wuxiaomei1 2002-01-31
谢谢，能具体点说吗？
bjhz 2002-01-31
那你不要写服务器端脚本或者CGI程序（ASP，PHP etc..），将访问次数永久记录到数据库或者一个文件里，每接到一个请求，将该数字增加1。
llrock 2002-01-29
存成counter.asp吧，
<%
dim conn2
dim connstr2
on error resume next
connstr2="DBQ="+server.mappath("db/counter.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open connstr2
dim counters
if session("in")<>"in" then
session("in")="in"
application.lock
conn2.Execute"Update counter set counter=counter+1"
end if
set rs=conn2.Execute("select * from counter")
counters=rs("counter")
rs.close
application.unlock
Dim S, i,G
dim countlong
countlong=6
G =CStr( counters )
S =Len(G) '先将数值转换成字符串
'逐个取字符串 S 的每个字节,然后串成<IMG SRC=?.gif> 图形标记
For i = 1 to countlong - S
response.write"<img src='/counter/img/0.gif'>"
next
for i=1 to S
response.write "<img src='/counter/img/" & mid(G,i,1) & ".gif'></img>"
next
set rs=nothing
%>
数据库里就一个表；一个counter字段，ok
b别忘了做十张图片，0.gif,...,9.gif
搞定，
<%
dim conn2
dim connstr2
on error resume next
connstr2="DBQ="+server.mappath("db/counter.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open connstr2
dim counters
if session("in")<>"in" then
session("in")="in"
application.lock
conn2.Execute"Update counter set counter=counter+1"
end if
set rs=conn2.Execute("select * from counter")
counters=rs("counter")
rs.close
application.unlock
Dim S, i,G
dim countlong
countlong=6
G =CStr( counters )
S =Len(G) '先将数值转换成字符串
'逐个取字符串 S 的每个字节,然后串成<IMG SRC=?.gif> 图形标记
For i = 1 to countlong - S
response.write"<img src='/counter/img/0.gif'>"
next
for i=1 to S
response.write "<img src='/counter/img/" & mid(G,i,1) & ".gif'></img>"
next
set rs=nothing
%>
数据库里就一个表；一个counter字段，ok
b别忘了做十张图片，0.gif,...,9.gif
搞定，
Jebel 2002-01-29
将下面文件存为a.asp
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
ip=Request.ServerVariables("REMOTE_ADDR")
'response.write ip
'response.end
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 not ip=session("OldIp") then
session("OldIp")=ip
NewHits = OldHits + 1
else
NewHits = OldHits
end if
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<title>Graphic Counter</title>
</head>
<body>
<%
S = CStr( NewHits )
k=6-Len(s)
for n=1 to k
G=G&"<img src=0.gif align=texttop>"
next
For i = 1 to Len(S)
G = G & "<img src=" & Mid(S, i, 1) & ".gif align=texttop>"
Next
%><center><%Response.Write G
%></center>
</body>
</html>
做0到 9,9张数字图片,分别存为0.gif 1.gif .........9.gif
建一个hits.txt文本文件
然后把<iframe src=a.asp marginheight="0"noresize scrolling=no frameborder=0 width=100% height=17 hspace="0" vspace="0"></iframe>
放在要记数的网页代码中即可搞定
全部给你讲了,原码也给你了
20分记得全给我哦!要不没有下次哦~~~
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
ip=Request.ServerVariables("REMOTE_ADDR")
'response.write ip
'response.end
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 not ip=session("OldIp") then
session("OldIp")=ip
NewHits = OldHits + 1
else
NewHits = OldHits
end if
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<title>Graphic Counter</title>
</head>
<body>
<%
S = CStr( NewHits )
k=6-Len(s)
for n=1 to k
G=G&"<img src=0.gif align=texttop>"
next
For i = 1 to Len(S)
G = G & "<img src=" & Mid(S, i, 1) & ".gif align=texttop>"
Next
%><center><%Response.Write G
%></center>
</body>
</html>
做0到 9,9张数字图片,分别存为0.gif 1.gif .........9.gif
建一个hits.txt文本文件
然后把<iframe src=a.asp marginheight="0"noresize scrolling=no frameborder=0 width=100% height=17 hspace="0" vspace="0"></iframe>
放在要记数的网页代码中即可搞定
全部给你讲了,原码也给你了
20分记得全给我哦!要不没有下次哦~~~
40Star 2002-01-29
错 错错错错
错错错 错错错错错错错错
错错错错 错错错错错错错
错错错错 错错错 错错
错错错错错 错错错 错错
错错 错错 错错错
错错错 错错错错错错
错错错 错错错错错错
错 错错错 错错错错错
错错错 错错错
错错错 错错错错
错错错 错错错错错错错错错
错错 错 错错错错错 错错错
错错 错 错错错 错错错
错错 错错 错错错错 错错错
错 错错 错错错错错错
错 错错 错错错错错
错 错错 错错错错错
错 错错 错错错错错错错错
错错错错错 错错错错错 错错错错错
错错错错 错错错错错错 错错错错错错
错错错 错错错 错错错错错错错错
错 错错错错错错错错
错错错错错错
starcbh 2002-01-29
asp
wuxiaomei1 2002-01-29
试了一下，可以！
谢谢大家！
分到底收到没有？
这个计数器在“东方网页王”中好象插不进去？
谢谢大家！
分到底收到没有？
这个计数器在“东方网页王”中好象插不进去？
wuxiaomei1 2002-01-29
我给的分大家收到没有？如果没有，请告诉我该怎么给别人加分！
wuxiaomei1 2002-01-29
谢谢大家，我先去试试！