求素数－ASP网页制作例题
本文介绍一张用于求素数的ASP网页。
网页功能是：浏览者在表单中输入起始数、结束数后，提交表单，网页即可显示起始数与结束数之间的全部素数。
网页完整代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>求素数－VBScript程序</title>
</head>
<body>
<table width="760" border="0" align="center">
<tr>
<td><table width="760" align="center">
<tr>
<td>
<h2> 这是一个求素数的程序。输入起始数字的结束数字后，按提交，即可显示它们之间的全部素数。</h2>
提示：下面是一个输入表单。
<form name="form1" method="post" action="" >
<table width="300" border="1" align="center" cellspacing="0" bordercolor="#0000FF">
<tr>
<td width="122"><b>起始数</b></td>
<td width="168"><input type="text" name="t1"></td>
</tr>
<tr>
<td><b>结束数</b></td>
<td><input type="text" name="t2"></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交"></td>
<td><div align="center">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
dim m,n,x,y
m=request.form("t1") 读入起始数
n=request.form("t2") 读入结束数
if m="" or n="" then 差别是否为空值
response.write("<b> 提示：起始数或结束数不能为空值，且起始数必须大于结束数！否则，重输！</B>")
response.end
end if
x=cint(m) 将变量转换为整数类型
y=cint(n) 将变量转换为整数类型
if x<y then 差别结束数是否大于起始数
response.Write("<p align='center'><b>"&x&"-"&y&"之间的素数</b><p>")
%>
提示：下面是输出表格
<table border=1 align="center" width="180" cellspacing="0" bordercolor="#0000FF">
<%
dim a,b,k,w
w=0
for a=x to y 嵌套循环外层
k=int(sqr(a))
for b=2 to k 嵌套循环内层－先检验：变量i中的数是否能被，除去1和其本身以外的数整除，如果有则跳出循环。
if a mod b=0 then
exit for
end if
if b=k then 判别循环是否完成，如果完成，则是素数，然后输出
w=w+1 '从这句开始，用于输出变量a－素数
response.Write("<tr><td>第"&w&"个</td><td>"&a&"</td></tr>")
end if
next
next
end if
%>
</table></td>
</tr>
</table>
</body>
</html>
主页
｛其它｝ |
