当前位置:首页 » 密码管理 » js访问量代码

js访问量代码

发布时间: 2022-08-18 16:38:34

A. 谁有网页里面统计访问量的代码啊快给我发一个!

'LCASE是将字母转化为小写,这个mode并未在后面的程序中出现,无从知道其作用
mode = LCASE(Request("mode"))'这句是怎么回事?
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data.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语只有新的月份中的第一个浏览者浏览本网站时执行,初始化月流量及日流量为0
'' 这部分一个月最多只能执行一次,

IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")'为何要这样?这样不是把YESTERDAY字段值改为TODAY字段的值了吗?
RS("BMONTH") = RS("MONTH") '为何要这样?
RS("MONTH") = 0'这样岂不是把记录集中该字段中的值清0了?
RS("TODAY") = 0 '这样岂不是把记录集中该字段中的值清0了?
RS.Update

ELSE
''如果上面的if语句不能满足说明当前没有到一个新的月份
'如果Day(RS("DATE"))和当前日期号不等
'那么说明这是新的一天,每天的第一个浏览者浏览本站时,得到执行.每天最多只能执行一次本部分
'因为是新的一天,原记录中的今天已是昨天了,用RS("TODAY")更新RS("YESTERDAY"),
'初始化今天的记录为0
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 0
RS.Update
END IF
END IF

'这部分就可以放心的计数
'总流量加1,当前月及当前日的流量加1
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS.Update

response.write "<font size=2 color=000099>今日浏览总人数:</font>"
numshow( RS("TODAY") )
response.write "<br>"

response.write "<font size=2 color=000099>昨日浏览总人数:</font>"
numshow( RS("YESTERDAY") )
response.write "<br>"

response.write "<font size=2 color=000099>本月浏览总人数:</font>"
numshow( RS("MONTH") )
response.write "<br>"

response.write "<font size=2 color=000099>上月浏览总人数:</font>"
numshow( RS("BMONTH") )
response.write "<br>"

response.write "<font size=2 color=000099>本站浏览总人数:</font>"
numshow( RS("TOTAL") )
response.write "<br>"

response.write "</td>"
response.write "<td valign=""top"">"
N = Now
D2 = DateValue(N)
D1 = #09/01/2004# ' 开始统计日期(月/日/年)

response.write "<font size=2 color=000099>开站至今天的总天数:</font>"
numshow( DateDiff("d", D1, D2) )
response.write "<br>"
D3 = DateDiff("d", D1, D2)
response.write "<font size=2 color=000099>平均人数/日:</font>"
numshow( RS("TOTAL")\D3 )

CONN.CLOSE

'这个函数其实还是很简单的,其作用图形来显示流量的数字,函数的功能不是计数
'比方说,想用图形化数显示100,则Call numShow(100)
Function numshow( counter )

Dim S, i, G
S = CStr( counter )
'因为数字不止一位,所以用循环一个数字一个数字的找相应的图片
'1就用1.gif显示,2就是2.gif显示,。。。类推
For i = 1 to Len(S)

G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
response.write G

End Function

%>

这个是简单的计数器

B. 如何才能累计计算相同用户访问页面的次数,用JS代码可以吗

用户离开页面后你要记录session值,通常存到数据库,当再次离开的时候获取这个值

C. 统计当前网页被访问次数的Jquery代码是什么

最简单的办法:

<scripttype="text/javascript">

if(localStorage.pagecount){localStorage.pagecount=Number(localStorage.pagecount)+1;}else{localStorage.pagecount=1;}document.write("访问数:"+localStorage.pagecount+"time(s).");</script>

D. 使用JavaScript如何统计网站的“总访问量”“今日访问量”“当前在线人数”“您的IP地址”信息

javascript是绝对实现不了的,但是可以用javascript来显示
一般用法:
总访问量:<span id="total"></span>

网页最下面放:
<script src="show.aspx"></script>
show.aspx里写对上面的div用innerHTML.并记录本次访问

E. 利用javascript,通过记录IP的方式统计网站被访问量,求此段代码

所谓统计,就是要有记录,说白了就是要写入。JS是客户端代码,能把记录写到服务器端供你统计?
asp+access吧

F. 谁有js+xml或者js+txt做的网站访问量代码,给一个吧,

提供一个利用文本文件存储网站访问量:
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
{
int c;
using (StreamReader sr = new StreamReader(Server.MapPath("~") + "\\count.txt"))
{
c = Convert.ToInt32((sr.ReadToEnd()));
}
if (Session["notFirstAccess"] == null)
{
c++;
using (StreamWriter sw = new StreamWriter(Server.MapPath("~") + "\\count.txt"))
{
sw.Write(c);
sw.Flush();
sw.Close();
}
Session.Add("notFirstAccess", "true");
}
labAccessCount.Text = "本网站访问量:" + c.ToString();
}
}
希望对你有帮助。

G. 如何用javascript和txt文件写一个网页访问量统计代码

如果用javascript的话,并且用数据库来存储统计变量的话,用ajax方式。

如果用session存储统计变量的话,可以通过用服务器端编程语言把session值取出后付给javascript变量来获得session值。
<script language="javascript" type="text/javascript">
var sessionvalue;
sessionvalue= "<%=(Session["NAME"]+1).ToString() %>";
function getsession()
{ alert(sessionvalue); }
</script>
其中<%=(Session["NAME"]+1).ToString() %>这个部分是服务器段脚本取出session的过程,Session["NAME"]存储的就是本次操作之前的浏览量,这样能够达到访问页面即加一次统计量的目的。

函数getsession()的作用是将目前的浏览量输出,你可以选择适当的位置调用getsession()这个函数

两种方法都需要与服务器端进行交互,而你想做的把这个值存储在txt中的做法不是很通用。

H. js实现html简单访问量统计功能代码

这个现在好像没什么办法吧,一般都是在后台统计,因为每次打开网页都是一个新的页面,js是重新调用的,建议你在后台跳转到网页时,将那个方法设置一个统计参数,每次打开那个方法都会累计,或者创建一个数据库,在过滤器里面每次调用链接的时候在数据库update

I. javascript的站点访问量统计

<script language=JavaScript>
<!--
var caution = false
function setCookie(name, value, expires, path, domain, secure) {
var curCookie = name + "=" + escape(value) +
((expires) ? "; expires=" + expires.toGMTString() : "") +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
((secure) ? "; secure" : "")
if (!caution || (name + "=" + escape(value)).length <= 4000)
document.cookie = curCookie
else
if (confirm("Cookie exceeds 4KB and will be cut!"))
document.cookie = curCookie
}
function getCookie(name) {
var prefix = name + "="
var cookieStartIndex = document.cookie.indexOf(prefix)
if (cookieStartIndex == -1)
return null
var cookieEndIndex = document.cookie.indexOf(";", cookieStartIndex + prefix.length)
if (cookieEndIndex == -1)
cookieEndIndex = document.cookie.length
return unescape(document.cookie.substring(cookieStartIndex + prefix.length, cookieEndIndex))
}
function deleteCookie(name, path, domain) {
if (getCookie(name)) {
document.cookie = name + "=" +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
"; expires=Thu, 01-Jan-70 00:00:01 GMT"
}
}
function fixDate(date) {
var base = new Date(0)
var skew = base.getTime()
if (skew > 0)
date.setTime(date.getTime() - skew)
}
var now = new Date()
fixDate(now)
now.setTime(now.getTime() + 365 * 24 * 60 * 60 * 1000)
var visits = getCookie("counter")
if (!visits)
visits = 1
else
visits = parseInt(visits) + 1
setCookie("counter", visits, now)
document.write("您是第" + visits + "访问本专题的!")
// -->
</script>

热点内容
如何定时执行存储过程 发布:2025-07-13 09:36:53 浏览:186
游戏编程术语 发布:2025-07-13 09:17:55 浏览:245
我的世界塔科夫服务器地址 发布:2025-07-13 09:14:17 浏览:810
python中引用变量 发布:2025-07-13 09:12:52 浏览:301
源码智能锁 发布:2025-07-13 09:12:44 浏览:536
最常访问网 发布:2025-07-13 08:50:11 浏览:111
扣扣文件解压是多少密码 发布:2025-07-13 08:48:51 浏览:108
c语言编译工具链 发布:2025-07-13 08:48:42 浏览:111
h5上传图片并预览 发布:2025-07-13 08:47:58 浏览:894
sqlfilter 发布:2025-07-13 08:47:56 浏览:240