★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp计算器

深山行者个人网站 2010/7/13 23:24:58 深山行者 字体:  浏览 6448 我要评论
当前标签
计算

<%
response.Write "<html>"&_
               "<head>"&_
               "<meta http-equiv=Content-Type content=text/html; charset=gb2312>"&_
               "<title>TAIXUN多功能编辑器--计算器</title>"&_
               "<link href=Design.css rel=stylesheet TYPE=text/css>"%>
                <SCRIPT language=JavaScript>
                function computetoedit(obj)
                {
                return eval(obj.expr.value)
                }
                function compute(obj)
                {obj.expr.value = eval(obj.expr.value)}
                var one = '1'
                var two = '2'
                var three = '3'
                var four = '4'
                var five = '5'
                var six = '6'
                var seven = '7'
                var eight = '8'
                var nine = '9'
                var zero = '0'
                var plus = '+'
                var minus = '-'
                var multiply = '*'
                var divide = '/'
                var decimal = '.'
                function enter(obj, string)
                {obj.expr.value += string}
                </script>
                <script event=onclick for=Ok language=JavaScript>
                a.value = computetoedit(this.form);
                window.returnValue = a.value+"*"+b.value
                window.close();
                </script>
                <script>
                function IsDigit()
                {
                return ((event.keyCode >= 48) && (event.keyCode <= 57));
                }
                </script><%
response.Write "</head><body topmargin=0>"&_
               "<form NAME=calc>"&_
               "<TABLE borderColor=#efefef WIDTH=160 ALIGN=center BORDER=1>"&_
               "<TBODY>"&_
               "<TR>"&_
               "<TD bgColor=#000000 colSpan=4>"&_
               "<INPUT STYLE='BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; FONT-SIZE: 18pt; BORDER-LEFT: #000000 1px inset; COLOR: #ffff00; BORDER-BOTTOM: #000000 1px inset; BACKGROUND-COLOR: #000000;' size=12 NAME=expr id=a action='compute(this.form)' ONKEYPRESS='event.returnValue=IsDigit();'>"&_
               "<TR>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, seven)' TYPE=button VALUE=' 7 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, eight)' TYPE=button VALUE=' 8 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, nine)' TYPE=button VALUE=' 9 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, divide)' TYPE=button VALUE=' / '>"&_
               "<TR>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, four)' TYPE=button VALUE=' 4 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, five)' TYPE=button VALUE=' 5 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, six)' TYPE=button VALUE=' 6 '> "&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, multiply)' TYPE=button VALUE=' * '>"&_
               "<TR>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, one)' TYPE=button VALUE=' 1 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, two)' TYPE=button VALUE=' 2 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, three)' TYPE=button VALUE=' 3 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, minus)' TYPE=button VALUE=' - '>"&_
               "<TR>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, decimal)' TYPE=button VALUE=' . '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, zero)' TYPE=button VALUE=' 0 '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT TYPE=reset size=3 VALUE=' AC '>"&_
               "<TD WIDTH=40 ALIGN=center>"&_
               "<INPUT onclick='enter(this.form, plus)' TYPE=button VALUE=' + '>"&_
               "<TR ALIGN=center>"&_
               "<TD colSpan=4><INPUT TYPE=button id=b onclick=compute(this.form) VALUE='   =   '>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD colSpan=4><INPUT NAME=button TYPE=button onClick='javascript:window.close()' VALUE=' 关闭 '>    "&_
               "<INPUT NAME=Ok TYPE=button id=Ok VALUE=' 确定 '></TR>"&_
               "</TBODY>"&_
               "</TABLE>"&_
               "</form>"&_
               "</body>"&_
               "</html>"
%>

相关阅读
( 2019/12/17 14:22:25 )实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
( 2019/9/18 22:40:15 )纯asp根据当前日期计算出相应的星座
( 2019/9/18 22:33:05 )纯asp根据当前日期计算出当前年份的属相
( 2019/4/9 13:50:50 )国内网站常用的一些 CDN 静态资源公共库加速服务
( 2018/5/28 17:01:29 )asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
( 2018/5/14 10:35:46 )ASP版通过身份证信息获取对应的生日性别年龄
( 2016/6/16 11:49:35 )access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
( 2016/3/12 14:58:19 )Asp得到当月天数的函数方法
共有0条关于《asp计算器》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
更多>>最新添加文章
canvas绘制的文字如何换行
css背景使用base64编码或者将base64编码放在img图片标签中
asp利用hasOwnProperty验证某个json中的某个标签是否存在
利用css3中的-webkit-font-smoothing把网页文字的毛边去掉
兼容pc、移动端用js实现复制内容到剪切板(支持苹果safari浏览器)
fiddler抓包在内容的SyntaxView窗口里面是乱码
服务器iis配置.mp4视频格式文件播放(网页播放mp4有声音但没有图像画面)
好用的免费桌面gif录制作屏幕软件
更多>>随机抽取信息
总结一些DIV+CSS制作网页时容易犯的错误
万家乐
利用ASP正则查找文章里面的图片,然后在新窗口打开
初学ASP动态网页制作常用错误处理
asp防止多个后台用户同时登陆
FLASH中加入LOADING的最简便方法
Asp.net中防止用户多次登录的方法
深山旅行社管理系统免费版 V2.3