"0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>请输入一个数：</td>
<td><input name="data" type="text" id="data"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="计算">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
jieceng.asp
<% function power(m)
s=1
for i=1 to m
s=s*i
next
power=s
end function
n=request.Form("data")
for j=1 to n
response.Write cstr(power(j))+"<br>"
next
