|
|
主题: 求一段代码
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#12002/5/9 13:30:04
我找计数器的原代码，我看过论坛里的ASP计数器代码，不用ASP的可以吗？
用javascript写可以吗？请问哪里有？
谢谢了
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#32002/5/9 13:54:37
那我怎么使用那段ASP文件呢？
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
#42002/5/9 14:03:58
将文件解压到web根目录，在需要使用计数器的页面插入如下代码：
|
起始统计：2001年01月01日
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
Response.write"本站浏览总人数："
MyCounter( Rs("TOTAL") )
Response.write "
"
Response.write"今日浏览总人数："
MyCounter( Rs("TODAY") )
Response.write "
"
Response.write"昨日浏览总人数："
MyCounter( Rs("YESTERDAY") )
Response.write "
"
%> |
<%
Response.write"本月浏览总人数："
MyCounter( Rs("MONTH") )
Response.write "
"
Response.write"上月浏览总人数："
MyCounter( Rs("BMONTH") )
Response.write "
"
N=now
D2 = Datevalue(N)
D1 =#18/12/1997# ' 开始统计日期(月/日/年)
Response.write"开站至今天："
MyCounter( DateDiff("d", D1, D2) )
Response.write "
"
D3 = DateDiff("d", D1, D2)
Response.write"平均一日人数："
MyCounter( Rs("TOTAL")\D3 )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](./gif/") "
Next
Response.write G
End Function
%> |
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#52002/5/9 14:33:10
那我的WEB根目录下已经有了一个index.htm的文件了，他们不会发生冲突吗？还有就是要不要做一个ODBC数据连接呢？
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
#62002/5/9 14:51:19
不会，将上述代码插到你的index.asp。注意，是asp不是htm文件中。
ODBC不用再做，
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
已经完成了。
一定要有ASP的WEB服务。
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#72002/5/10 14:15:39
怎么是这样，我可是第一次 浏览啊，
请问怎么修改呢？
起始统计：2001年01月01日
本站浏览总人数：1368284
今日浏览总人数：2
昨日浏览总人数：2
本月浏览总人数：2
上月浏览总人数：5
开站至今天：1604
平均一日人数：853
还有就是我只想有个一般的计数器，就是可以统计总公访问的人数就可以了，请问怎么修改呢？
有一点急，真的写写斑竹了~！~！~！~！~！
深深的鞠躬~！~！~1`1~！~
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
#82002/5/10 14:26:03
起始浏览人数用Access修改counter.mdb 删掉以下语句： 起始统计：2001年01月01日
Response.write"今日浏览总人数："
MyCounter( Rs("TODAY") )
Response.write "
"
Response.write"昨日浏览总人数："
MyCounter( Rs("YESTERDAY") )
Response.write "
"
<%
Response.write"本月浏览总人数："
MyCounter( Rs("MONTH") )
Response.write "
"
Response.write"上月浏览总人数："
MyCounter( Rs("BMONTH") )
Response.write "
"
N=now
D2 = Datevalue(N)
D1 =#18/12/1997# ' 开始统计日期(月/日/年)
Response.write"开站至今天："
MyCounter( DateDiff("d", D1, D2) )
Response.write "
"
D3 = DateDiff("d", D1, D2)
Response.write"平均一日人数："
MyCounter( Rs("TOTAL")\D3 )
|
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#92002/5/10 14:35:45
我按你的要求做了，但是出现
“本站浏览总人数：
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'MyCounter'
/index.asp, 行371
”这种错误，
我还没有在access 中修改。
不管怎样，真的谢谢你了~！~！~！`
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#112002/5/10 16:50:37
搞定了，我真的谢谢你了，有空请你吃大餐~！~！~！~！~！
：-）））））
|
=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
|
#122002/5/10 20:57:46
呵呵，别客气。 
编辑历史:[这消息被ridincal编辑过(编辑时间2002-05-10 20:58:11)]
|
liuxia521
职务：普通成员
等级：1
金币：0.0
发贴：39
注册：2001/11/20 21:43:43
|
#132002/5/10 22:24:28
对了，在access 中怎么修改 啊？
是不是把“today、yester、month、bmonth、date”中的数值都改为“0”啊？
|
