在线网页计算器 计算器在线网站
网页中如何做计算器
在线网页计算器 计算器在线网站
在线网页计算器 计算器在线网站
Function Show(m)
If (Myform.Expression.Value = "" AND InStr(". + - / ",m)) Then
Myform.Expression.Value = ""
ElseIf (InStr("+ - / . ",Right(Myform.Expression.Value,1)) And InStr("+ - / ",m)) Then
ElseIf (m = ".") Then
If (InStr("+ - / . ",Right(Myform.Expression.Value,1))) Then
ElseIf ((InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"+")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"-")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"/"))) Then
Else
Myform.Expression.Value = Myform.Expression.Value + m
End If
Else
Myform.Expression.Value = Myform.Expression.Value + m
END If
End Function
Function Sqrt()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - / ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Eval(Myform.Expression.Value)^2
End If
End Function
Function Result()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - / ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Eval(Myform.Expression.Value)
End If
End Function
Function Clean()
Myform.Expression.Value = ""
End Function
一般说来肯定是jascript的,这样速度快,不用通过。致于代码,在网上搜索一下js代码,计算器就可以找到。
用数据加表格也可以做的出
几点三等于六
3+3=6。1.2.3.=.0..在线计算器是一个虚拟的网页计算器,基础版的网页计算器,为用户提供加、减、乘、除等基本的数学计算,还可以暂存计算结果,在需要时通过取存键调出来再与其他计算结果进行运算。
网页计算器怎么做呀
1、在网站目录下新建一个文本:txtcounter.txt 在文本填写1或其他识字
2、新建一asp文件:count.asp,加入以下代码:
<%
CountFile=.MapPath("txtcounter.txt")
Set FileObject=.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值,调用VBScript函数Document.write
Out.Close
%>
3、在需要计数的网页加入:总访问