'랜덤함수'에 해당되는 글 1건

  1. 2008.11.12 랜덤함수(Random, ASP) by 잠수콩


<%
'랜덤함수
'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
랜덤함수(Random, ASP)  (0) 2008.11.12
핸드폰번호 자리수 함수(ASP)  (0) 2008.11.12
XMLDOM 사용법  (1) 2008.11.12
Posted by 잠수콩