首页>互联网>语言脚本>ASP>正文

求最大公约数和最小公倍数

日 期:2006-10-20     来 源:    阅 读:
  
<div align="center"><font color="#FF0000"><b>求最大公约数和最小公倍数 </b></font><b></b> </div>
<%
cala=Request.form("cala")
if cala="y" then
    a=Request.form("mynuma")
    b=Request.form("mynumb")
        if a<b then
            t=a
            a=b
            b=t
        end if
aa=a
bb=b
    Do
        temp=aa mod bb
        aa=bb
        bb=temp
    Loop  while (bb<>0)
        Response.Write a & "和" & b & "的整大公约数是:" & aa & ";  它们的最小公倍数是:" & a*b/aa & "<br>"
end if
%>
<form method="post" action="<%=Request.ServerVariables("Script_Name")%>">
两个整数(求它们的最大公约数和最小公倍数)
  <input type="text" name="mynuma">
  <input type="text" name="mynumb">
  <input type=hidden name=cala value=y>
  <input type="submit" name="Submit" value="提交">
</form>


上一篇:最近开发一个小型的OA   下一篇:鱼和熊掌………………应用程序保护
收藏本文到:
digg this! 添加到del.icio.us bbmao网络收藏夹 添加到365key 我顶 添加到bolaa 推荐到奇客发现 添加到新浪vivi 添加到google书签 添加到yahoo+
查看全部ASP内容  
  • 最近开发一个小型的OA  2006-10-20 00:00:00
       1.判断权限部分的代码 int i=Convert.ToInt32((string)Session[user_flag]); switch(i) {//根据权限执行不同的sql语句 case 0://管理员 e.Item.Cells[9].Visible=false; br...[阅读全文]
  • 鱼和熊掌………………应用程序保护  2006-10-20 00:00:00
       表3-2 Application Protection的选项及说明 选 项 说 明 Low(IIS Process) 带有这种设置的ASP虚拟应用程序的所有可执行文件和组件运行在Web服务器的可执行文件(Inetinfo.e...[阅读全文]
  • 在ASP中使用SQL语句:表单操作  2006-10-20 00:00:00
       ...[阅读全文]
  • 无组件上传图片至SQLSERVER数据库  2006-10-20 00:00:00
       在无组件上传我刚试成功,所以提供代码给大家一起共享。 /* addemployee.asp */ html head title职工之家/title meta http-equiv=Content-Type content=text/html; charset...[阅读全文]
  • 在ASP中使用SQL语句:视图  2006-10-20 00:00:00
       假如页面上有很多条记录,很多情况下,对这些信息按照字母表降序排序会比传统的升序排序显示效率更高。采用你熟悉的ORDER BY 子句,你可以很容易地在页面上增加这一功能,...[阅读全文]
  • 对正则表达式练习器的改进  2006-10-20 00:00:00
       对正则表达式练习器的改进,原贴ID901680 覆盖原execIt函数 修改后的execIt函数允许对多个正则表达式进行匹配(每个正则表达式一行),并对每一个匹配成分显示出是第几个正则...[阅读全文]
  • 浅谈 ASP 程序的编程与优化  2006-10-20 00:00:00
       ASP(ActiveServerPage)是 Microsoft 公司推出的基于 PWS (PersonalWebServer) IIS (InternetInformationServer)平台的、基于 ISAPI (InternetServiceAPI) 原理的动态网页开...[阅读全文]
  • 用VBS修改IIS Metabase  2006-10-20 00:00:00
       ////////////////////////// 作者:Jaron, 江都资讯网 邮件:jaron@jdinfo.net 网址:http://www.jiangdu.net 如果您要转载该文章,请注明出处。 ////////////////////////...[阅读全文]
  • ASP中使用SQL语句操作数据库  2006-10-20 00:00:00
       用ASP操作数据库时,很多人都使用记录集,但我觉得用SQL语句更好些,于是就写了这篇文章,希望对你有帮助。 % '''''''''''''''''''''''''''''''''''''''''''''''''''''''''...[阅读全文]
  • Asp组件初级入门与精通系列之五  2006-10-20 00:00:00
       经常我们可以看到在连接数据库,打开记录集的时候,如下: rs.Open strsql, conn,adOpenDynamic ,adLockPessimistic 在键入”,”的时候,后面会出现一个游标类型或者锁类型...[阅读全文]
  • asp的19个基本技巧  2006-10-20 00:00:00
       1. 现在的日期时间命令是 %=now% 即可 2.ASP取得表格(from)数据输入的方法,是使用一个内置的对象(object)—Requect, 它以get,post而异。 3.若要自己用VB或其它语言编写,....[阅读全文]
  • ASP中如何将代码生成的文件设为只读  2006-10-20 00:00:00
       ASP中如何将代码生成的文件设为只读 (01-2-25 137) 【hooke】 于 2001-2-21 17:12:14 加贴在 Joy ASP ↑: Attributes Property Sets or returns the attributes of files ...[阅读全文]
  • asp的19个基本技巧  2006-10-20 00:00:00
       1. 现在的日期时间命令是 %=now% 即可 2.ASP取得表格(from)数据输入的方法,是使用一个内置的对象(object)—Requect, 它以get,post而异。 3.若要自己用VB或其它语言编写,....[阅读全文]
  • 一份ASP内存的释放的实验报告  2006-10-17 00:00:00
       实验目的:验证主动释放内存变量是否有价值. 实验原始代码: script language=vbscript runat=server Dim temp1,temp2 'temp1 = space(1024*1024*50) '50MB for i = 0 to 500...[阅读全文]
  • ASP提速技巧  2006-10-20 00:00:00
       技巧之一:提高使用Request集合的效率 访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索,这比访问 一个局部变量要慢...[阅读全文]
  • Email地址有效性验证  2006-10-17 00:00:00
       Email地址有效性的检验是一个经常遇到的问题啦!一般的检验方法是对Email地址字符串进行简单的检验,如是否含有@ .等有效字符等。这种方法只能保证该地址从格式上看似有效...[阅读全文]
  • 避免asp的SQL的执行效率低  2006-10-20 00:00:00
       方法一、尽量使用复杂的SQL来代替简单的一堆 SQL. 同样的事务,一个复杂的SQL完成的效率高于一堆简单SQL完成的效率。有多个查询时,要善于使用JOIN。 oRs=oConn.Execute("S...[阅读全文]
  • 按比例缩小图片(无组件)  2006-10-17 00:00:00
       % Class possible dim aso Private Sub Class_Initialize set aso=CreateObject("Adodb.Stream") aso.Mode=3 aso.Type=1 aso.Open End Sub Private Sub Class_Terminate se...[阅读全文]
  • 在ASP中使用SQL语句:开始执行  2006-10-20 00:00:00
       在学会了SELECT语句的构造和用途之后你就该学习如何使用它了。在你所掌握的数据库工具下,这可能意味着你得按下某个写着“执行”字样的按钮。在ASP网页上,可以立即执行SQL...[阅读全文]
  • 2个简单的检测外部提交函数  2006-10-17 00:00:00
       函数ChkPost() 检测用户当前所在服务器名是否存在于来源页面 代码如下: Function ChkPost() dim server_v1,server_v2 chkpost=False server_v1=Cstr(Request.ServerVariab...[阅读全文]
 用户名: 新注册) 密码: 匿名发表 评论(0条)
 评论内容:(不能超过250字,不支持HTML或代码,只能发表纯文字,请自觉遵守互联网相关政策法规。)
[an error occurred while processing this directive]
合作伙伴: 电脑综合 8vv8娱乐榜

关于扑虎 | 扑虎新闻 | 联系扑虎 | 广告服务 | 招贤纳士

Copyright @ 2006-2007 poohu.com. All Right Reserved 陕ICP备06010975号