訪客統計源碼
⑴ php中如何統計 月點擊量 周點擊量 日點擊量的訪問量統計的源代碼,謝謝了
這是一套完整的數據統計,從訪問到計數到統計。設計前端,數據處理,資料庫,腳本統計。
給你源代碼你也套不上。
還是說說你的需求,給你一套思路吧
⑵ 如何將網站流量統計源碼添加到網站上
你在那個網站申請的統計,把那代碼復制下,打開你網站的首頁代碼,加在最底下代碼中,就可以啦
⑶ 網頁製作個人主頁時當前在線多少人和總訪問人數源碼
統計在線人數、每日訪問人數和總人數
這個程序難一點,特點在於,因為他是分別的傳送每個圖片,所以不像CGI產生的圖片那樣大。而且圖片可以重復的利
用所以較率高速度快。只是沒有JavaScript就不行了。
程序原代碼:
<%
imgurl="../xxx.xxx.xxx/xxxx/" '圖片路徑
imgname="xxx" '圖片名字
cnt=0
dnt=0
s=Request.ServerVariables("path_translated")
cName = left(s,instrrev(s,"\",len(s)))&"chy.cnt"
dName = left(s,instrrev(s,"\",len(s)))&"dchy.cnt"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(cName,1,True)
If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
cnt=cnt+1
Set objCountFile=objFSO.CreateTextFile(cName,True)
objCountFile.Write cnt
objCountFile.Close
Set objCountFile=Nothing
if application("dntime")<=cint(hour(time())) then
Set objCountFile = objFSO.OpenTextFile(dName,1,True)
If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
end if
application("dntime")=cint(hour(time()))
dnt=dnt+1
Set objCountFile=objFSO.CreateTextFile(dName,True)
objCountFile.Write dnt
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
Response.Write "document.write('99?7?10???"
for i=1 to len(cnt)
Response.Write "<img src="imgurl&imgname&Mid(cnt,i,1)&".gif>"
next
Response.Write "
?????"
for i=1 to 4-len(dnt)
Response.Write "<img src="&imgurl&"0.gif>"
next
for i=1 to len(dnt)
Response.Write "<img src="imgurl&imgname&Mid(dnt,i,1)&".gif>"
next
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("zxip"&i)<>""
if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("zxsj"&i)=t
y=1
end if
if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
k=k+1
else
if k>0 then
application.lock
application("zxip"&i-k)=application("zxip"&i)
application("zxsj"&i-k)=application("zxsj"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("zxip"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
application("zxsj"&i)=t
else
i=i-1
end if
Response.Write " ?????"
if len(i)=1 then Response.Write "<img src="&imgurl&"0.gif>"
for j=1 to len(i)
Response.Write "<img src="imgurl&imgname&Mid(i,j,1)&".gif>"
next
Response.Write "');"%>
⑷ 如何在網站中添加計數統計,以顯示您是第*位訪客的
網上的計數器有很多,目前最主流的計數器屬CNZZ,去這樣的計數器網站注冊一個用戶名,提交自己的網站地址。然後獲取計數器代碼,在獲取之前可以設置計數器的詳細參數,都有提示的。復制這段代碼到你的網站源碼裡面就可以了。具體放在網站哪個位置可以自己決定。 一般做法是放在網站底部。
⑸ php統計網頁訪問量的源代碼,急需!!!
直接用cnzz不就可以了嗎?
如果只是統計訪問數量的話,要一個專門統計訪問數的欄位,每次訪問自動+1就可以了。
⑹ 2014年網站訪客QQ統計獲取源碼下載
2014年網站訪客QQ統計源碼這個?說真的原理很簡答的,就調用一下數據的問題,不過沒有電腦基礎寫訪客QQ獲取源碼就比較辛苦啦,大家可以用用免費版的
318統計
網路也有
官網我就忘記什麼了,之前用過挺好用的
⑺ 如何做好網站訪客QQ統計系統的優化工作,訪客QQ獲取源碼最新介面
網上這種相關的,你自己去弄。貌似還要自己修改源代碼,或者你花錢找人做一樣
⑻ ASP 如何做一個在線統計人數的,當訪客不點退出時也會正常統計
asp統計在線人數代碼
<script language="vbscript" runat="server">
sub application_onstart
application.lock
application("user_online")=0
application.unlock
end sub
sub session_onstart
application.lock
application("user_online")=application("user_online")+1
application.unlock
end sub
sub session_onend
application.lock
application("user_online")=application("user_online")-1
application.unlock
end sub
</script>
新建online.asp
<!--#include file="global.asa"-->
<body topmargin="3" leftmargin="5" bgcolor="#adb6c6">
<p align="left">
<font color="#cc0000"><span style="font-size: 9pt">當前共有</span></font><span style="font-size: 9pt"><font color=#cc0000><b><%=application("user_online")%></b></font></span><font color="#cc0000"><span style="font-size: 9pt">人在線</span></font></p>
在要加在線人數的地方加入
<iframe name="i2" src="../online.asp" scrolling="no" border="0" frameborder="0" width="176" height="17">
⑼ 網站訪問人數計數器代碼,內部網站(要防刷新)
用個JS就可以了呀!一個JS代碼,然後放個動態網頁,然後由動態網頁來獲取IP,然後記數,同一IP只記一次呀,
還不清楚,就上易易拉看看吧!看看其他的網站的統計代碼,就是用的這種方式呀!
⑽ ASP.NET技術 怎麼實現統計網站的訪問人數。 請高手指點。最好是有源代碼 謝謝
添加Global.aspx,然後分別改動下session_start和application_start就可以了!!把全代碼給你...裡面還有統計在線人數的分給我把!哈哈!
<%@ Application Language="C#" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="DbHelper.User" %>
<script runat="server">
void Application_Start(object sender, EventArgs e)
{
// 在應用程序啟動時運行的代碼
Application["online"] = 0;//設置初始在線人數為0
Application["total"]=(int)(Main.GetCount().Rows[0]["totalcount"]);//這里是從資料庫讀這次以前的訪問總人數!
}
void Application_End(object sender, EventArgs e)
{
// 在應用程序關閉時運行的代碼
Main.totalCount((int)Application["total"]);//關閉時添加一次訪問次數
}
void Application_Error(object sender, EventArgs e)
{
// 在出現未處理的錯誤時運行的代碼
Exception lasterror = Server.GetLastError();
string ErrMsg = lasterror.ToString();
string LogName = "Mylog";
string Message = "URL:" + Request.Path + " ,Error:" + ErrMsg;
// Create EventLog if It doesn't exist
if (!System.Diagnostics.EventLog.SourceExists(LogName))
{
System.Diagnostics.EventLog.CreateEventSource(LogName, LogName);
System.Diagnostics.EventLog log = new System.Diagnostics.EventLog();
log.Source = LogName;
//These are the five options that will display a different icon.
log.WriteEntry(Message, System.Diagnostics.EventLogEntryType.Information, 1);
log.WriteEntry(Message, System.Diagnostics.EventLogEntryType.Error, 2);
log.WriteEntry(Message, System.Diagnostics.EventLogEntryType.Warning, 3);
log.WriteEntry(Message, System.Diagnostics.EventLogEntryType.SuccessAudit, 4);
log.WriteEntry(Message, System.Diagnostics.EventLogEntryType.FailureAudit, 5);
}
Application.Lock();
Application["error"] = Message;
Application.UnLock();
}
void Session_Start(object sender, EventArgs e)
{
// 在新會話啟動時運行的代碼
Application.Lock();
Application["online"] = (int)Application["online"] + 1;//在線人數加1
Application["total"] = (int)Application["total"] + 1; //訪問總人數加1
Application.UnLock();
}
void Session_End(object sender, EventArgs e)
{
// 在會話結束時運行的代碼。
// 注意: 只有在 Web.config 文件中的 sessionstate 模式設置為
// InProc 時,才會引發 Session_End 事件。如果會話模式設置為 StateServer
// 或 SQLServer,則不會引發該事件。
Application.Lock();
Application["online"] = (int)Application["online"] - 1;//在線人數減1
Application.UnLock();
}
</script>