20 lines
438 B
Plaintext
20 lines
438 B
Plaintext
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>Random Generated Picture</TITLE>
|
||
|
|
</HEAD>
|
||
|
|
<BODY>
|
||
|
|
<!--Copy starting from here-->
|
||
|
|
<CENTER>
|
||
|
|
<%
|
||
|
|
Randomize
|
||
|
|
Dim RandomNum, UpperBound, LowerBound
|
||
|
|
LowerBound = 1 'Put In the first picture #
|
||
|
|
UpperBound = 10 'Put In the last picture #
|
||
|
|
RandomNum = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
|
||
|
|
%>
|
||
|
|
<IMG SRC="pic<% = RandomNum %>.jpg">
|
||
|
|
</CENTER>
|
||
|
|
<!--Copy End here-->
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|