รหัสต้นฉบับเพื่อการศึกษา

File : p04.asp. ID : 2106

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

<body><font face="courier new" size=4>
Sample : <a href=p04.asp?5>p04.asp?5</a><pre>
<%
dim max, i, j, a(3)
a(0)="a": a(1)="b": a(2)="c"
max = 10
if len(request.querystring) > 0 then max = int(request.querystring) end if
if max > 50 then max = 9
i = max
while i > 1
  j = 1
  do while j <= max
    k = (j+i) mod 3
    response.write(a(k))
    j = j + 1
  loop
  response.write("<br>")
  i = i - 1
wend
%>
</pre></body>