乱数 を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは乱数 です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>三流君 ＡＳＰで遊ぶ、失敗する No.003</title></head>
<body bgcolor="#ffffff">
<h2>test003-3.asp ＜ＨＲ＞タグを使用して見せる工夫をする</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">[ＡＳＰ系メニューへ]</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>
| 最近発売の雑誌を紹介する
不健康なプログラマーさん達へ(オイオイ)こんな雑誌もあります。
- Leaf (リーフ) 2008年 10月号
- Lmagazine (エルマガジン) 2008年 10月号
- クロワッサン 2008年 9/10号
- 食品と科学 2008年 09月号
- Hanako (ハナコ) 2008年 9/11号
- Hanako WEST (ハナコウエスト) 2008年 10月号
- こどもブティックCUCITO (クチート) 2008年 10月号
- 北海道生活 2008年 09月号
- 月刊 国民生活 2008年 09月号
|