読者です 読者をやめる 読者になる 読者になる

三流君のソースコード置き場

三流プログラマーが作成したコードが置いてあります。あまり参考にならないと思いますがヨロシクお願いします。

ASP Rnd関数で乱数を発生させる Randomizeで乱数系を初期化

三流解説は、
三流君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>

実行結果: http://www.ken3.org/cgi-bin/test/test003-3.asp