home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / fxn.asp < prev    next >
Text File  |  1996-09-20  |  1KB  |  59 lines
  1.     <FONT SIZE=1>    Random number:  <%=rnd()%>  <BR>
  2.             Date/time:    <%=now()%>  <BR>
  3.     </font>
  4. <SCRIPT Runat=Server Language=VBScript>
  5. Function Junk
  6.     Junk = "Junque"
  7. End Function
  8. </SCRIPT>
  9.  
  10.     <%N = 17%>
  11.     <H1>Fibonacci numbers through <%=N%></H1><BR>
  12.     <BR>
  13.     <BR>
  14. <%Response.Write(Foo)%>
  15.     <BR>
  16. <%=Junk%>
  17.     <BR>
  18. <SCRIPT Runat=Server Language=VBScript>
  19. Function Foo
  20.     Foo = "Foo" & " " & Bar & " " & Junk
  21. End Function
  22. </SCRIPT>
  23.     <BR>
  24.     <BR>
  25.     Computations done via function calls<BR>
  26.     <TABLE BORDER>
  27.     <%for i = 0 to N%>
  28.         <TR> 
  29.         <TD ALIGN=RIGHT><FONT SIZE=1> <%=i%> </font></TD>
  30.         <TD ALIGN=RIGHT><FONT SIZE=2> <% = Fibonacci(i) & " " & Foo %> </font></TD>
  31.         </TR>
  32.     <%next%>
  33.     </TABLE>
  34.  
  35. <SCRIPT Runat=Server Language=VBScript>
  36. Function Fibonacci(i)
  37.     fibA = 1
  38.     fibB = 1
  39.     if (i = 0) then
  40.         Fibonacci = fibA
  41.     elseif (i = 1) then
  42.         Fibonacci = fibB
  43.     elseif (i > 1) then
  44.         for j = 2 to i
  45.             fib = fibA + fibB
  46.             fibA = fibB
  47.             fibB = fib
  48.         next
  49.         Fibonacci = fib
  50.     end if
  51. End Function
  52. </SCRIPT>
  53.  
  54. <SCRIPT Runat=Server Language=VBScript>
  55. Function Bar
  56.     Bar = "Bar"
  57. End Function
  58. </SCRIPT>
  59.