3초기억력

랜덤함수(Random, ASP) 본문

플밍_ASP

랜덤함수(Random, ASP)

잠수콩 2008. 11. 12. 10:44
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.


<%
'랜덤함수
'4지선다 답 맞추기. 답이 맞으면 포인트부여

 Randomize()
 answer = Int((Rnd * 4) + 1)               '최대 4, 최소 1

 Randomize()
 answer_value = Int((Rnd * 4) + 1)

 Dim Get_Point(4)
 Get_Point(1) = 500
 Get_Point(2) = 300
 Get_Point(3) = 200
 Get_Point(4) = 100

 If answer = answer_value Then
  Get_Point_Value = Get_Point(answer)
 Else 
  Get_Point_Value = Get_Point(4)
 End If
%>

<%=answer%><br>
<%=answer_value%><br>
<%=Get_Point_Value%><br>

'플밍_ASP' 카테고리의 다른 글

ASP - Msxml2.DOMDocument 활용법  (0) 2008.11.17
ASP - URLDecode 함수. 퍼옴  (0) 2008.11.17
FileSystemObject 이용, 로그남기기(ASP)  (0) 2008.11.12
핸드폰번호 자리수 함수(ASP)  (0) 2008.11.12
XMLDOM 사용법  (1) 2008.11.12
Comments