计数器的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设置为全局的，其他地方想用就用