計數器的js代碼,網站計數器代碼

本文目錄一覽：

• 1、JavaScript中如何定義一個計數器
• 2、JS調用ASP計數器
• 3、js求助，計數器代碼求助

JavaScript中如何定義一個計數器

HTML

HEAD

META http-equiv=”Content-Type” content=”text/html; charset=gb2312″

TITLE簡易計算器/TITLE

STYLE type=”text/css”

body{background-color:#99CCFF;}

table{border-left:1 #FFFFFF solid;border-top:1 #FFFFFF solid;}

.input1{BORDER-RIGHT: #FFFFFF 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid;BORDER-BOTTOM: #FFFFFF 1px solid;width:180px;BACKGROUND-COLOR:#FFFFFF;text-align:right;}

input{BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; COLOR: #000080; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #d8d8d0;width:40px;height:20px;}

TD{border-bottom:#FFFFFF 1 solid;border-right:#FFFFFF 1 solid;height:25px;}

/STYLE

SCRIPT language=”javascript”

var total=0; //全局變量total,累計輸入

var FlagNew = false; //是否是新的操作數（輸入的第二個數）

var Opp = “”; //運算符變量

function clearall(){

total=0;

document.myform.number.value=0;//清除結果

}

function enternumber(Num){ //數字按鈕單擊調用的函數，Num表示輸入的數字

if (FlagNew) { //判斷輸入的是否新的操作數

document.myform.number.value = Num;

FlagNew = false;

}

else {

if (document.myform.number.value== “0”)

document.myform.number.value= Num;

else

document.myform.number.value+= Num; //記錄輸入的操作 數

}

}

function Operation (Op) { //“加減乘除”按鈕單擊調用的函數，Op代表運算符號

var Num1=document.myform.number.value;

if (FlagNew Opp != “=”);{

FlagNew = true;

// 根據運算符進行運算

if ( ‘+’ == Opp)

total +=parseFloat(Num1);

else if ( ‘-‘ == Opp)

total -=parseFloat(Num1);

else if ( ‘/’ == Opp)

total /=parseFloat(Num1);

else if ( ‘*’ == Opp)

total *=parseFloat(Num1);

else

{total =parseFloat(Num1); }

document.myform.number.value= total; //結果文本框累計數字

Opp = Op;

}

}

/SCRIPT

/HEAD

以上是腳本代碼

JS調用ASP計數器

語法格式為：

document.write(‘%=counter%’)

下面是ASP+文本計數器代碼：

首先，在要引用JS的網頁中加入script language=”JavaScript” src=”count.asp”

/script

然後在同一目錄中新建文件count.txt,輸入任何數值；

再新建count.asp,內容如下：

%

‘計數器程序作者是jelin；信箱:lgjie@163.com；qq25366492。

‘由yanjibao,yanjibao@163.com,QQ476669555)修改為javascript版本。

option explicit

dim fs,filename,txt,content,total,counter_lenth

counter_lenth=10 ‘設置顯示數據的最小長度，如果小於實際長度則以實際長度為準

set fs=Server.CreateObject(“Scripting.FileSystemObject”)

filename=server.MapPath(“count.txt”)

if not fs.FileExists(filename) then

fs.CreateTextFile filename,True,True

set txt=fs.OpenTextFile(filename,2,true)

txt.write 0 ‘如不存在保存數據的文件則創建新文件並寫入數據0

set fs=nothing

end if

set txt=fs.OpenTextFile(filename)

If txt.AtEndOfStream Then

Application(“Counter”)=0 ‘如果文件中沒有數據，則初始化Application(“Counter”)的值（為了容錯）

else

Application(“Counter”)=txt.readline

end if

Application.Lock

Application(“Counter”) = Application(“Counter”) + 1

Application.UnLock

Function save_ ‘保存計數函數

set fs=Server.CreateObject(“Scripting.FileSystemObject”)

filename=server.MapPath(“count.txt”)

content=Application(“Counter”)

set txt=fs.OpenTextFile(filename,2,true)

txt.write content

set fs=nothing

End Function

save_ ‘調用保存函數保存數據

Function Digital ( counter ) ‘顯示數據函數

Dim i,MyStr,sCounter

sCounter = CStr(counter)

For i = 1 To counter_lenth – Len(sCounter)

MyStr = MyStr “0”

‘MyStr = MyStr “IMG SRC=改成你自己的圖片存放的相對目錄\0.gif” ‘如有圖片，可用此語句調用

Next

For i = 1 To Len(sCounter)

MyStr = MyStr Mid(sCounter, i, 1)

‘MyStr = MyStr “IMG SRC=改成你自己的圖片存放的相對目錄\” Mid(sCounter, i, 1) “.gif” ‘如有圖片，可用此語句調用

Next

Digital = MyStr

End Function

Function read_ ‘讀取計數函數

set fs=Server.CreateObject(“Scripting.FileSystemObject”)

filename=server.MapPath(“count.txt”)

set txt=fs.opentextfile(filename,1,true)

total=txt.readline

total=cint(total)

‘response.write total

response.write Digital (total) ‘調用顯示函數

set fs=nothing

End Function

%document.write(“%read_%”);

js求助，計數器代碼求助

var k=0;

window.onload = function(){

setInterval(function(){k=k+10},200);

}

function otherFun(){

alert(k);

}

把K設置為全局的，其他地方想用就用