// 1 에서 50까지의 A개수 만큼 난수를 출력해줌

<%
Function RandomEA(EA)
Dim min, max, i
min=1 : max=50

Randomize
Response.Write min & "부터 ~" & max &  "까지 &nbsp;" & 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 %>