[ASP]사랑 가능성 테스트

< %
Dim LoveNum

LoveNum = Request.Form ("LoveNum")

if Len (LoveNum) = 0 then
    LoveNum = Split ("0,0,0", ",")
else
    LoveNum = Split (LoveNum, ",")
   
    Dim Love (3, 3, 3)
"    0    " 별       
"    1    " 하트        
"    2    " 네모        
   
    Love (0, 0, 0) = "☆☆☆  - 어쩔수 없이 사귀게 될사이.."
    Love (0, 0, 1) = "☆☆♡  - 아름다운 천생연분"
    Love (0, 0, 2) = "☆☆□  - 고생끝에 멋찌게.."
    Love (0, 1, 0) = "☆♡☆  - 서로 다정하게 지낼수 있는사이"
    Love (0, 1, 1) = "☆♡♡  - 열심히 노력해봐 .."
    Love (0, 1, 2) = "☆♡ㅁ - 하늘의 별이 되어줄 남자"
    Love (0, 2, 0) = "☆□☆  - 남이 부러워할 정도로 다정한 사이.."
    Love (0, 2, 1) = "☆□♡  - 아무리 노력해도 않되는 사이.. 꽝..."
    Love (0, 2, 2) = "☆□□  - 아빠와 딸처럼 포근한 사이"
    Love (1, 0, 0) = " ♡☆☆  - 아주 짧은 사랑, 불 같은 사랑"
    Love (1, 0, 1) = "♡☆♡  - 장래를 꿈꿔도 될사이.."
    Love (1, 0, 2) = "♡☆□  - 첫 끝발이 멍멍이 끝발.."
    Love (1, 1, 0) = "♡♡☆  - 초면부터 정이 뚜욱..."
    Love (1, 1, 1) = "♡♡♡  - 정말로 사랑하는 사이.."
    Love (1, 1, 2) = "♡♡□  - 시작부터 원수..지간.."
    Love (1, 2, 0) = "♡□☆  - 남자는 좋아하는데 여자는 별로..."
    Love (1, 2, 1) = "♡□♡  - 좋으면서 싫은척.."
    Love (1, 2, 2) = "♡ㅁㅁ  서로를 위하는 천사 커플"
    Love (2, 0, 0) = "□☆☆  - 하나도 안어울려"
    Love (2, 0, 1) = "□☆♡  - 누가 머래도 친하고 싶은사이.."
    Love (2, 0, 2) = "□☆□ - 슬픔의 연속, 와장장 깨질 커플"
    Love (2, 1, 0) = "□♡☆  - 비온담에 땅이 굳어질사이, 절대 포기하지마... "
    Love (2, 1, 1) = "□♡♡  - 천생연분..."
    Love (2, 1, 2) = "□♡□  - 잘되다가 깨질사이......"
    Love (2, 2, 0) = "□□☆  - 가슴아픈사이.."
    Love (2, 2, 1) = "□□♡  - 노력없이도 자연히 이루어질 사이.."
    Love (2, 2, 2) = "□□□  - 한쌍의 바퀴벌레..."

    Dim MyLove (3)
   
    For i = 0 to 2
        MyLove (i) = MyNum (LoveNum (i))
       
        Select Case MyLove (i)
            Case 0 :
                Temp  = "☆"
            Case 1 :
                Temp  = "♡"
            Case 2 :
                Temp  = "□"
        End Select
       
        Response.Write Temp
    Next
   
    Response.Write ("<BR>" & Love (MyLove(0), MyLove(1), MyLove(2)))
end if

function MyNum (LN)    
    Select Case LN
        Case 3,5,13,14,18 :
            ourLN = 0    " 별       
        Case 1,2,7,8,10,11,15 :
            ourLN = 1    " 하트        
        Case 4,6,9,12,16,17
            ourLN = 2    " 네모        
    end select
   
    MyNum = ourLN
end function
% >

<SCRIPT LANGUAGE=javascript>
<!--
    function fnChk ()
    {
        for (i = 0; i < 3; i++)
        {
/*
            if (frmLove.LoveNum [i].value == "")
            {
                alert ("숫자를 입력해 주세요");
                frmLove.LoveNum [i].select ();
                return false;
            }
*/
           
            re =new RegExp ("^[0-9]+$", "gi");
           
            if (re.test(frmLove.LoveNum [i].value))
            {
                if (frmLove.LoveNum [i].value < 1 || frmLove.LoveNum [i].value > 18)
                {
                    alert ("숫자가 범위에 맞지 않습니다.");
                    frmLove.LoveNum [i].select ();
                    return false;
                }
            }
            else
            {
                alert ("숫자가 범위에 맞지않거나 숫자가 아닌가벼...");
                frmLove.LoveNum [i].select ();
                return false;
            }           
        }
       
        frmLove.submit ();
    }   
//-->
</SCRIPT>

<PRE>
ex)
 김    말    똥
 박    소    똥
(15)  (15)  (18)
</PRE>

<FORM name="frmLove" Method="POST">
    <INPUT type="text" name=LoveNum value=<% = LoveNum (0) %> onfocus="this.select ();">
    <INPUT type="text" name=LoveNum value=<% = LoveNum (1) %> onfocus="this.select ();">
    <INPUT type="text" name=LoveNum value=<% = LoveNum (2) %> onfocus="this.select ();">
    <INPUT type="button" value="Submit" onClick="fnChk ()">
</FORM>
<BR>