簡単なじゃんけんゲーム

元の三流解説は、
三流君ASP:値を受取り、判断を行う簡単なじゃんけんゲーム
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・

ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head>
<title>ジャンケンゲームで遊ぶ</title>
</head>
<body>
<h2>ジャンケンゲームで遊ぶ</h2>
受取ったパラメータは<br>[<%=Request.QueryString("DATA")%>]<hr>
<%
  'Lenで変数の長さをチェックする
  D = Request.QueryString("DATA") 'データを代入
  If Len(D) = 1 Then 'データあり
     Call HANTEI(D)     '判断用の関数を呼ぶ
  End If
%>
<HR>
<FORM ACTION="g001.asp" METHOD="GET">
あなたの手は？<br>
<INPUT TYPE="RADIO" NAME="DATA" VALUE="1">１．グー<br>
<INPUT TYPE="RADIO" NAME="DATA" VALUE="2">２．チョキ<br>
<INPUT TYPE="RADIO" NAME="DATA" VALUE="3">３．パー<br>
<INPUT TYPE="submit" VALUE="勝負する"><br>
</FORM>
<br>
</body>
</html>

<% '乱数を発生させて勝負する

Sub HANTEI(strNO)  'ユーザーの手を受取り判断する

    Dim nCON  'コンピュータの手１～３の数値が入る
    Dim nPC   'ユーザーさんの手
    Dim strTE(3) '(*1)配列変数を宣言

    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"

    '入力値の判断、エラーならメッセージを表示させ抜ける
    'If文で1,2,3以外を判断する
    If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
        Response.Write "[" & strNO & "]は不正な入力です"
        Exit Sub  '<--Exit Subを使用してここでプログラムを抜ける
    End If

    'コンピュータの手を決定
    Randomize   ' 乱数発生ルーチンを初期化します。
    nCON = Int((3 * Rnd) + 1)  '1 から 3 までの乱数を発生させます。

    '結果判断と表示
    'ユーザーの手を表示する
    nPC = CInt(strNO) 'CInt関数で数値型に変換する
    Response.Write "あなたの手は" & strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示

    '(*4)同様にコンピュータの手を表示する
    Response.Write "コンピュータの手は" & strTE(nCON) & "です<br>"

    '結果の判断
    'まず、引き分けを判断
    If nPC = nCON Then Response.Write "引き分けです<br>"

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 2 And nCON = 3 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 3 And nCON = 1 Then Response.Write "アナタの勝ちです<br>"

    'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
    If nPC = 1 And nCON = 3 Then Response.Write "私（コンピュータ）の勝ちです<br>"
    If nPC = 2 And nCON = 1 Then Response.Write "私（コンピュータ）の勝ちです<br>"
    If nPC = 3 And nCON = 2 Then Response.Write "私（コンピュータ）の勝ちです<br>"

End Sub

%>