
<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 下一篇:鱼和熊掌………………应用程序保护
<%
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
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...[阅读全文]
- [博客运营] 各种漂亮的鼠标URL代码
- [搜索优化] 没有放之四海皆准的SEO技巧
- [搜索优化] 搜索引擎关键词排名优化知识完全手册
- [搜索优化] Title的写法
- [搜索优化] 百度封什么样的网站?兼谈初级SEO办法
- [搜索优化] Google排名的三大关键
- [JavaScript] ie里window的method列表
- [JavaScript] 让弹出窗口变得“体贴”一些
- [JavaScript] 点一下,首页地址添加到收藏夹
- [系统DIY] Windows操作系统十三例安装技巧
- [系统DIY] 实现Win98、WinNt、Win2000互相访问Fat32 N
- [系统DIY] Windows 罕见技巧全集大放送
- [系统DIY] 重装Windows后LILO被覆盖的解决办法


