三流解説は、
三流君ASP:乱数を使用して今日の運を表示
↑を見て、笑ってやってください。
<%@LANGUAGE=VBScript%> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>乱数を使用する 三流君 ASPで遊ぶ、失敗する No.003</title> </head> <body bgcolor="#ffffff"> test003-1.asp 変数で遊ぶ<br> <% Dim n '(*1)乱数受け取り用、変数の型は指定できないみたい n = 100 Response.Write "nの中身は<br>" '固定の文字 Response.Write n '変数の中身を表示 Response.Write "です<br>" '固定の文字 %> <br> <HR> 解説ページ <A HREF="http://www.ken3.org/backno/backno_asp01.html#3"> <b>[No.3 乱数を使用して今日の運を表示]</b></A><br> <Font Size=-1> <br> <a Href="http://www.ken3.org/asp/" TARGET="_top">[ASP系メニューへ]</a> <a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A> <a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br> <br> </Font> <hr> </body> </html>
実行結果: http://www.ken3.org/cgi-bin/test/test003-1.asp
<%@LANGUAGE=VBScript%> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>乱数を発生させる 三流君 ASPで遊ぶ、失敗する No.003</title></head> <body bgcolor="#ffffff"> <h2>test003-2.asp 乱数を発生させる</h2> <% Dim n '(*1)乱数受け取り用、変数の型は指定できないみたい Randomize '*2 これでで乱数系を初期化 n = Int(Rnd * 100) + 1 '*3 乱数を発生と代入 Response.Write "今日の幸運度は<br>" '固定の文字 Response.Write n '変数の中身を表示 Response.Write "%です<br>" '固定の文字 %> <br> <HR> 解説ページ <A HREF="http://www.ken3.org/backno/backno_asp01.html#3"> <b>[No.3 乱数を使用して今日の運を表示]</b></A><br> <Font Size=-1> <br> <a Href="http://www.ken3.org/asp/" TARGET="_top">[ASP系メニューへ]</a> <a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A> <a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br> <br> </Font> <hr> </body> </html>
実行結果: http://www.ken3.org/cgi-bin/test/test003-2.asp
<%@LANGUAGE=VBScript%> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>三流君 ASPで遊ぶ、失敗する No.003</title></head> <body bgcolor="#ffffff"> <h2>test003-3.asp <HR>タグを使用して見せる工夫をする</h2> <% Dim n '(*1)乱数受け取り用、変数の型は指定できないみたい Randomize '*2 これでで乱数系を初期化 n = Int(Rnd * 100) + 1 '*3 乱数を発生と代入 Response.Write "今日の幸運度は<br>" '固定の文字 Response.Write n & "%です" '数値を表示 '*4 HRで棒グラフもどきにする Response.Write "<HR Size=8 color=red align=left " Response.Write "Width=" & n & "% >" %> <br> <HR> 解説ページ <A HREF="http://www.ken3.org/backno/backno_asp01.html#3"> <b>[No.3 乱数を使用して今日の運を表示]</b></A><br> <Font Size=-1> <br> <a Href="http://www.ken3.org/asp/" TARGET="_top">[ASP系メニューへ]</a> <a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A> <a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br> <br> </Font> <hr> </body> </html>