<% Dim a,b,jc1,jc2,i,j,sum1,sum2,sum3 jc1=1 jc2=1 a=request.Form("a") b=request.Form("b") If a<b Then
response.write"<script>alert'警告!'</scritp>" else for i=1 to a jc1=jc1*i sum1=jc1 next for j=1 to b jc1=jc1*j sum2=jc2 next sum3=sum1+sum2 response.write a & "和" response.write b & "的阶乘和为:<br>" response.write sum3 End if %> 这样不行啊