// 1 에서 50까지의 A개수 만큼 난수를 출력해줌
<%
Function RandomEA(EA)
Dim min, max, i
min=1 : max=50
Randomize
Response.Write min & "부터 ~" & max & "까지 " & EA & "개의 난수 발생 <br><br>"
For i=1 to EA
Response.Write Int((max-min+1) * Rnd + min) & "<br>" //난수공식
Next
end function
%>
<% if request("EA") = "" then %>
<form name = "fm" method = "post" action = "URL">
* 난수를 발생시킬 갯수 : <INPUT TYPE="text" NAME="EA"><INPUT TYPE="submit" value="전송">
</form>
<% else %>
<form name = "fm" method = "post" action = "111.html">
* 난수를 발생시킬 갯수 : <INPUT TYPE="text" NAME="EA"><INPUT TYPE="submit" value="전송">
<% RandomEA(request("EA")) %>
<% end if %>